-1100 ЖРС-8001 
文 FM-7 жМ2-1200 


スポ ー ツ ゲー ム 香 人 


(野球 , ゴ ルフ , ボ ポー リン グ ) 


今回 の 特集 は 「 ス ポー ツ ・ ゲ ー ム 」 の 総 
登場 で す . 寒い 冬 に 暖か い 室 の 内 で 人 迫 
熱し た ゲー ム を 楽し も う ./ 


ЖРС-6001/тКкП 

サテ ライ ツ ロ 
復讐 を 始め た 衛星 を 破壊 する た め , 再び 
サテ ェ は 出撃 する の で あっ た . 
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маны un Ө., 高速 ゲー ム 徹底 解剖 

EE, [Т ут? 8 ング ESED 
REE Е AD РУ-2000 
РІО People 

マイ コン 人 生 ・ 相 談 室 

ва 中 Me 


ЖУІС-1001 


メテオ ・ フ ァ イ ト 


最新 鋭 宇宙 戦闘 機 「MARK- І 
宙 船 団 の 壮絶 な 戦い . 


жРС-1500 


*х1 
マイ テイ バス ター 
マイ ティ ・ バ スタ ー を 操り , 瑞 の 建造 物 を 
すべ て 破壊 せよ ./ 

文 PASOPIA7 


НЕЕ ブ ロ ・ ペ ー ス ポール =”, 


オー ルス ター ゲー ム も で きる , 本 格 派 プ ロ 
電 ベ ー ス ボー ル ゲ ー ム . 


* ン ピア 7 の グラ フィ ッ ク 機 能 を フル に 活 
用 し た 精彩 な 麻雀 ゲー ム . 


580 _ 


SHARP 


ハー バド (に 信頼 許 が ある & ЧЖУ а 


いま 世界 中 で 話題 の 新 言 語 LOGO ち 走る 。 経済 性 を 重 梓 し た 、 組 必 含 わせ 自在 の コン ボタ イフ 。 


8 色 カ ラー 対応 グラ フィ ッ ク 標 準 装備 、 応用 マン ス を 徹底 し て 追求 、 目 的 に 合わ せ て 手軽 004 標準 価格 50.000 円 ※ テ ー プ バー ジョ ン 講 MZ-LOGO 


г (MZ-2200/2000 用 、 テ ー プ バー ジョ ン ) 別売 9,800 円 。 販 日 本 
自在 の クリ ー ン メモ リ シ ス テム 、16 ビ ッ ト へ の 対 に 、 自 在 に MZ- 2200 シ ステ ム が 構築 で きま も ОВ, | 


応 、 MZ の 先進 機能 を 受け 継い だ 充実 し た シス テム ソフ トウ ェ ア ] 主 な 拡張 用 オプ ショ ン 
ハー ド & ム MZ- 2000 で 蓄積 さて た あら ゆる ジャ 介 倍 精度 テー プ BASIC ЖМ2-17003 標準 価格 7,000 円 デー タレ コー ダ MZ-1T02 標準 価格 19,800 円 
る ⑧ イ ンタ プリ タ PASCAL ※MZ-1Z004 価格 12,000 円 ッ ピ ー ディ スク ドラ イプ (イン ター フェ イス お よび 接続 ケー ブル 付 
и 7 1) aeS 77 б " 7 テイ ラ ン な A 
ン ル に わ だ る 膨大 な 数 の アプ リケーション ト る ⑧ シ ステ ム プ ログ ラム ※ MZ-1Z005 標準 価格 25.000 円 豊 属 ) MZ-1F07 標準 価格 158,000 円 @80 桁 シリ アル プリ ンタ 
が を その まま 使え る フル コン パチ ブル 設計 。 また マシ ン ラ ン ゲ ー ジ ※ 標 準 価格 7,000 円 但 RS- 232C/GP-IB М2-1Р07 標準 価格 79.800 円 信 12 型 グリ ー ン デイ スプ レイ 
倍 精 度 BASIC、PASCAL、 マ シン ラン ゲー コン トロ ー ル BASIC ЖҰЙЕ 489,500010 74 Х2ВАБІС MZ-1D12 標準 価格 32 .000 円 借 14 型 カラ ター ディス プレ イ 
ТЕ = MZ- 27.001 標準 価格 10.000 円 672-2172 BASIC MZ-1D15 標準 価格 72.000 円 豊 漢字 КОМ М2-1К134% 
#7 リー ン H FE a Er HF Jes А ү MZ 5 ж 772, RF MZ 385 
ジ な ど ク リー ン 思 Bet» LC より 高度 な シス テ М2-22002 標準 価格 12.000 円 ФЕН 7452 BASIC 準 価格 1.800 円 便 16 ビ ッ ト ボ ー ド キッ ト MZ- 1MO 標準 価 
ム へ の 応用 。 き ら に いま 話題 の 新 言 語 LOGO MZ-2Z003 標準 価格 12,000 円 @ フ ロッ ピーDOS М2-22 


格 78,000 円 p プリ ンタ ょ の 接続 に は イン ター フェ イス お よび 接 
も 走る と いう 3 充実 し た ソフ ト 環 境 НУ (ЗИ АСТ 


に ご 注目 くだ きい 。 経 済 性 いう 111 7-2200 
/” | 


点 か 6 も 6 本体 だ び け で がく 〈、 周 辺 
機器 を も 含め た コス ト パ パ フォ ー パー ソナ ルコ ンピュータ 標準 価格 128,000 円 


@+——— Ç MZ-2200 を ご 使用 の 場合 は 、 オ プシ ョ ン の 
デー タレ コー ダ MZ-1T02 が 必要 で 島 写真 の デー タレ ュ 
ー ダ MZ-1T02 お よび 12 型 グリ ー ン ディ スプ レイ MZ-1D12 は 
жау, ФИА, 


к. 


117-2200 


Personal” Computer 


機種 別 、 目 的 別 > 
r 


и Иж, 25--2 = Е | 

朝 西 日 本 放送 7:00 一 7:30 電 沖縄 テレ ビ 8:30 一 9:00 L 民 テレ ビ 8:30 一 9: テキ スト 「 楽 し 〈 学 パソ コン BASIC」98 

発売 中 FA: КИІН ARLS f. ° RET: DE Уау БЖ ШЫ Д КОЖ С は MZ- 700 を 使っ 7 
Z 取 扱 店 へ どう ぞ 。 今 北海 道 放送 24:00 一 24:30 夫 東北 放送 24:00 一 24:: 送 : 


Өз кеі 


17:30--18:00Ф 111% 74:%24:05--24:35ФІХ 8,7 «ЕТ: 0-7: 300 7L EPH Ж24: Жо 56@ 琉 球 放送 24: 00--24:30Ф 1%!/4%7: 30— 8:00 


Wee “ARES KH 〒545 ХИТ Е 0822422 7%(06)621-1221(Х4% Ж)! 
@⑱ お 問い 合わ せ 、 資 料 請求 は … シ ャ ー プ 山国 内 産 機 営業 本 都 〒162 東京 都 新宿 


(343, МАРЬЯ 


選べ る 3 タイ ズ 豊富 な アプ リケーション 。 ビギナー か ら マ ニア まで あら ゆる 人 々 に 選ば れ て いま 


区 市 谷 八幡 町 8 番地 佐 (03)260-1161( 大 代表 ) ' 


ハー ド に 人 気 が 出る と ソフ ト が 増え る 。 ソ フト 
が 増え る と ハー ド に 人 気 が 出る …。 いま MZ- 
1002 Ыл は 、 人 気 が 人 気 を 呼ん で ベス ト セ 

。 上 達 に 合わ せ て 進化 する クリ ー ン 設計 、 
Шын с-ту さら に 高度 な シス 
テム へ の 可能 性 を 秘め た 優れ た 拡張 性 。 こ う 
し た 信頼 の ハー ド に 応 ぇ て 、 
すぐ に 使え 市販 ア プリ ケー 
ショ ン ソ フト の 豊富 きも 群 を 
抜い て いま す 。 ホ ビー か と 実 
務 ま で あら ゆる 目的 に 、 そ し て 
あら ゆる 人 々 に 活用 し て いた 
だ きた い 自 信 作 で も 


| 


АА 


マル チ ウ イン ドウ 機能 を は じ め 


バー ソナ ルコ ンピュータ 


em e A シリ ー ズ 


м2- 550 


128K +C (FRAME f> 
Ф'; 12 М7-5521, 7 イス プレ イ 
MZ-1 D11 (標準 価格 113.000 円 ) お よび 
マウ ス MZ-1X10( 検 準 価格 19,800 円 ) 
は オォ オプション て 


DIAMOND 


の 
= 
> 
の 
т 


〈 主 な 特長 > 偽 ア ドレ ス 空 間 64K バ イト 、 オ ー ル RAM の クリ ー 
ン メ モリ シス テム OEE ° Fk CPU Z80A 搭載 Ө?>- 
対応 BASIC 装 備 氏 MZ-80K シ リー ズ ・80C・1200 の シス テム 
ソフト (PASCAL、 マ シン ラン ゲー ジ 等 ) が 活用 可能 上 @BASIC 
を 考慮 し た 使い や すい キー 配列 ӨО, 英 小 文字 対応 
(ディ スプ レイ ) 代 グ ラフ ィ ッ ク 機 能 を 装備 し た 4 色 カ ラー プロ ッ タ 


プリ ンタ 内 蔵 (MZ-731) ӨЖІЕНІ22--ТУ, 専用 カラ ー デ ィ ス 
プレ イィ (別売) に よる 多彩 な ビジ ュ ア ル 対 応 


SCORE : 99996 HI-SCORE : 00000 


パソ コン に 求め られ る あら ゆる 機能 を 搭載 し た 8 ピッ ト MZ の 


バー ソナ ルコ ンピュータ 


1173500 


М2-3531 
で ニ フ ロ ッ ピー1 半 内 蔵 > 
MZ-3541 し た om 10,000 


РРР зы, キー 
(MZ-1K06 標準 価格 38.000 円 )、CRT 
(MZ-1D03 標 準 価格 163,000 円 ) を 組 
合せ た 例 で す 。 素 画 面 は オプ ショ ン の 

グラ フィ ッ ク ポ ー ド 、 グラ フィ ッ ク メ そり (x аф 
2) を 使用 し た 例 で す 。 


パー ソナ ルコ ンピュータ 


119-700) = 


ШМ7-711 標準 価格 79,800 円 ШМ2-721 
(デー タレ コー ダ 内 蔵 ) 標準 価格 89 ,800 円 
較 MZ-731( デ ー タ レコ ー ダ ・ カ ラー プロ ッ タ 
プリ ンタ 内 蔵 ) 標準 価格 128 ,000 円 


MZ- 700 の 魅力 を 拡げ る プレ イボ ックス 
MZ- 700 シ リー ズ で ゲー ム を 楽し む 、 プ ログ ラミ ング 学習 を する 。 
そう し た 使い 方 だ け で は も の 足り な く な っ た ユー ザー に 、 ぜひ 
お すす めし た い 多 機能 ユニ ッ ト が MZ- 1U03 で す 3 スロ ッ ト の 
拡張 ユニ ッ ト と し て の 機能 の ほか に 、 オー ディ オ 機 器 や ビ で デオ 
デッキ な ど エ レク トロ ニク ス 機 器 を イン テリ ジェ ント 化し た り 、 テ 
レビ 、 照 明 の 制御 な ど 、 リレーBOX と し て も 活用 で きま おれ 
УМ7- 700 シ リー ズ 用 拡張 ユニ ッ ト 
MZ - 1U03 標準 価格 35,000 円 


人 真 は MZ-731、14 型 カラー デス フ 
価格 69.800 円 )、 拡 張 ユ ニッ ト MZ-1U03 
PD は オプ ショ ン で Omnis AY 


面 は 「 オ ー ク 」 制 作 ID hasa a 


ВАНИЕ 


バー ソナ ルコ ンピュータ 


17-2000 


<10 型 グリ ー ン CRT・ 
ЖЕНУ > 
ЕА) 
グラ フィ ッ ク ボ ー ド を 
使用 し た 例 で 


ER Ею 


MSX マ ー ク は マイ クロ ソフ ト の 商標 で す 


|141 ХЕБ ЕТЕ 


F| 


M 


ニュ ー ス で す 。 話題 で す 。 富 士 通 か ら 、 話 題 の MSX 対 応 の パン コン が 出 ま 


(7: 名 前 は 《FM-X》。 ゲー ム に 、 
家事 に 、 学 習 に 、 家 中 で 楽し め る 市 販 の ソフ ト が いっ ぱい 。MSX-BASIC 搭載 。 16 色 カラ ー グ ラフ ィ ッ ク 表 示 。 


8 オク ター ブ 3 重 和音 の サウ ンド 機能 。 カ ー ト リッ ジス ロッ ト を 装備 etc。 家庭 用 TV や 、 お 手持 ちの スピ ー カ ー と 
接続 し て 、 だ れ も が 簡単 に 、 す ぐ 楽 し め ま す 。 い わ ば 親しい 友だち づき あい で きる パソ コン 《FM-X)。 こ こ か ら 楽 し い 9% 


パソ コン の 世界 が ひろ が りり ます 。 


07-74 
に 


な 


げ | ば |、 | な | お 


ОМ |z| 


し 


い 


|| | | | ........ 


《FM-X》 は 、《FM-7》 と つなぐ こと に より 、 ユ ー ザ エリ ア が 32KB に 拡張 。 て FM-7》 側 の プリ ンタ が 使用 で きま す 。 ж 
また 、《FM-7》 の 拡張 BASIC に より 、MSX だ け で は 味 わ を ん な い ス ピー ド 感 あふ れる スプ ウラ イト 機能 が 実現 。 


8 オク ター ブ 3 重 和音 の 立体 感 あ ふれ る ステ レオ サウ ンド も 楽し め ま す 。 


エッ クス 


\49, ЗО Оса» 


君 も (FM-X》 の モニ ター に な ろう 。 
> 2222 72 ا‎ 人 気 ・ 実 力 No.1 の 《FM-7》 
を 、 今 、 お 求め に な る と 、 富 士 通 の ソコ ュ コン 《FM-X》 の モニ ター 
а * た だ け ま す 。 抽選 に より 200 名 様 、 な ん と 期間 は 1 年 間 。 
この ビッ クチ ャ ンス を 、 お 見 逃し な 〈。 
人 @ 応 募 要 項 〈FM-7〉》 の 本 体 に 添付 され て いる アン ケー ト ハ ガキ に 必要 事項 と 、 その 裏面 
下部 に (D《F M-X〉 モ ニタ ー 応 募 ② 本 体 製造 番号 ( 王 S/N 本 体 裏 面 に 表示 され て いま 


す ) を ご 記入 の うえ 、 昭 和 59 年 1 月 31 日 (当日 消印 有効 ) まで に お 送り くだ さい 。 
ж 発表 は 当選 者 へ の ご 通知 を も っ て か えさ せ て いた だ きま す 。 


富士 通 株 式 会 社 半導体 統轄 営業 部 〒105 東 京都 港 区 虎ノ門 2-3-13 容 (03)502-0161 


さら に 盛り あがる ぞ 

_ oo 

発売 以来 、 大 人 気 、 大 好評 の 
富士 通 の 興奮 パ ソコ ン 〈FM-7)。 
人 気 ・ 実 力 No.1 を うら づけ る 、 豊 富 
な 機能 の ハー ド と ます ます 充実 する 
ソフ ト 価 格 も 手頃 。 三 拍子 そろ っ 
て 、 全 国 の 青少年 を 、 ビ ジネス マン 
を お お い に 盛 りあ がら せ て いま す 


人 気 No.1 の 興奮 パソ コン 


ҒМ-7 FMX 


も コジ 


¥126,000 Е 


(本 体 価格 ・ 簡 易 言 語 ソ フト 付 ) 


dB-SOFT 


ФРС-8801/3 
ФӨРМ-7Я 
Е ДУ I Е 2507 


ああ 、 オ レ も 白 販 化す る の か 
いや だ あき ら め な いそ ぞ 


ещ — 


PC-800| 用 FM-7 用 フロ ッ ピー 版 各 5.500 円 「 近 日 発売 グ 」 


愛す る メリ ッ サ が 軟禁 され 
ERBES, Vaig 
乗り 込ん だ 


2 次 元 、 3 次 元 、 4 次 元 へ 展開 する オセ ロ ゲ ー ム で 頭 は パニ ッ ク / 
ルー ル を 把握 し て 勝利 へ の 脱出 
[XI に 続い て FM -7 用 新 発 売 」 


文 ス ペー スカ プ セ ル (Fz-G008I) 3.000 円 
ミー バー に 捕まら な いよ うに 、 カ ラフ ル ボ ー ル を 探す の が 君 の 使命 だ 


妖怪 ども を や っ つけ ろ 。 メ 


ы ету デー ビー ソフ ト 
* x x 帆 コ ソン ピューター ラン ド 北 海道 


BASIC 不 要 〒060 札 幌 市 中 央 区 北 3 条 西 2 丁目 カミ ヤマ ビル 4F 容 0II(222) 108842 


文 ゼ クサ ス 光 速 2000 光 年 (se-eo095) 


果て し な く 広 が る 宇宙 空間 。 旅 を 続け る 宇宙 警備 艇 ゼ ク < 
サス に 、 次 々 と 危機 が せま る 。 ど こ か ら と も な く 現われ ЖАТН-А 7 (56-6 
組 い か か る 敵 船 の 群れ 。 奴 ら の ビー ム 砲 を か わし な が ら о орар 
素早 く 攻 撃 を / 戦 闘 を 繰り 返し て ゼ ク サ ス は 今日 も 前 進 キム キム ・ ダ ンダ ン 
する 。 宇宙 は oo 無限 大 。 ゼ クサ ス の 旅 も oo 無限 大 partII(S6-G0I00) 


ШЕЕ > 全国 の 皆様 へ 当社 の 最新 オリ ジ ナル ・ ソ フト ウェ ア を 、 通 信販 売 し て いま す 。 ご 注文 は 現金 か 銀行 振込 で お 願い し ます 。 尚 振込 の 
рн е 案内 場合 、 住 所 、 氏 名 、 電 話 番 号 、 商 品名 、 個 数 を ハガキ で あら か じ め ご 連絡 下さ い 。 振込 先 、 北 海道 拓殖 銀行 札幌 駅 前 支店 口座 
無料 サー ビス ./ ) 番号 (普通 924-778) 沿 、 郵 送料 は サー ビス させ て いた だ きま す 。 (資料 請求 の 場合 は 300 円 切手 を 同封 下さ い ) 


BASIC だ け で で きた 
簡単 な プロ グラ ム . 


оса 
プロ グラ ム や BASIC 
に 少し マシ ン 語 が 加 
わっ た プロ グラ ム , 
また BASIC だ け の 複 
雑 な プロ グラ ム に も 
付け て あり ます . 


マシ ン 語 が 大 部 分 の 
プロ グラ ム . 


全開 加速 号 


E o OoOO O o 
> 特集 : 熱 戦 / ス ポー ツゲ ー ム 


FM -7 ж Му Golf м. 佐々 木 伸 25 
MZ-80K/C, 1200 x Super Baseball жн воз 
FP 1100 * Baseball Game АИ То. (MO.7)A2 36 
PC-8001/mkI1/8801 жбирег Golf 北 出 英樹 42 
PC-8001/mkII/8801 ЖБомліпв-Өсезезеееееееесенеее 馬場 ж 45 
PC-880 1 文 ベ ー ス ボール ゲ ー ム А 平田 留美 子 48 
LEVEL 3 * Golf Game ЕАН 豊田 陽一 郎 53 
PC-8001mkII 雄 キ ヤン デイ ・ キ ヤン デーI 上 無敵 の スタ ン ハン セン 9 
PC-8001/mkII/8801 云 エイ リア ン ・ プ プラネット ……… Micro ORB S.T 122 
PC-8801 *RACKET GAME eee екен 
РС-600142К/ткі _ 支 ブ ロッ フフ < ワー ルド ーーー 望月 商 弘 113 
PC-6001・ “К/тк ж а ON OK 戦闘 た こ 116 
ЕМ-7 жЖ/РІАМЕТ LANDER а Mountain Book 57 
@+*EGG BOMB зс ИФА 60 
*STEALER GAME hat a a aa ods 当山 孝義 89 

MZ-80B жа aa aasan 投石 正装 64 
MZ-80B/2000 Жж DOUGHNUT FISHING. MUSASHI 98 
М2-80К/С, 1200 ЖжСАЅВАКАЅҮ RESCUE e-+- G.UTSU 96 
MZ-700 жеУХЯ—2Я2700 ee ЖЕЖ 105 
Х1 の ⑦ 太 マイ ティ ・ バ スタ ー NN 加藤 工 明 71 
KK EIT SDD YY ОН ゲッ ピ 101 

PASOPIA7 kK BIBI DID Е TS ЕРЕ 137 
JR-100 文 マ イコ ン ショ ヨッ プ ゲ ー ム ЕНЕ... тй # 142 
VIC-1001 ж МГ. DAN И ет о ВО 海 が 好き 129 
METEOHR FIGHT eee ял із 

М5 文 ス ロッ ト マシ ジ シン зз сзсз бесе зене KEI 145 
MSX *CRAB РГ.АМЕТ------ COMPAC T.K 148 
RX-78 太 ス ペー ス ・ カ プ ト ガ ニ ER ORT Ж ЕБ 150 
РС-1500 PROFESSIONAL BASEBALL: 菊地 幸雄 152 
РС-1251 ж The 2 Labyrinth СТ А АҚ ОО 真田 順一 郎 154 
PC-1245/1250/1251 娘 グ ラフ ィ ッ ク ・ ス ロッ トマ シン ………… 38 156 
FX-602P ж 70722942 —/7—/ уәж тіз 
ЕХ-702Р ж 野球 ゲ --/, НАНЕС 山本 4% 160 
PB100/300etc. ж«ЖРВ-СІІММВЕН ------------- шп 162 
PC-6001mk II EZR DONDE COU «== 小田 英智 +COMPAC 164 
È РС-6001/тКП ЕЯ И АЕНА ОИ 山脇 利夫 169 
EI FM-7 Ж-КА аа ы 高畑 英樹 174 
マシ ン 庄 入力 に つい て ИІЛЕ За エン ジン ・ ル ー ム 180 
СИ) PV-2000 だ oo 87 
РіО People... оо о то 88 
PIOUS с м POTIS VJA 8 
PiO マ イコ ン 人 生 ・ 相 談 室 ……… пт ЗЕЕ. ее 80 
PiO バ ザー ル OS лууда жт 178 РО BOX Ааа RTA 70,144,155,159,173 
РІО10 OY vaya бш ТТС Т E 84 PiO/ パー ツ LE て を くり OGA 31,41,44,151,163, 168 


イラ スト は ら JIN 


プ ブック 型 パッ ケー ジ 


X 1 用 ジョ イス ティ ッ ク 可 


24,0007- 


最初 の 部 屋 は オレ ンジ 色 , 全部 黒 に チェ ン 反転 前 , 唯 ちゃ ん の 後に 続く 迷路 一 列 が , 
ジ し て 脱出 すれ ば 1 面 ク リア . あな た の 導 反転 後 , 唯 ち ゃ ん の 移動 と 同時 に 逆転 ./ 反 
き て 唯 ちゃ ん は 今 , 反転 効果 で 左 か ら 右 へ 転 効果 を 理解 し , 自在 に 利用 で きる 知性 と 
移る あう と し て いる . 次 の 写真 を ご 覧 あれ . 神経 の 持ち 主 だ けが 唯 ち ゃ ん を 救え る 


лу | 


m リ アル ・ タ イム と 知 的 ゲー ム が 結合 m 


あな た と X-1 の 
新しい 世界 … 


知 的 ゲー ム で の 思考 力 と 判断 
H, リア ル タ イ ム ・ ゲ ー ム て の 
Уа, それ ら 全 て を 
要求 する 新しい ジャ ン ル の ゲ 
ー ム が "高速 知 的 ゲー ム " で す . 
シン プル な ルー ル と さわ や か な 
笑い の 中 て 磨く あな た の 知 的 判 
断 力 . ゲー ム は 今 , チ ェ ン ジャ ー 
へ と 鮮やか に 昇華 され まし た . 


や っ た // 第 1 室 か ら 脱出 成功 . 唯 ちゃ ん が 
感謝 の し る し に , あな た に 向っ て カワ イク 
お じき ぎ . СЬ, うか うか し て 捕まっ た ら , 

ロリ コン お じ さ ん は イヤ ラ シ イ こと する ぞ / 


一 度 入 っ た ら 最 後 , 迷路 の 色 
を 全部 変え る まで 出 ら れ な い “ 不 
思 議 の 部 屋 ". 目 指す 場所 へ 行く 
に は 迷路 を タテ に ヨコ に 反転 さ 
せ 継 いで 移動 する の が “不思議 
の 部 屋 "で の ルー ル . そこ に ロリ 
コン お じ さ ん に つけ 狙わ れる カワ 
イイ 唯 ち ゃ ん が 逃げ 込ん で きた ./ 
あな た は お じ さ ん を 出し 抜い て , 
迷路 の 色 を 全部 変え る べく 唯 ち 
ゃ ん を 導い て あげ な けれ ば 


反転 効果 は チェ ンジ ャ ー を 高 
速 知 的 ゲー ム と 呼ば せる 最大 の 
特徴 で す . 唯 ち ゃ ん が “不思議 
の 部 屋 " の 外壁 を 押す と , Hb 
ゃ ん の 後に 続く 迷路 一 列 が 反転 
し ます 。 こ れ に より タテ , ヨコ 
の 迷路 の 継ぎ 替え が 可能 と な り , 
無限 と も 思え る 組み 合わ せ の 中 
で ゲー ム が 展開 し ます . ロ リコ ン 
お じ さ ん も 反転 効果 を 利用 し な 
が ら 意 表 を つい て 迫っ て 〈 る の 
T, あな た の 素早 い 判断 力 て 礁 
ちゃ ん を 導い て あげ て くだ さい . 


„ш; 


第 2 面 で は ロリ コン お じ さ ん が 2 人 に 増え , 
危険 度 も 2 倍 以上 . 危う し 唯 ち ゃ ん ./ お じ 
さん 達 も 反転 移動 し て , 想像 を 絶 し た 複雑 
な チェ イス が 展開 する . あな た は 救え る か !7 


PC-8801 の 限界 に 挑戦 し た ラン ダム ハウ ス の 自信 作 . ア イデ ア 次 第 で 多 
方 面 の 使い 方 が で きま す . 定価 25,000 円 


機 能 


@N5sBASIC モ ー ド で リセ ッ ト 時 に ROM 内 サブ ルー チン が コー ル で きる (スイ 
ッ チ ON で ゲー ム 可 ). 

@2732・2764 が 7 個 ま て 実装 (最大 56KByte) で きる . 

@|/O ポ ー ト は 8255 よ り , Ar・B ポ ー ト が 20P フ ラッ ト ケ ー ブ ル ・ コ ネ ク タ へ , ОЖ 
ー ト が 9P・D サ ブ プ コネクタ に 出力 . 

@PC-605|(PC-6000 用 タッ チ パ ネル ) が C ポ ー ト の 9P・D サ ブ コ ネ ク タ へ 直結 可 
能 . 


し つっ 4b ху" 
ラル 22/ PLR FH 
алй, 

4 


NAL PHA > 00 А АВА — 
е DTE ва ULI" PHA АЕ РО 
а-а. PHBE BAB, LN & 
CLUE RH Ru! ама Н! 
£ fm Kul Rant" | 


ROMY? ト 
PC-6051 タ ッ チ パネ ルコ ント ロー ルル ー チ ン 
(カナ 、 フ ァ ン クシ ョ ン シ ー ト 付 )……… Ұ9,000 
高速 ダラ フィ ッ ク ・ ル ー チ ン ry \9.000 
スー パー モニ タ т ОСЕР Ұ9 000 
お わび 
多数 の お 問い 合わ せ あ り が と う ご ざ いま す . 製品 出荷 が ご 注文 に 応じ し きれ ず , ご 迷惑 お か け 致 し て お 


り ま す . 放 炎 発送 致し て お り ま す の で 介し ば らく お 待ち 下さい. 


テー セッ マー 


株 式 会 社 ラン ダム ハウ ス 


坂戸 市 緑町 19 一 17 新 井 ハ イツ 103 谷 (0492)81-5612 ラリ ダム ハウ ス 


総 発売 元 /( 山 コム パッ ク 


СОМРАС... 


БЖӘ а ЫН DRY 67—20 Е, £ TRI /Ұу2 
[東京 都 渋谷 区 代々 木 |-37-| ぜん らく ビル 5F(03)375-340|] ま で 


マイ クロ ・ キ ャ ド 


新 発 売 PC-8801 用 


MCAD は 単なる グラ フィ ッ ク ツ ー ル で は な く 、 ユー 
ザー 自信 の プロ グラ ム や オプ ショ ン と し て 準備 され て 
いる サブ ルー チン を 組み 込む こと が で き 、 そ れ ら を 
グラ フィ ッ ク 画 面 と 連動 させ る こと が で きる と いう 画 


時 - に - ト - ト - ト ーー トー ドー トー トード | 


期 的 な ちの で す 。 
強力 な 簡易 言語 で 操作 も 完全 な 対話 形式 を 用 い 、 ーーー 
移動 ・ 拡 大 ・ 縮 少 ・ 変 型 ・ 組 み 込 み ・ 立 体 転写 ・ 特 ГІТ 


殊 パ ター ン 製 造 ・ プ レイ バッ ク ・ ス ー パ ー ウ イン ド ・ 
サウ ンド 発生 機能 等 の アイ デア が 満載 され て いま す 。 
Paint BOX Fl 命令 で は 、 常 時 46 色 を 指定 で 
き そ の 内 容 も 自由 に 変更 で きま す 。 ま た 、 無 制限 タイ リン グ や 256 ※X255 種 の ライ ン パ ター ン 作 成 、 そ し て 画面 消去 と Box Fi 命令 は 非 
常に 高速 で あ 
も ちろ ん 作成 し た 画像 デー タ を 、BASIC プ ログ ラム に 変換 する こと な ど は 朝 メ シン 前 で す 。 


J О В. PC-88( BEMA, 500 円 
PC-9801 定 価 4, 5005. F M-7、PC-800 jB 定 価 3.500 円 
A= 3 レー ジョ ッ 


70《 セ ・ リ ー ク 6 球団 の 中 か ら 2 球団 を 選び 、 人 間 VS 
人 間 あ る い は コン ピュ ー タ を 相手 に 対戦 で きま す 。 

宮 選 手 は 走 、 攻 、 守 、 セ ンス の デー タ を 持ち 、 特 
に 投手 は 、 球速 、 コ ント ロー ル 、 ス タ ミ ナ 、 決 
め 球 、 持 ち 球 な どの デー タ を 持っ て いま す 。 

(も ちろ ん 、 自 由 に 打順 を 組む こと が で き НЕ 
ピッ チャ ー 交 代 、 守 備 交代 、 前 進 守 備 の 機能 
あり ます 。 攻撃 面 で は 、 ヒ ッ テ ィ ング 、 Бай 
MEET AE 
ライ ク ヒ ッ ティ ング 、 カ イ {8 
ンド ヒッ ティ ング と 多彩 で す 8 

) (自然 条件 と し て 風 の 影響 も 考 
慮 し て あり ます 。 さ あ 、 あ な 
た の 来 配 で チー ム を 勝利 に 導 
いて くだ さい 。 


іші! ән шая нән 7-7 +10, 000 
ディ スク 版 #12,000 


@ 通 信販 売 ご 希望 の 方 は 品名 ・ 機 種 名 を 明記 の 上 、 現 金 書留 又は 郵便 為替 に て 定価 十 送料 300 を 下記 へ お 送り 下さ い 。 


BAL 中 ё ーー バハ 4 


T156 東京 都 世田谷 区 経堂 2 丁目 1-26 小 田 急 経堂 ビル 623 号 | 
1%(03)428-3359 “4 


әже ーー ニニ ーー ここ ЕЗИНЕ ела нн ы. алын ы ي‎ ды sayaq 


話題 沸騰 157 ー ム と ジグ ゾー パパ ズル が ドッ キン グ し まし た 。 パ ター ン は 全 
部 で 20 種 類 。 最 終 パ ター ン を 完成 させ た 時 の 感激 は 筆舌 に 尽く 〈 し 難 いと 絶 
讃 の 声 、 声 a 5. シュ ミレ ーション の 決定 版 


スク ウェ ア 


価格 4.500 円 (カセ ッ ト ・5 イ ンチ ) 
5, 000 円 (6 イン チ ) 


ラン ダム に 散ら ば っ た 1 か ら 15 ま で の 数 
字 を 並べ 換え を る お な じみ の ゲー ム か ら 始 
まっ て 、 ヌ ー ド の カワ イ 子 ちゃ ん を 完成 
させ る 絵 合 せま で 、 全 部 で 20 種 類 の パパ タ 
ー ン が 楽し め ま す 。 水 着 姿 を 完成 し た ら 、 
その 次 は 水着 を と っ て …… g 

時 間 制 限 、 移 動 回 数 制限 も あっ て スリ ル 
満点 、 パ ター ン が か が 進む に つれ て 難解 度 も 
アッ プ し ます 。 な お 、 前 段階 の パタ ー ン 
を 完成 させ ず に 次 の パタ ー ン へ 進む こと 
は се 途中 で 中 断 し て も 
15 番 目 の パタ ー ン ー 機 構 が 働い て 、 再 開 時 に は 中 断 
г. G ana SC < E 
а о ー ム で す 。 
20 パ パタ ー ン 完成 者 に は 、 KER 和紀 の ゲ ー ム 

を 提供 し ます 。 


~ %, 

お 申込 み 方 法 
ХУ. 有名 マイ コン ショ ッ プ か 
直接 当社 で お 求め くだ さい 。 

当社 へ お 申込 み に な る 場合 は 、 使 用 機種 
名 、 カ セッ ト ・5 イ ンチ ・8 イン チ の 別 、 
ご 氏名 、 ご 住所 、 年 齢 を 明記 し て 、 現 金 
書留 に て 下記 まで お 申込 みく だ さい 。 代 
金 逢 着 後 、14 日 以内 に お 届け し ます 。 な 
お 、 送 料 は 当社 に て 負担 いた じ ま す 。 
申込 先 プ 〒160 東京 都 新 宿 区 新宿 7-27-4 
-403:7-2%7 РО 


ark % 7 


T160 東京 都 新宿 区 新宿 7/-27-4-403 


ЕЯ 032082651 


な た ら な い 志 


プロ フェ ッ シ ョ ナル は か くく 語る 。 


テー プ 版 
CONSTRUCTION 
コン スト ラク ショ ン 
PC-8801 \5.800 
ゲー ム プ プロデュー サー 

藤田 敏夫 


テー プ 版 
DUNGEON 

ーー ダン ジョ ン 
PC-8001/8801、FM-7 Ұ5,200 
ゲー ム プ ロ デ ュ ー サ ー 
= p 3172 


0 же + >= J> = 
БЕ УКЖ FT 
K +h: T326 ЖЖ - 1112677 B0284- 41-5911)0 
日 吉 支 社 : T223 横浜 市 港北 区 日 十 本 町 1876 7%044-61-6861/9 


ғм-7(С/ҒОМ) の 竹 昧 星 圭 … そ れ は 、 生 命 の 誕生 する 分 子 要 の 集合 地帯 で ある 。 


"惑星 メ フ ィ ウ ス ” は 、 ほ ん の 序章 だ っ た 。 
太 ス トー リー は 佳境 へ 、 解 き 明 か され る ジャ ミル の 正体 と スタ ー ア ー サ ー の 過去 
高速 -D ル ー チ ン を 駆使 し た リア ル タ イ ム ス ペ ー ス ファ イト シー ン 。 の っ 
丸 伝説 の 剣 ( レ イソ ー ド ) の 秘密 を 暴く べ 〈 暗 黒星 雲 へ 突入 


ят ЗЕ 売 


FM-7 ディ スク 版 


PC-6001 mk II PC-8801 好評 
РС-8801 発売 中 
シャ ー プ X1/X1C 


支 T&E ソ フト 開発 陣 が 総力 を あげ て 開発 の 本 格 ス ペー ス ア ド ベ ンチ ャ ー/ 
娘 グ ラフ ィ ッ ク 画 面 は 、 高 速 中 間 色 ペイ ント ルー チン を 含む 完全 機械 語 表示 

文 本 邦 初 の 対話 モー ド 、 カ ー ソ ルキ ー に よる 目的 物 指定 等 、 画 期 的 手法 を 駆使 
スト ー リ ー は 大 別して 5 つ に 分 か れ て いま す 。 入国 税関 ビル 内 、 惑 星 メ フィ ウス の スラ ム 街 、 シテ ィ 、 砂 
漠 地 帯 、 そ し て 宇宙 ビ ピラミッド 内 。 惑星 メ フ ィ ウ ス の 広大 な 砂漠 地帯 は な ん と 484(22X22) の エリ ア 
か ら 成 つて いま す 。 他 に 類 を 見 な い 美しい 画面 と 、 サウ ンド 、 そし て 壮大 な スト ー リ ー を お 楽し みく だ さ 
い 。 も ちろ ん 本 編 の 主人 公 、 ス ター アー サー は あな た 自身 で す 。 


00080) 
жуук) 44,8009 ж 422 定価 6.800 円 


ЖЕЛ7/72.8ЕЕЕ0)52(У/ЕЕНСЕЯЕЛЕЕЕЕ/22901749- 


ディ スク 版 ¥ 8,000 


テー プ 版 \4.000<X-1> 


LINE.BOX.BOXFULL.DOT,CIRCLE,PAINT (中 間 色 を 含む ) 、SYMBOL,DELETE. 漢 字 SYMBOL. デ ー タ の 
ロー ド 、 セ ー ブ 、 結 合 、 濃 淡 コ ピー(8 色 の 濃淡 に よる ハー ドコ ピー) 等 、 作 画 用 に 必要 な すべ て の 機能 を 備え て 
いま す 。 中 間 色 ペイ ント (HPAINT)、 漢 字 シ ン ボ ル (KSYMBOL) 等 は 、BASIC 文 と し て 使用 で き 、 簡 単に BASIC 
フロ グラ ム に 組み 込め ます 。 ま た 、 ジ ェ ネ レー ト 機 能 に より 、 作画 し た 絵 が BASIC ブ ログ ラム と な り ま す 。 カー ソル 
等 に より 円 弧 な ども 思い どう り 描け ます 

※ デ ィ ス ク 版 は カナ 、 漢 字 変 換 機能 を 持っ て いま す 


X-1 の も つ グ ラフ ィ ッ ク 機 能 を いか ん な く 発揮 させ る TOOL で 、 フ ログ ラム は グラ フィ ッ ク エ ディ ター、PCG エ ディ タ 
ー の 2 本 で 構成 され て いま す , グ ラフ ィ ッ クエ ディ ター は LINE(LINE.BOXBOXFULL,CONNEOT)、 PAINT( 超 
高速 中 間 色 PAINT) PSET.CIRCLE.PRINT.TILE 等 の 作画 コマ ンド と FILE(LORD.SAVE.NEW). DELETE, 
DRAW.GET な どの 編集 コマ ンド が あり 作画 に 必要 な 総 て の 機能 を 備え て いま す 。 ま た 画面 の デー タ は 、GENE- 
RATOR で BASIC フ ログ ラム に な り ま す PCG エ ディ ター は 同時 に 8 X 3 個 の キャ ラク ター を 定義 で き 、 ハ ター ン の 
回 転 、 反 転 な ど が 可能 で す 。 中 間 色 PAINT は HPAINT と し て BASIC 文 で 使用 で き 、 そ の スピ ー ド は 従来 の PA- 
INT に 比べ な ん と 20 倍 の 速 さ で す 


(使用 言語 は BASIC 十 マシ ン 語 ) 
ファ イタ ー FM-7/8 Y4.000 | 

敵 機 ヘル キャ ッ ト の 編隊 と シャ ー マ ン 戦車 軍団 の 攻撃 を 
か わし な が ら 機 銃 掃射 で 敵 機 を 撃ち 落と し 、 爆弾 で 戦車 


を 次 々 と 爆破 / 迫力 の サウ ンド 、 ス ピー ド 感 あふ れる 画 
面 を お 楽し みく だ さい 


リロ ゴル フシ ミュ レー ショ ン у 
FM-7/8( デ ィ ス ク 版 )、 超 高速 化 数 秒 で 次 の ショ ッ ト が 可能 ! 


ゴル フシ ミュ レー ショ ン で は 、 初 め て 3 次 元 立体 図形 処理 を 使用 し た 本 格 ゴ ルフ シミ ュ レ ーション で 


す 。 毎 回 の ショ ッ ト 位 置か ら の 立体 視野 画面 を 表示 し 、 そ の 中 を ボー ル が 飛ん で ゆき ます 。 (無限 に 
近い 視野 画面 が 得 られ ます 。) 視野 画 面 の 作成 、 ボ ー ル の 弾道 等 、 す べ て 3 次 元 計算 に よっ て 行なっ て 
いま す 。 ま た フェ アウ ェ イ ラフ 等 の 反発 係数 及び 角度 、 風 速 、 方 向 、 ク ラブ に よる 打上 角度 等 、 ゴ ルフ に 必 
要 な ほとん どす べ て の 要因 を 、 こ の 計算 式 に 組み 込み 、 実 際 の ゴル フ を ほぼ 完璧 に と ミュ レー ト し ます 。 
美しい 海岸 コー ス ( 18 ホ ー ル ) と リア ル サ ウン ド を お 楽し みく だ さい ,。 説明 書 、 全 コー スレ イア ウト 付 。 


РА5ОРІА7,Х-1 
FM-7/8,PC-8801 


7-7 


TARI Mmr O 


а Ва 


敵 惑 星 上 で の 大 宇宙 戦 。8 方 向 に 移動 する スペ ー ス シッ 
フ を 自在 に あや つり 、 様 々 な UF0、 地 上 基地 を 破壊 し て ゆ 
きま す 。 パ ター ン は 3 つ で す 。 さ あ 、 あ な た は と こま で ゆけ る 
ж” 


単なる 野球 拳 的 ゲー ム で は あり ませ ん 。 心 理 係数 、 パ イオ 
リズ ム な ど 、 さ ま ざ ま の 要因 に よっ て 、 女 性 心理 の 真相 に 人 迫 
る 、 全 く 新しい タイ フ の アド ベン チャ ー ゲ ー ム で す 。 場所 を 
変え 、 デ ー ト を 重ね 、 い ろ い ろ な 会 話 に より 、 コ ンピュータ ー 
レデ ィ を くど きま す 


カタ ログ 請求 券 
РТО 


O 〇 カタログ ご 希望 の 方 は 、100 円 切手 同封 の 上 カタ ログ 請求 券 を お 送り くだ さい 。 
太 T&E マガ ジン ご 希望 の 方 は 、200 円 切手 同封 の 上 T&E マガ ジン 請求 券 を お 送り 下さ い 。 


お か げ さ まで авио тод" は 記録 的 大 ヒッ ト と な り 、 誠 に あり が と う ご ざ いま し た 。 

また 多数 の は げ ま し の お 言葉 、 御 意見 等 を いた だ き 、 開 発 員 一 同 皆様 に 感謝 の 意 を 表わす と と _ 

14825 Беа ОА = 
Дл の スタ アー サー 伝説 PART п татаж で は 、 


り 込み 、 ス ト っ リー に 奥行 き を も た せ て いま す 。 а. ЕН, 
も の と な っ て いま す 。 ERER g) ОН БЖ Кан, 6 
FM-7 カ セッ ト 版 、 そ の 他 の 機種 に も 移植 中 で す 。 御 期待 下さ い 。 


sEbRE "85509. ATs es R Et 5.891 | 
а Г j Е А88 RE КИР 


ROM カ トリッジ 
3 作品 
一 挙 発 売 / 


Ж 東京 芝浦 電気 か ら も 
ジョ イス ティ ッ ク 可 ジョ イス ティ ッ ク 可 


` 発売 され て いま す 。 
メメ バ トル シッ プク ラプ トン II x3 ヨ - ロ ゴル フシ ミュ レー ショ ン УЕ 
宇宙 戦闘 機 ク ラブ トン II を 操っ て 迫り くる 敵 戦 闘 機 を ビー ム T&E SOFT で 最も 人 気 の あ る 3D ゴ ルフ シミ ュ レ ーション を 英 は コウ モリ 2 匹 、 サ ソリ 2 匹 と ミイ ラ 男 、 あ な た は アド ベン チ 
砲 で 破壊 し ます 。 敵 戦闘 機 は 5 種類 あり 、 150 機 破壊 する と 、 Мақ екен еш 新た に 制作 し た も の で す ャ ー を うま く 操 作 し 、 ダ イヤ モン ド を 探し て くだ さい 。 ダ イヤ 
母船 が 出現 し ます 。 た だ し 、 敵 戦闘 機 は 画面 の 下 へ 消え て も 新 ユ ー ザ ー の 皆様 も 是非 一 度 お 試し くだ さい о つけ る と 次 の 面 に ワー フ で きま す 。 さあ 、16 面 
ビー ム 弾 を 撃っ て くる こと も あり ます の で 注意 / 定価 4,800F 定価 5,800Ғ3 こ 待 ち 構え て いる の は 何 か ? 定価 4,800Ғ 


PC-6001mk 1 /6001 = デー ーー 


AR : 57 年 暮 に 発売 ヒッ ト と な っ た “ピラミッド” の パー ト II ЖА, 
と 王室 の 数 は 、32 ク アド ベン チャ ー は 宝 を 求め て さま よ 
い 歩 きま す 。 各 面 に は 、3 つ の 宝箱 が あり 、 そ れ ぞ れ に ダイ 
ヤ 、 銃 、 ミ イラ 男 が 入っ て いま す 。 ダイ ヤ の 箱 を 開け る と 次 
の 面 に ワー ブフ す る 事 が で きま す 。 王 室 に 棲息 する 6 つの 
キャ ラク ター の 追跡 を 振り きっ て 、 あ な た は 32 の 王室 を 征 
服 で きる か ? 
特徴 : な ん と 32 の ヨ 


= 
ジョ イス ティ ッ ク は 

< м о 
パワ ー ド スー ツ の コク ビ ピット 
娘 パワ ー ド スー ツ に 身 を 包み 、 様 々 な 攻撃 パタ ー ン で せま り 
来る 宇宙 の 敵 を 次 々 に 破壊 し ます 
kF rL SRF IA!) 隠れ キャ ラク ター あり の 豪華 版 . 
ЖРС-6001(128х19232-22>7-2/2) 及び PC-600ImkII 
(320 X200 カ ラー グラ フィ ッ ク ) 用 の まっ た く 別 個 の プロ グラ ム を 
それ ぞ れ に 開発 し 、2 本 収録 し まし た 。 お の お の グラ フィ ックス を 
最大 限 に いか し た 、 高 速 リア ル タ イ ム ゲ ー ム を お 楽し み 下 さい 
※ 上 は 6001mkII の 画面 写真 、 

下 は 6001 の 画面 写真 で す . 


従来 の ピピ -6001 シ リー ズ ソ フト は PC- -6001mk ıı Iz 完全 対応 


EE (迷路 、 宝 箱 、 ワ ー プ トン ネル ) を 、 あ な た 
に 作り 変え られ ます 
言語 マン ン 語 十 BASIC ) 


品番 | 品 名 | 機種 | 定価 内 容 品番 | 品 名 | 機種 | 定価 | 内 容 

ТЕО! | アル a ル ファ ー ム ІРС-6001| %4,000)8:401052 54А 7798. Я | 征 E05 | リン シュ ー タ ー РС-6001 | Ұ4,000 ¿seems ai zas 
ТЕ02 | :oyzzef フ ァ f ヤ ー |PC-6001| ¥4,000 ас MAREE ТЕТ | TAEX ペ シャ ル PP 
TE03 | 977 | PC-6001| 4,000) т ижад. BERR HERREN] TE 08 | уу,іиушаз-л |РС-6001 ¥ 2,800 75279088 AA さらに Ti 
ТЕ04 | 2-кс2 |ро-во0т (жа, ооо ЕНЕ БАНАН ж リア ル ゴ ル フ ゲ ー ム の み mk TI で は 、 カ ッ プイ ン 時 に 画面 に 変化 が 表 わ れ ま す 。 


開発 スタ ッ フ 募集 中 ZZ 
株 式 会 社 テ ィ ー ア ンド イー YI 詳し く は 左記 に ご 連絡 くだ さい 。 
T465 名 古屋 市 名 東 区 有 藤が丘 14I 番 地 藤が丘 駅 前 ビル 4F TEL052-773-7770 


: カタ ログ 請求 券 
: PIO 


МХ 


ENIX“THANK-YOU” FAIR 
Пес. 15 ~ Jan. 20 


レニ 


PC-8001&PC-8801&PC-8001mkII ¥ 3,800 
シャ ー プ X-I&X-IC&X-ID ¥ 3,600 
РС-8001 mkII ¥ 3,600 

ЕМ-7 \ 3,600 
FM-7 7 FM-8 ¥ 3,600 
シャ ー プ X-I&X-IC&X-ID ¥ 3,600 
РС-8801 ҰЗ,600 


y 


қ 
127 704 


К 


1983.12.15 


хат” 


2 
а: 


いう 


“СЯ a 


YIADPIT—MCEAT 
1# ハワイ (4 泊 6 日 ) の 族 ら 名 
ら 等 グアム (3 泊 4 日 ) の 族 5 名 
3% マイ コン 雑誌 年 分 10 名 


“4 (|/0、 マ イコ ン 、LOGIN、OH/ PC の いずれ か ) 


4 等 エニ ックス オリ ジ ナ ル 『 シ ャ ツ NA 


応募 期限 昭和 59 年 | 月 20 日 (当日 消印 有効 ) 
応募 用 紙 の アン ケー ト に 答え て 当社 まで お 送り 
くだ さい 。 応 募 用 紙 は 全国 の 主 が な マイ コン ショ ッ 
プ 又 は 往復 ハガキ で 当社 まで ご 請求 くだ さい 。 
発表 主 な マイ コン 雑誌 4 月 号 誌上 。 


PC-6001&PC-6001mkII ¥ 3,400 
М2-700 % 3,400 
РС-8001 &РС-8801 &РС-8001 mkII ¥ 3,400 
РС-800 | &РС-8801 &РС-8001 mkII ¥ 3,200 
ЕМ-7 ¥ 3,200 
FM-7 ¥ 3,200 


5/2 — 2X-I& Х-1С& Х-10 ¥ 3,800 


ENIX 
GAME 
CORRES- 
POND 
MACHINES 


PC-8801 
PC-8001 
PC-8001mk 11 
PC-6001 
РС-6001тк 11 
FM-7 

FM-8 

SHARP X-1 
SHARP X-1C 
SHARP X-10 
М1-100 
MZ-1200 
М1-2000 
MZ-808 
MZ-80K C 
РАЗОРИА-1 


z iaei 


1984.1.20 | 


ИЛ, 


PERT 


ー ナレ ルカ モ シ レナ ン 


I 


УЗО? 


© 


2 
イル 


マー ク 付 ゲー ム を お 買上 げ の 方 に プロ グラ ムリ スト プレ ゼン ト 。 


シャ ー プ Х-1- М2.2000- MZ-80B Ұ2,800 
РС-8801 ҰЗ,200 
MZ-2000- MZ-80B 12,800 
PC-8801- PC-8001 (32K ) РС-8801тК П 13,200 
PC-6001(32K) PC-6001mk II Ұ2,800 
ЕМ-7/8 


PC-8801 用 ソフ ト は PC-8801mkII PC-6001mkII 用 ソフ 


РС. N FUN 
“800109; 
“вс К). Д 
Оаа Ч 
ч 


ます 。 


R な 


PC-8801- ハン ヒア 7\4.800 01$К(РС-8801)\ 6,800 PC-6001&mkII ¥ 3,200 
РС-8801 ¿ FM-7 7 FM-8 ¥ 3,800 РС-8801//РС-8001%тКкП ¥ 3,200 
РС-8801 Y 3,600 РС-8801 Y 3,800РС-8801 DISK ¥ 5,800< 近 日 発売 > 


(発売 元 2 て ) 株 式 会 社 小西 六 エ ニッ ワ ス 
PC-8801&PC-8001mkII&PC-6001(32K)&PC-6001mkII /FM-7・8\ 3,600 
ñ ==. š 行 元 株 式 = 
シャ ー プ X-| ¥ 3,600 GE 日 発売 > es Фит, 


ZZ 7Х510 3.200 +160 東京 都 新宿 区 西新 宿 7 丁目 15 番 10 写 信 03C366)425 1( 代 ) 


«лу ORESH 小西 太 エ ニッ リ ワ ス 


(発行 元 > е エニ ックス 


〒160 東京 都 新宿 区 西新 宿 丁目 15 番 10 号 な 03(366)425 1 代 ) 


— 


FM-7FM-8 ҰЗ,500 


ほ g と する 知 的 ゲー ム 。 操車 上 員 を 動 
ント を 切換 え 、 列車 を 脱線 ・ 介 
させ な いよ うに 並べ て くだ さい 。 ぶ ター ン は 次 々 


THET 何 面 ク で きる が 挑戦 馬 て くく だ さい 
# 


ЕУ мох ソフ トウ エア の 開発 お よび 移植 も お 受け いた し ます 


A Division of PAX Group J 


ОҒСОПІ 


ПУЛАУОоСТал а 
発売 元 ニ バッ クス ・ エ レク トロ ニカ * ジャ パン 
@101 : 東京 都 千 代田 区 外 神 田 3-9-2( 未 広 ビル ) 傘 (03)257-1085( 代 ) 


ペ ベース ボ ー ル Ps-3003 

PC-6001.PC-6001mkIl ҰЗ,200 

1 人 また は 2 人 て 楽し め る 野球 ゲー ム 。 相 手 と の 

か け ひ き の 楽 し は は も ちろ ん 、 画面 せま し と 動き ま 
わる アニ メタ ッ チ の 選手 の 動き は 銚 力 的 / 


FM-7,PC-6001,PC-6001mkII¥3,200| 
ちょ っ ぴり お 色気 の ある ミユ キ ち ゃ ん を 相手 に 、 カ 
ー ド の 真剣 勝負 。 あな た が 勝つ と ミユ キ ち ゃ ん は 
だ ん だ ん 服 を …。 あな た は ミユ キ ち ゃ ん に 「 ま いっ 
た 」 と 言わ せら れる か 7 


アタ ッ ク シ リー ズ 253501 

漢字 ROM 必 要 ) 各 \3.500 

ミナ ー ル 方 式 の 学 

習 ソ フト 。 レ ベル は 高校 卒 程度 。 第 1 弾 と し て 、(D 
漢字 2. 世界 史 ③ 日 本 史 の 3 種類 。 


スレ ンタ ダー アイ ラン ド ps-3oo4 
001РС-6001ткІ! \3.200 
飛行 機 で スレ ンダ ー 島 を 脱出 。 それ を 迎え る 英 
飛行 隊 。 多彩 な キャ ラク ター と サウ ンド が 興奮 を 
いち だ ん と 盛り あげ る リア ル タ イ ム ゲ ー ム 。 


し К а 
競馬 予想 プロ グラ ム розов 


近日 発売 カセ ッ ト Y13,000 


ジ カ ッ ツバ 募集 
ЯУ уу?) / 
個人 ある い ほ 等 計 般 の プロ クラ マー の 
БАР ХУ 7272 77 2/55 5 1862) 
り ます . ЧОН). 
7п2>%--405 203% “きる だ け 報 る つ 
も り で す , 当社 の 募集 シス テム に 興味 を お も ちの 
方 は 、 案内 春 を お 送り し ます の て 資料 請求 券 を 

官製 ハガキ に 貼っ て お 申込 みく だ さい 。 


この 壮大 な スト ー リ ー を 納め る に 
は コン ピュ ー タ ー と いう 手段 を 使 
うし か な か っ た 。 究極 の クロ ス オ 
ー バ ー マ シ ン で 完成 させ た SF 
スペ ー ス ファ ンタ ジー の 世界 を 


し な や か な 感性 へ 贈る スー パー クロ ス オ ー バ ー ゲ ー ム 。 


較 マニ ュ ア ル : その 文字 数 約 17.000 が 示す ゲー ム の 多彩 さ 。 画 ト ー タ ル テ キ スト メモ リー サイ ズ : 約 160KB。 
圏 X-1 の APSS 機 能 を フル に 生か し た 15 分 割 ロ ー ド 。 田 構 想 か ら 発売 に 10 ヶ 月 を 費やし た 空前 の 超大 作 。 


オク タム 歴 259 年 、 銀 河 系 で は 人 類 と ザク ロス 星人 の 2 つの 勢力 が 拡大 し 、 両 者 間 で は こ ぜ 
りあ い が 絶 えな い 。 ザ クロ ス 星 人 は 、 人 類 を 倒す た め 、 N Waw 
ふる さと 地球 を 破壊 し よう と NN た くら む 。 
ノー ビ ネ ス QASO 星 の 惑 星 軌 道 を 変え 、 地 球 
に 激突 させ % よう と いう も の だ 。 人 類 は 青い 星 、 地 球 を 救う た 
め 、 セ ント コス モス 号 と いう 宇宙 船 を 建造 し 、 宇宙 へ 飛び 立つ 。 


жа дж 


カセ ッ ト バ ー ジ ョ ン … ず \4,800 


ж PERSONAL COMPUTER SOFTWARE 


На... s о о VIL [IF | 
な っ て 、 現金 書 劉 か 、 小 為替 で 右記 まで お 送 大 mel フト バン ク и 


りく だ さい 。 送料 は 、 サ ービス いた し ます 851-725] クリ スタ ル ソ フ ト 株 式 会 社 


474-9065 F533 大 阪 市 東淀川 区 豊 新 3-8-11 い ほり ビル 2F TEL(O6)3 


Machine Character Input Editor 


ノル スク リー ン シ II 


FULL SCREEN П 15:::: 


面白 そう な ゲー ム が ある 。 こん な ブログ ラム が 欲し い 。1/O 読者 の 君 な ら 、 
3000 円 な に が し を 払っ て ソフ ト ・ カ セッ ト を 買う よう な 真似 は し な い は ず だ 。 
自作 派 は 自分 の プ ブログ ラム が 起動 し た と き の 喜 び を 知っ て いる 。 だ が 、 問題 
は ブロ グラ ム 作 業 だ ど 。 マ シン 語 ダ ンプ '・ リ スト か ら の 入力 は 時 間 が か か る し 
エラ ー も 起こ し や すい 。 し か も ブロ グラ ミン グ 中 に エラ ー チ ェ ッ ク で き な い の が 
区 点 だ 。 せ っ か く 〈《 ブ ログ ラム し 終わ っ て も 起動 し な い こん な に が い 経 験 が 
2 度 や 3 度 は ある は ず だ ぶ フ ルス クリ ー ン II” は 、 こ うし た や っ か いな 問題 を 一 
挙 に 解決 し て くれ る 。 作 業 時 間 は 今 ま で の 5 分 の 1 。 し か も 、 プロ グラ ミン グ 
し な が ら チ ェ ッ クサ ム が で きる の で 、 エ ラー も 即座 に 発見 で きる 。 

君 の 右腕 に な る ベー シッ クシ ステ ム だ 。 


они ИӘ METRI JIS, DO N, 


AF まで の キー は 、 テ デン キー で も 入力 可能 で す 。 
MON コ マ す 。 
リス ト か ら の 入力 は も ち と 43-0) 
柳 正 や ダン プ 出 力 と し て も 使用 で きま す 。 
テキ スト エリ ア ・ シ ステ ム エ リ ア 等 、 使 用 で き な い 
エリ ア は 、 未然 に チェ ッ ク し て くれ ます か ら 破 壊し 
た りす る こと は 、 あ り ま せん 。 

度 入 力 し 終わ っ た デー タ も 、 箇 単に 修正 で きま す 。 
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さ に 便利 に な っ た フル スク リー ン 、 是 非 お 試し 下さ い 。 


| バイ ト 入 力 と 同時 に 縦横 に サム 表示 され 、 
チェ ッ ク サ ム し な が ら 入 力作 業 が で きま す 


フル スク リー ン II は 、 機 械 語 の 入力 作業 を よ さら に 、 入 力 画面 を 用 いて 、 入 力 し な が ら の 
り 簡単 に 、 よ り 早 く 、 よ り 正 確 に 行う た め の 編 修正 作業 、 必 要 に 応じ て の プリ ンタ 出力 、 テ 
集 機能 を も つ ベ ー シ ッ クシ ステ ム で す 。 フ ル 一 プ や フロ ッ ピ ー へ の SAVE ま で も 可能 で 
スク リー ン II を 使用 する こと に より 、 入 力作 。 す 。 し か も 、 オ ペレ ーション ミス に よる デー 
業 が 画面 単位 で 自由 に 行え る よう に な り 、 し タ 消 減 、 画 面 損 失 は あり ませ ん 。 こ れ ま で の 
か も 256 バ イト (| 画面 の の チェ ッ ク サ ム を 行う 1 バイ ト 単 位 の 面倒 な 入力 作業 は 時 代 遅 れ 。 
こと が で きる よう に な り ま し た 。 あな た も フル スク リー ン II を お 試し くだ さい 。 


あの フル スク リー ン が バー ジョ ン ア ッ プ し て 新 登 場 / 
フル スク リー ン П 価格 /4.000 円 (カセ ッ ト )、5,000 円 (5 イン チ )、6,000 円 (8 イン チ ) 


ФІЕНЖУЕ РС-8001,РС-800ІткіП,РС-8801,РС-9801,ҒМ-7.ҒЕМ-8,.ҒЕМ-11,М280В, 
MZ80B2、MZ-2000、 日 立 LEVELI、 日 立 LEVELII マ ー ク П 
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THE ま あじ № А,РС-9801 A 

今 、 話 題 が 沸騰 し て 水蒸気 に な っ て お り ま す 。 
御存知 4 人 マー ジャ ン ゲ ー ム 。( マ シン 語 思 考 型 ) 画 相 手 の 3 人 
E も 高い 手 を 狙っ て リー チ 、 ポ ン 、 チ ー を し ます 。 還 自分 の チー、 ポ ン 
可能 な 時 は 点滅 信号 で 教え て くれ ます 。 革 実戦 同様 チョ ン ポ リー チ 
š も いっ た ん 受け つけ ます が 、 あ と で チョ ン ボ を 判定 し ます 。 男 画質 の 良き は 
PRET РЕЖ СИНИЕ 画 高 解像度 騙 ス プレ イ 、 漢 字 ROM が 必要 で も 


(5455 \6,000.8 イ ンチ ¥ 7,000) 
圏 PC-9801F 用 も 発売 中 ./PC-100 用 は た だ いま 開発 中 で す 


マイ コン ショ ッ プ 西 神戸 
$653 神戸 市 長田 区 西 尻 池町 2 丁目 5 の 18 全 078(611) 4194 
通信 販売 承り ます 。 お 求め は 現金 書留 に て (送料 無料 ) 


THE あ て な PC-9801 用 
これ は 便利 ./ 宛 名 シー ル 印 刷 の 決定 版 
較 登 録 し て な いた 住所 、 宛 名 を ワン タッ チ で シー ル 印 刷 。 園 美 し い 画 面 、 使 用 
者 の 立場 か 6 考案 る $ れ た 実戦 的 アロ グラ ム で す 。 較 住所 、 宛 名 の 入力 項目 は それ 
ぞ れ 2 項目 、1 項 目 あたり 20 字 まで 入力 で きま す 。 ワ ー プ ブロ 同様 に リ ァ アルタイ ム 変換 
で きる 熟語 辞書 を 持っ て いま す 。 園 頻繁 に 使用 きれ る 漢字 は ファ ンク ショ ン ・ 
キー で ワン タッ チ 入力 。 園 タッ クシ ー ル が 1 列 で も 2 列 で も 選択 し て 使用 
で きま す 。 園 印刷 位置 の 微 調整 が 用 紙 に 触れ る こと な 〈 く で きま す 。 
較 高 解像度 ディ スプ レイ 、 漢 字 ROM が 必要 で す 。 圏 PC-8822 
・PC-PR201 プ リン ター 使用 。 


⑯ イ ンチ \8,000.8 イ ンチ Ұ9,000) 
画 PC-9801F 用 も 発売 中 ./ PC-100 用 は た だ いま 開発 中 で す 


MILD SOFT INFORMATION ЖА MILD SOFT 
マイ ルド ・ ソ フト 


каюм! トミ ー と ジャ ム ШІ Б 
| Е ° | ы. 
£ = E ` Г. E 
A н ит . ` 
қ туу Ұз, ВОО тиуі 3,800 
ドミ ー と ジャ ム 


3,800 円 爆走 / 5000 マ イル 3,8007 
* ネ ズミ が ネコ に か ら み つい だ !? ト ミー と ジ 
ヤム 、 仲 よく ケン カレ な 。 
шуа 
ШРС-8001тк1 


* 快 音 を 轟かせ 並み 居る 車 を ひ わ し て 走れ ル 
栄光 の 死闘 、5000 マ イル 。 

回 マシ ン 語 

一 PC-BOO1mkII 


PC-8001 mk 11 | ぁ の むし 


e А À = 
52» е туу 3,800 ы 
み の お し レ ホイ ホイ 3,8008 〇 SNAKAR 3,8008 
$ 田吾作 の 仕事 は 果樹 に 取り つく 忠司 。 @ 夢 導 ら さめ だ ら 自 分 が ヘビ に な つて いた だ た 。 も う 、 
で も の ん びり や つて られ な い 。 弱肉強食 の 世界 、 食 う ガ 食わ れる か だ 。 
一 マシ ン 語 m: 
圏 PC-80O1mkII ШРС-8001тКкІ 


や まだ の お ろ ち 3,8008 
тте 撃退 する に は 


e 動 きまま わる エイ リア ン 。 穴 を あけ て 沙 し て 
し まう し ガ 道 は な い 。 

田 オ ー ル ・ マ シン 語 、 モ ニタ ー よ り ロ ー ド 。 

ШМ7-700(22-) 


男 オ ー ル マシ ン 語 、 モ ニタ ー よ り ロ ー ド 。 
ШМ7-700(2>-2 


РС-8801 


PC-8001 mkII 
(N-BASIC) 


vori 


“ 4 ь_› my 2 
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3 
5 ゃ あな だ は 、 数 多く の 武器 を も ち 、 ス ー パ ー ボ ー ө 古い 歴史 も つ テ ー ブ ル ゲー ム が いま 画面 に 。 
ル を 呼べ る 唯一 の 人 間 。 か つて な い 高度 な ゲー ム 。 С 

Q _ ms 2 

O サザ サポー カー mPC-8801. PO-8001 mkII MZ 200072 RSA ЕМ-7, 

E море Basic ¥3,500 
e 本 格 的 パソ コン ・ ギ ャ ン ブ ル 。 DYE ト 文 御 注 文 は 、 現 金 書留 か 銀行 振込 に て お 願い し ます 。 
Ер Алы ысы s= E e お 振込 み 先 = 狼 十 二 銀 行 南 松本 支店 普通 口座 No420159 
画 MZ-ZO0( カ ラー)、PC-8OO1mkT 店 全 商 品 送料 サー ビス で す 。 


YIPO ҒЫНЫ 


INTEGER BASIC COMPILER 


リラ 


ゲー ム を 作る 人 に , ゲー ム で 遊ぶ 人 に . 誰 
も が マシ ン 語 の 世界 を も の に で きる コン 
バイ ラ の 威力 を 知っ て も らい た い .PC に 


続い て MZ の BASIC じ コン バイ ラ 新 発売 


PC-6001mk II 


EAS る TS 


コン パイ ラ ROM x 2 9 800 
マニ ュ ア ル (カー トリ ッ ジ 別 ) жый gy Ç m 
BASIC イ ンタ ー プ リタ の スピ ー ド が 気 に な り だ し た ら , BASIC コ ン パ イラ 


を 試し て み ま せ ん か . BASIC プ ログ ラム を 高速 の マシ ン 語 プ ログ ラム に 
一 気 に 変換 す る PC-600 ImkII 用 EXAS-XII コ ン パ イラ . ROM 仕 様 な 
の で ROM&_RAM カ ー ト リッ ジ に セッ ト し , 本 体 に ワン タッ チ 操 着 す る だ け で , 
PC-6001mkII が コン パイ ラ ・ マ シン に 変身 し ます . し か も , ほとん どの Ns 
BASIC と コン パチ ブル な の で , 初め て BASIC コ ン パ イラ を 使う 方 で も 簡単 
TF. コン パイ ル さ れ た オブ ジェ クト に , ラン タイ ム ・ パ ッ ケ ー ジ (別売 ) を 
使っ て ラン タイ ム ・ ル レー チン を 付け れ ば , PC-6001, PC-6001mkII の 両 
方 の マシ ン で 走る マシ ン 語 プロ グラ ム を 作成 する こと が で きま す . 
@Nso-BASIC の 90% も の 命令 を サポ ー ト , BASIC で プロ グラ ム が 組め 
る 方 な ら , どなた で も 手軽 に 操作 で きま す . も ちろ ん , デバ ッ グ は イン 
ター プリ タ 上 で OK.( 整 数 型 コン パイ ラ で ,Neo-BASIC32K モ ー ド で 使用 ). 

オン メ モリ だ か ら 手 順 は 簡単 , し か も 400 一 600 行 も の 大 き ほな プロ グラ ム 
の コン パイ ル が 可能 . 幅 の ある プロ グラ ム 作 成 が で きま す . 

@ 処 理 速度 は イン ター プリ タ に 比べ て 超 高速 (BYTE 誌 ベン チマ ー ク ・ テ ス 
ト の NO0.-N0.7 の 合計 で イン ター プリ タ 443.| 秒 に 対し , コ ン パ イレ され た 
オプ ジェ クト は わずか 8.|6 秒 ). 動 き の あ る ゲー ム も ハイ スピ ー ド で 楽し め ま す 

コン パイ ル さ れ た オプ ジェ クト の セー プ ブ , ロー ド は BASIC の セー プ , п 
ー ド と まっ た く 同 一 で す . 商品 名 : BASIC コ ン バ イ ラ mkII 


EXAS シ リー ズ 好評 発売 中 (いずれ も 32K) 


Р フン タイ ム パ バッ ケー ジ za, 00s 


ハル ハイッ スピ ビード 麻雀 «4,000 
DEN 7471: マン ( 3 ネ 入 «0,000 
L J М7-2000/2200/808 


RS 3945 


に や 人 -ай,800. | 


MZ の BASIC (MZ- 1Z001/SB-5520) の ほとん どの 命令 を サポ ー ト し 
た 整数 型 コ ン パ イラ で す . 16 進 数 や 論理 演算 等 の 拡張 機能 や 変数 領域 
を 自由 に 設定 で きる た め , 分 割 コ ン パ イル で 大 き な プ ログ ラム を 扱え 
#3. オプ ジェ クト は 専用 ラン タイ ム ・ ル ー チ ン で 動作 (2000/2200 と 
80B で 互換 性 あり ). カセ ッ ト 仕 様 の た め 安 価 で す . 


- | FM- フ 
RS | コラ 
EE BABE 


F-BASIC の 多く を サポ ー ト し た 整数 型 
BASIC コ ン パ イラ で す . ROM, 基板 の 仕 
様 の た め , 基板 を 本 体 に 操 着 する だ け の 
準備 で FM-7 が コン パイ ラ ・ マ シン に な 
り ま す . 拡張 機能 も あり 幅 の 広い プロ グ 
ラム 作成 に 役立ち ます . 


写真 は 製品 と 異な る 場合 が あり ます . 


Шопдег Soft © 


СОМРАС.-. вжятля-л-22 
151 東京 都 渋谷 区 代々 木 |-37- | ぜん らく ピル 容 (03)375-3401 
送料 は 500 円 , 2 点 以上 は 2 点 以降 | 点 !00 円 増し 


パソ コン 将棋 の 歴史 が 変っ た | 思考 型 パ ソコ ン 将 棋 . パソ コン 棋士 が あな た の 手 を 読 
み 瞬 時 に 次 の 一 手 を 打ち 返す . 局面 を 読む スピ ー ド と 繰り 出す 手 は 見 事 な ま で の 腕前 . 
王手 を 狙う も な た は いつ し か 真剣 勝負 の 世界 に 浸る . 中 飛車 の 急 戦 , 相 掛け 戦 , 得意 
の 振 飛 車 王手 飛車 取り に あな た は どう 戦う ? 手強い パソ コン 棋士 と の ぶつ か り 合 い 
あたかも 盤 上 に 激しい 火花 が 飛び 散る よう だ / 入門 者 か ら 中 級 者 に お すす めし た い 
対局 将棋 . 従来 の 2 人 で 打ち 合う 将棋 盤 ゲ ー ム や , 棋譜 を 入力 し 再現 する トレ ー ニ ン 
グ ・ ゲ ー ム と は 違う , 本 格 的 実戦 将棋 の 醍 桃 味 を 充分 に お 楽し みく だ さい . 


аний 


СОМРАС 


1 手 1 手 の 深い 読み が 勝負 . 庄 将棋 の 決定 版 / 


将棋 の 実力 練 成 に 最適 な 詰将棋 て す . 本 の 問題 で は つい 解答 を 見 て し まっ た り , 途中 
で 投げ 出す 人 も 多い は ず . し か し , この パソ コン 詰将棋 は あな た を 将棋 名 人 に すべ く ., 
徹底 的 に し ご いて くれ ます . る 問題 の 難易 度 は 9 段階 , 初級 者 か ら 上 級 者 まで 実力 に 

応じ た 問題 を 選ぶ こと が で きま す . @ 問 題 数 は 厳選 され た 60 問 , | 手 詰 か ら |5 手 詰 ま 
T, 多彩 な 問題 が 収録 され て いま す . @ 各 問題 に は 制限 時 間 が 設定 され , 時 間 内 な ら 
何 度 で も 挑戦 で きま す . 解答 時 間 は 得点 化 さ れ ス コア に 表示 され ます . パソ コン の メ 
ッ セ ー ジ や , 凝っ た В GM か 道場 の 厳し い 雰 囲 気 を 和らげ ます 


軍人 将棋 


FM-/ 


「 軍 人 将棋 」. 大 人 か ら お 子 さ まま で ご 一 緒 に どう ぞ . 
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COMPAC 


4 кулуевеоия, BES 2 stri! | 


シミ ュ レ ーション 戦争 ゲー ム の 古典 , 「 軍 人 将棋 」. その 「 軍 人 将棋 」 が パソ コン ・ ゲ ー ム 
に な っ た . 敵 味 方 に 分 か れ た 駒 が あな た と パソ コン の 楽 配 で , 陣地 を 暑 け た 激戦 が 展開 
LEF. パソ コン と あな た と の 頭脳 の 戦い !! 作戦 を た て , 陣地 に 駒 を 配置 し , 審判 は 
コン ピュ ー タ か 受け 持ち ます . ルー ル は 簡単 , 左右 の 突入 口 か ら 敵 陣 に 攻め 込み 敵 の 
駒 に 当て , 判定 に より 負け た 駒 は 取り 去ら れ 勝敗 が 決ま り ま す . 駒の 動か し 方 を 考え , 
責 の 司令 部 を 占領 する か , 少佐 以上 の 動け る 駒 を 一 掃 し た 方 が 勝ち で す . 昔ながら の 


PC-8801, PASOPIA7 
СОМРАС 


魔女 モ ヘ へ カ に さら われ た 姫 を 相 
棒 ダン と 力 を 合わ せ て 救い 出す 

アド ベン チャ ー ゲ ー ム . 32 色 で 
52 ィ ッ クス 
$ に 隠さ れ た 謎 を 解き な が ら 館 の 


カナ 文字 式 な の で 誰 に で も 0OK. 


リア ル タ イ ム ・ シ ミュ レー ショ 
ン ・ ゲ ー ム . あな た は 最新 宇宙 
船 の 艦長 だ . レー ザー 砲 , ホッ 
トロ ッ ク ・ ミ サイ ル , ホー ク ・ 
アイ な と の 最新 兵器 を 駆使 し て 
広大 な 星 域 か ら ク ロッ クベ ー ダ 
ー を 捜し て 撃破 せよ . SF の 世 


BON BON 
30 8587115 


РС-8001тк II 
СОМРАС 


「BON ВОМ, 5 種類 の ユニ ー ク 
な キャ ラク タ が 各 画 面 で 必殺 攻 
撃 を か ける 大 迫力 の ゲー ム . 

I 「3D 叱 ヶ 島 チェ イス 」 は 立体 

息 ヶ 島 に 迷い 込ん だ 桃太郎 と 青 
オニ 、 赤 オニ の 必死 の 追い か け 
эс, 方 向 感 覚 が 困 乱 する と こ 
ろ が 面白 い . 


Al'G-RAM+dB-BASIC 
COMPAC 


「 マ イ テ ィ ・ パ スタ ー」 大 変 美 し い 
画面 と 迫力 ある サウ ンド が , リ 


敵 基 地 の デ ィ フ ェ ン ス ・ シ ステ ム 
を 突破 せよ /「 侵 略 者 ゼ ギ ロ ー グ 」 
聞 の 儀式 で 次 々 と 送り 込ま れる 
謎 の 怪物 や 植物 . 刻々 と 迫る 危 
機 を 脱し , 悪 の 根 を 断 て ./ 


姫 は あな た を 待ち わび て いる ぞ . 


界 が あな た の M Z に や っ て きた -. 


2 本 入っ て お 買得 . 


アル な 砲撃 戦 を 一 層 鮮 列 に する . 


PC-8001mkII /8801 
COMPAC 


新 分 野 を 拓く ロー ルプ レイ ング ・ 
ゲー ム . 森 や 街 や 城 を さま よい 
В な が ら , 食べ 物 を 買っ た り , R 
I BERA, ライ オン や 衛兵 
と 闘う . 不老 不死 の 命 が 授かる 
4 本 の 聖 語 を 手 に 入れ る た め に ., 
見 知ら ぬ 国 で の 数 々 の 試練 を 克 


ARL, あな た 自身 を 鍛え よ / 


フレ イン ー ド ライ バー 


PC-6001.32K тісі! 
ZEC SOFT 


Z EC ツイ ンカ ム ・ タ ー ボ に 乗 
っ て アク セル 全開 ./ 交 通 ル ー ル 
を 無視 し て 悪事 の 限り を 尽 す 暴 
走 族 ゲ ー ム . スピ ー ド 違反 , Е 
号 無視 , 幅 よ せ や 女の子 を ナン 
パ す る と 得点 アッ プ . 並み の カ 
ー レ ー ス と は 大 違い の 爽快 感 , 

スト レス 解消 に 最高 の ゲー ム だ . 


PC-6001۰32K/mkIl 


COMPAC 


「 ス ー パ ー テ ニス 」 パ ソコ ン ・ ギ 
ャ ル と 楽し く プ レイ . か わい い 
ギャ ル の フォ ー ム や 球 に 合わ せ 
て 向き を 変え る 審判 に ご 注目 Z 
「 ザ ・ ス トリ ー ム 」 血小板 を 足 
場 に ウイ ルス を 退治 する ミク ロ 
世界 の 大 冒険 . 2 本 入っ て 2 倍 
楽し め る 2 ゲー ム ・ シ リー ズン / 


アニ ー ズ ・ カ ジノ 
セク シー ヒビ ン ポー ル 


FM-7 
COMPAC 


3521 / ORE £ лс 
きる 2 本 入り , ギ ャ ンプ ブル ・ ゲ ー ム . 
「 ア ニー ズ ・ カ ジノ 」2 人 の 悩ま し げ 
な パ バニー ガー ル , サリ ー, マリ ー 
と 一 緒 に プレ イ す る 本 格 ポ ー カ 
ー ゲ ー ム .「 セ クシ ー ピ ビンボ ー ル 」 
ピン ボー ル の 華 豚 さ に パチ ンコ 


の キ ギャン ブル を 加え た ゲー ム . 


魔女 モ ヘ カ の 館 聖 記 伝説 


FM-7 
Wonder Soft 


Уч 


ニ メ 映 画 と タイ アッ プ し た ス 
トー リー. ビル の 最上 階 に いる 
ドー ソン を 倒す た め に 単身 潜入 
し た ゴル ゴ を , スネ ー ク を は じ 
め と する 殺し 屋 達 が 狙う . ゴル 
ゴ の 弾丸 は 障害 物 に さえ ぎら れ , 
殺し 屋 の 弾丸 だ けが 看 害 物 を 打 
ち 砕 く . 危 うし, ゴル ゴ |3/ 


PC-6001・32K 
2ЕС SOFT 


黄泉 の 国 か ら 骸 骨 の 死神 が や っ 
хан, 聞 に 春 く 地獄 の 妖怪 が 
жах 51-6985), 妖怪 を 倒 
す に は 精 圭 ミサ イル し か な い . 

狂気 の 地獄 絵図 . 想像 を 絶する 
胎内 世界 , 狂気 が 創り あげ た キ 
ャ ラク タ に 思わ ず 絶 句 す る こと 
うけ あい / 


エイ リア ン ・ セ クシ ョ ン 
ライ フ ・ カ プ セ ル 
XI|:G-RAM+dB BASIC 


「 エ イリ アン ・ セ クシ ョ ン 」 運 
搬 用 キャ リア に 爆弾 を 積ん で 侵 
入 し た エイ リア ン を や っ つけ る . 

「 ラ イフ ・ カ プ セ ル 」 倉 庫 に 侵 
入 し た エイ リア ン を 逃 が れ , Е 
料 医 薬品 の 入っ た ライ フ ・ カ 
プ セ ル を 搬出 . で も 生命 継 持 装 
置 は 100 秒 し か も た な い の だ / 


Туре Package 
йз, ООО 


お 求め ( и ・ シ ョ ッ プ , 有名 書店 で . 
通信 販売 の 場合 は 送料 | 本 500 円 , 2 本 目 以上 は | 
本 に つき 100 円 増し (0) 2 本 な ら 600 円 ). 


COMPA Onc. 


発売 元 / 株 式 会 社 コ ム パ ッ ク ® (03)375-3401 
TIS 東京 都 渋谷 区 代々 木 !-37-| ぜん らく ビル 5F 


s 


Xx РС-6001 /mk II ЕМ-7/8 
PC-EX-04 | BASIC コン パイ ラ Ұ9,800| 6001 専 用 ROM FG-02 | ゴル ゴ 13 B6 | \3.000| FM-7 専 用 
PC-EX-10 | BASIC 27,1 5 тк B5 | Ұ9,800| mkII КОМ CC-1002 | ЖАНЕ | Be | ҰЗ,000| FM-7 専 用 
PC-EX-08 | ラン タイ ム ・ パ ッ ケ ー ジ | В5 | ¥4,500| 32K CC-1056 | アニ ミー ズ : カ ジ // ャ クシ ー ビ ピン ポール | B6 | ҰЗ,000| FM-7 専 用 
| PC-EX-01 | BEST モニ タ B5 | Ұ9,800| 6001 専 用 32K КОМ CD-1088 | 将棋 対局 B6 | \3.000 
PC-EX-03 | ソー ス ・ フ ァイル ・ ジ ェ ネ レー タ | B5 | \9.800| 32K CC-1009 | メロ ン ・ パ ニッ ク Р | \3.000| FM-7 専 用 
PC-EX-02 | エディ タ ・ ア モン プラ B5 | \9.800| 32K ROM CC-1010 | INDY-7 Р | ҰЗ,000| FM-7 専 用 
PC-EX-05 | х FRE | Bs | %4.000| 32К CD-1025 | 戦車 最前 線 Р | \3.000 
% PC-EX-09 | オー ディ オォ ・ マ ン B5 | \4.000| 32K CC-1034 | OCTOPUS GARDEN | P | ҰЗ,000| FM-7 専 用 1 
823 X2 B5 | ¥4,500| 32K CC-1041 | パラ レー ザー | P | \3.000| FM-7 専 用 
GT-01 | GTX1 ジャ ッ ク & ダ イア ン А5 | \3.500| 6001 専 用 32K CD-1058 | フラ イン グ ・ シ ザー ス P | \3.000 
GT-02 | GTX2 スペ ー ス ・ ペ ン ギ ン A5 ¥ 3, 500 | 6001 専 用 32K CD-1071| ハウ ン テ ッ ド ・ ハ ウス P ¥ 3,000 
GT-03 |GTX3 クラ プ ・ プ ラ ネ ッ ト А5 | \3.500| 6001 専 用 32K CC-1086 | と むき ゃ っ と Р | ҰЗ,000| FM-7 専 用 
GT-04 |GTX4 ジュ ピタ ー パ トロ ー ル A5 | \3,500| 6001 専 用 32K CC-1090 | 詰将棋 道場 B6 | ҰЗ,000| FM-7 専 用 
| GTH-01| GTX ジャ ッ ク & を ダイ アン | A5 | Y3,500| mk 専用 CD-1091 | 魔 宮 デ ル タ | E | ҰЗ,000 
GTII-02 | GTXII2 スペ ー ス ・ ペ ン ギ ン A5 | ҰЗ,500| mkII 専 用 CC-1096 | エッ ク ・ ボ ンプ Р | \3.000| FM-7 専 用 
СТП-03 | GTX IT3 クラ ブ ・ プ ラ ネ ッ ト А5 | \3.500| mkII 専 用 
ü GTII-04 |GTXI4 ジュピター パトロール | A5 | \3.500| mk 専用 М2-700/1200, вок/с 
ZE-01 | 骸骨 は 死 の 臭い B6 | ҰЗ,000| 6001 専 用 32K BE-1014 | CLOCK VADER В6 | ҰЗ,000 | 
2Е-02 | タク レイ ジー ドラ イ バ ー B6 | Ұ3,000| 32K 
AA-1028 | スー パー テニ ス / ザ ・ ス トリ ー ム Вв \3.000| 32K М27-2000/2200/80В 
AA-1020 | 将棋 対局 B6 | \3.000| 32K MZB-EAS-3 | EXAS-MZ コ ユン パイ ラ A5 | Ұ4,500 
AA-1005 | スパ イ ・ パ ニッ ク P | \3.000| 32K BC-1008 | バト ル ・ フ ォ ー メ ーション Р | \3.000| 80B 専 用 WICS 
AA-1006 | ラリ ー16 P | \3.000| 32K ВВ 1039 | ホロ ス ュ ー プ P | ҰЗ,000| ZG-RAMI-80B/20047 
AA-1026 3—3 まう す 2 P | ¥3,000| 16K ВВ-1043 | SPRING MONSTER Р | У3,000| %0-КАМІ"808/200481 
サ AA-1027 | YELLOW PRATROOP P | ҰЗ,000| 32K BC-1050 | カラ ー 版 CLEAN CLIMBER | P | ҰЗ,000| 2000/2200 専 用 
AA-1038 | SEA FIGHTER P | \3.000| 32K BC-1051 | カラ ー 版 DAN GAME P | \3.000| 2000/2200 専 用 
AA-1059 | 7 7 DHF P | \3.000|16K BC-1062 | イー テン ТР | \3.000| 2000/2200 専 用 
1 AA-1060 | 必殺 ./ FA Р | \3.000|32K X1 
PC-8001/mk П BF-1085 | マイ テイ ・ バ スタ ー/ 侵 中 者 せ ロ ー グ | B6 | \3.000| #G-RAM.dB-BASIC 
$ 838 |N-BASIC の 拡張 B5 | ¥4,500|8801 可 SX-01 | エイ 1 リア ン セ クシ ョ ン / ぅ 1 フカ プ t ル | B6 | \3.000| #G-RAM.dB-BASIC | 
Е АВ-1013 | 聖 剣 伝説 B6 | ¥3,000| 88017 BF-1042 | マイ ホー ム ・ プ ラン | P | \3.000| #G-RAM.dB-BASIC 
АЕ-1001 | BON BON/3D 上 鬼ヶ島 チェ イス | B6 | \3.000| mk 1 #7 ВЕ-1063 | 夢 の 有 馬 記 念 ゲー ム P | \3.000| #G-RAM.dB-BASIC 
АЕ-1003 | PC- ジ ャ ン mkIl Р | \3.000| mkII 専 用 | ВЕ-1064 | š ミス テリ ー ボ ー イ P | \3.000| #G- RAM.dB-BASIC 
AF-1004 | モン スタ ー ハ ウス Р | \3.000| mk 専用 
AB-1017 | INTERCEPTOR | P | ҰЗ,000) 880151 | L3-40K/MK5 
AB-1030 | BIG SHELTER P | Y3,000| 8801 可 | 843 [F(zm2+2 ууа) В5 | ¥4,500| 40К 
AB-1031 | DOUBLE BARRIER Р | \3.000| 8801 可 GTH-1 | GTH1 スキ ッ パ ー АБ | ҰЗ,500| 40K 
AB-1037 | GALAXY SEARCH Р | \3.000| 8801 可 | 709 |3DFLIGHT SIMULATOR P | Y3,000| L3・40K 専 用 
AB-1082 | ピッ ト ・ イ ン Р | \3.000| 88017 DA-1061| フル ー ツ ・ パ ニッ ク P | ҰЗ,000| 40K(MK2 不 可 ) 
AB-1083 | リフ ロフ Р | ҰЗ,000| 8801 可 DA-1078 | mc カン トリ ー ク ラブ Р | \3.000| MKS 専 用 
DA-1079 | けり ん か を や め て Р | \3.000| MK 専用 
PC-8801 DA-1081 | ェ エイリアン Р | Y3.000| MK5WHJ 
758 | 書斎 B5 | \4.500 
ا‎ АС-1012 | 魔女 そ へ カ の 館 | Be ЕТІН РАБОРІА5/7, PASOPIA 
に AC-1007 | で ら ふ いっ く 花 札 こ いこ い Р | \3.000 ТТІ | イエ ロー デ プ マ リン A5 | Y3.500 
= AC-1040 | スネ ー ク ・ ワ ー ル ド P | \3.000 EB-1036 | PTA | Aas | 0 
AC-1057 | 3D タ ンク ・ コ ン バ ッ ト Р | ҰЗ,000 ЕВ-1032 | 魔女 モ ヘ カ の 館 B6 | Y3.000| 72911 
EB-1084 | で ら ふ いっ てく 人 花札 こい こい P | Y3.000| 74/11 
PC-9801 ЕВ-1089 | ミネ マ の 宝石 P | Ys.000| 7% 
AD-1080 | イン モク ト の 復讐 P | \3.000 | ЕВ-1093 | ステ ッ プ ・ ソ ツリ ティア ПИ 3.000 | 
еше FM-7/8 | | FP-110O 
813 | 拡張 コンパ イラ B5 | \4.500 йй CA-01 | >> 2 4 z РЖ ГР | v3.000 
CE-D006 | 拡張 K コ ン パ イラ V33.0 A5 | \12.800| 1 対応, 5FD ; 
ЯЗ CD-1019 | サウ ンド ・ エ ディ タ Ver2.0 B5 | \4.500 JR-200 
— 829 | エディ タ ・ ア モン プラ V2.0 В5 | Ұ4,500 СВ-1044 | SWASHBUCKLER ЭШ P | Y3,00[USA4 Z+ 
CD-1066 | MTOOL 09 1 В5 | Ұ4,500 СВ-1045 | SOLITAIRE P | ҰЗ,000| U.S.A. Y Z+ 
840 |F-BASIC EXPANDER B5 | Ұ6,000| FM-? 専 用 СВ-1046 | VORTEX P | \3.000| USA ォ リ ジ ナ ル 
CD-1070 | Xš В5 | Ұ9,800 СВ-1047 | MARS CARS fi Р | ҰЗ,000| U.S.A. + 9 Z+ 
CE-D007 | ファス クリーン ・ ェ ディ タ MICRO-Vi | А5 |¥12,800| П, ЕЮ | GB-1048 | CRAZY MAZEY P | \3.000| US.A ォ オリジ ナル 
СТЕ-01 | GTF1 ギャ ンプ ラー A5 | ҰЗ,500| FM-7 専 用 GB-1049 | THIEF 1 Р | ҰЗ,000/1/5А4/27» 
FG-01 | グラ フィ ッ ク 野 球 ゲ ー ム А5 | ҰЗ,500| FM-? 専 用 
FG-03 | パッ ュ コン ・ グ ラフ ィ ッ クス 人 門 回 | A5 | \3.500| FM-7 専 用 APPLE II 
FG-04 | CPU パッ ュ ン グラ フィ ックス 人 門 国 | A5 | ¥3,500| FM-7 専 用 LA-1092 | 爆走 ! FUJI-FI P | \3.000| 要 ジ ョ イス テッ ク | 
通信 販売 は 商品 名 , 品番 , 機種 名 , 定価 を 明記 し て , 現金 書留 が 郵便 振替 で お 送り くだ さい 。 
ARTET @ 郵 便 振替 郵送 手数 料 は 
49151 3 122-3234 (УМАР 
東京 都 波谷 区 代々 木 1-37-1 東京 4-33971 SEE RES ен СОМРАС 
ぜん らく ピル 5F 株 式 会 社 2 本 以上 1 本 増す ご と に 100 円 増 wa. 
、 株 式 会 社 コム パッ ク コム パッ ク 染 上 記 の 価格 表 に は 郵送 手数 料 は 含ま れ て いま せん 。 | 151 東京 都 渋谷 区 代々 木 37-| ぜ ん らく ピル 5F 
ーー — Ç 人 (03)375-3401( 代 ) 


※ お 申し 込み いた だ いた 商品 は , 現金 到着 後 お 手元 に 届く まで 約 2 週間 か か り ま す . 


で 


FM-7 


BASIC+ マシ ン 語 (デー タ ) 


U 


いま まで の ゴル フ ・ ゲ ー ム と 言え ば た い 図 2 パッ ティ ング コン ディ ショ ン 
TO, その コー ス の 形 が 最初 か ら 決 まっ て 
いま す が , 今回 , 私 が 作っ た この ゴル フ ・ 
ゲー ム で は , コー ス の 形 を ある 程度 自由 に , 
し か も 簡単 に 作り 替え る こと が で きま す . 

で は , 自分 で デザ イン し た ゴル フ 場 で ゴ 
ルフ ・ ゲ ー ム を 楽し ん で くだ さい . 


遊び 方 


ゴル フ コ ー ス の 作り 方 


な お "Push апу key” が 表示 され て い コマ ンド の 種類 と その 機能 を 表 1 に 示し 
る と き は , ボー ル の 位置 , また は スコ ア を ます . 
プロ グラ ム を RUN す る と コー ス ・ デ ー タ š 
< 確認 し て か ら 。 適当 な キー を 押し て くだ きる #3, М(МАКЕ) コマ ンド に よる コー ス の 


を ロー ド す る か どう か 聞い て くる の で , [М] 
また は [NN で 答え ます (コース ・ デ ー タ の 名 


TE b ARSS y= Е. 


前 は “CDATA” С). 表 1 ゴル フ ・ コ ー ス 作成 用 コマ ンド 
クラ ブ は W1 一 W 5, 11-19, РМ, SW コマ ンド 名 2 式 
И s 75. No.| - No の 旗 離 と PAR を 表示 し ます 
適当 な キー を 押す と クラ ブ を 振り 上 げ 始 LAn No.n の コー ス 全 体 を 表示 し ます 
め ま す . [PF TO] キー で 振り 降ろ す タ イミ ン Norn の コー ス を 作る 場合 に 使用 し ます 
グ を 決め 、 ボー ル を 打つ 瞬間 に [PF 5] x — ХАт,т No.ni と No.nz の コー ス を 入れ 換え ます 
を 押し ます . クラ ブ の 種類 . クラ ブ の 振 s rm m T s 
上 ば 具合 に よっ て ボー ル の 飛 距離 と 正確 き ЗІВА | — 


コマ ンド の 終了 を 指示 し ます 


が 決ま り , [PF 5| キ ー を 押す タイ ミン グ に 
よっ て ボー ル の 飛ぶ 方 向 が 決ま り ま す . 

プレ イヤ ー 全 員 が グリ ー ン ・ オ ン す る と 
グリ ー ン 部 分 が 拡大 きれ ます . 

グリ ー ン は 多少 傾い て な おり (これ は コー 
ス を 作る と き に 自分 で 設定 どき ます ), カ ッ 
デ の 中 心から 伸ばさ きれ た 線 で . その 方 向 と 
傾斜 の 大 きる が 示さ る れ ま す ( 図 1). 


図 2 の W, S, В, СВ, それ ぞ れ WEAK, 最後 の 点 と 最初 の 
STRONG, BALL, CUP を 示し て お b, 点 を 線 で 結ぶ 
е, 国外 の キー を 使う こと に より , 
ボー ル を 打つ 強 さ と , カッ プ に 対し て 左右 | グリーン の 下り の 
と どの 程度 狙い を ずら し て 打つ か が 指定 で き 方 向 INPUT 
#9. [SPACE] キー を 押す Ë; фм 傾斜 の 大 き さ INPUT 


に まま 7. 


1 グリ ー ン の 傾斜 


方 向 9 : 0—360° 


大 き さ S:0-10 


25 


Рю 


авлоют,,-ж>уу 表 2 コー ス ・ デ ー タ 


` 
А 


30 番 目 の 点 Хо 
” Үзо 


点 の 数 
半径 1 番目 の 点 
縦横 比 *100 n Yi 


| カッ プ の 位置 | 
15 番 目 の 点 Xis 


” Yis 


ІМКЕҮ% 


(e)—*v > |(>)-#+ү 


n \ 
| тоож 
傾斜 の 大 き さ 
| ティ ー の 位置 X 
Д ұу 
) =й 


шочо ст > оо һә س‎ о 


PAINT X 


` 
ス 


20 番 目 の 点 Xso 
и Yoo 


PAINT X 


) | (^>)-3% 


ЖОЙ 
| тавожх 


` 
А 


п X 
| кух 
т» P 


” Wi 
$ 
30 番 目 の 点 Xso 


Ke) 


アド レス は 次 式 で 計算 で きま す . 
&H7132 二 (コース No. 一 1)ж421-М 


さて どう 攻め る か ? この ライ ン は フッ ク か な , そ れ と も スラ イス ? 


お わり に 


グリ ー ン 上 で は ボー ル が 大 きく 曲がる た 
め 、 パ パッティング で か な り 苦 し ん だ の で は 
な いか た 思い ます .。 フェア ウェ イ 上 で は 。, 
どこ か ら 打 つ 場 合 で も すべ て カッ プ め が け 
て 打っ て いる こと に な り ま す が 。 ダリ ー ン 
上 で は 別 で す . 

先 に 述べ だ た よう に グリ ー ン は 傾い じ て い る 
だ め , 最初 , 打ち 出す 方 向 は カッ プ を 狙っ 
て いま す が , 下り の 方 向 へ 曲り 易く な り ま 
+. で すか ら 打 ち 出 すす 方向 を あら か じ め [ 征 
キー を 使っ て 設定 し て お く こ と が 大 切 で 
7. BIO 
OA J X F 1 MY GOLF BASIC リス ト eR ER AEE EAS 


ZX1=2X2:ZYi=ZY2 
789 GO TO 730 
790 СОММЕСТ(2Х2,2Ү2)-(2Х0,2Үө),%,РЗЕТ 
90% CIRCLE (GX, GY) , GR, 4, GRATIO: PAINT(GX, 6 
Y),4,4 

819 LINE(HX,HY)-(HX+1,HY) , XOR, 4 

820 FOR 2-0 TO 4 

859 I=J*+49+109 

849 GOSUB 250:1Ғ 71-0 THEN 1000 

850 NB=ZL 

9609 GOSUB 239』2X1=ZL 

870 GOSUB 2301 ZY1=ZL 

88d 1Х0-72Х117Ү0е2Ү1 

899 IF I=NB*3+J#49+11@ THEN 950 

9@@ GOSUB 2301 2X2=ZL 

910 GOSUB 2 さ G』ZY2=ZL 

929 CONNECT(ZX1,ZY1)-(ZX2,ZY2),7,PSET 
959 2Х1=2Х212үі=2ү2 

940 GO TO 890 

950 СОММЕСТ(2х2,2Ү2)-(2Х0,2Ү0),7,РВЕТ 
9650 I=J*49+155 

970 GOSUB 230: XBM=ZL 

98@ GOSUB 230: YBM=ZL 

990 PAINT(XBM, УВМ) ‚7,7 

1000 NEXT J 


‚к BE DE AE O OE O ЭЕ 44444444444 38@ CONSOLE 19,1,0,0 
39@ INPUT " How many players "NOP 

499 IF МОР<1 ОК МОР>4 THEN 390 

419 FOR 1=1 ТО NOP:OPRI(I)=I:PRI(I)=I:HI 
ТР(1)-Өі1ЗСОКЕ (1) =9rUDSCORE (1) =dr NEXT I 
4209 HCD=&H7 132 

459 CLS 

440 GRON=0 

450 FOR 1=0 ТО МОРЕНИМ (ТГ) “ӨіМЕХТ I 

460 LINE (0,0) – (6359,99) ‚РБЕТ,?, В 

479 LINE (88,0) - (88, 99) ‚РБЕТ, 7 

480 LINE (300,0) - (300, 979) ‚РЗЕТ, 7 

490 LINE (500, 24) – (639, 24) ,РЗЕТ, 7 

500 LINE (89, 1) -(299, 98) ‚РЗЕТ, 5, В 

510 XO= さ 109』 Х1=305: Х2=3560: X さ =456』 Х4=5561Х 
5=616: У0=6: Y1=10 

520 GOSUB 6750 

550 LINE (0, 189) - (639, 189) , PSET, 7 

540 Ізо 

559 GOSUB 230: CNUM=ZL 

560 BUSUB 230:GX=ZL 

579 GOSUB 239』BY=ZL 

589 GOSUB 230: GR=ZL 

599 GOSUB 230:GRATIO=ZL/100 

ёд GOSUB 230:HX=ZL 


* 
* МҮ GOLF GAME (for ҒМ-7) 
+ 
` 


by S.SASAKI (Mar. 1983) 


+595 6 


ж 
444554444444 5454444444 44444444 

190 CLS 

119 CLEAR ,&H7131 

129 DIM OPRI(4),PRI (4) 

150 DIM XBALLP (4) , YBALLP (4) 。PCLK(4) 。D(4) 
„ HITP (4) 。 TSCORE (4) , UDSCORE (4) 。HIN(4) 

149 DIM RBBX(2) 。BX(2) 

150 DIM ZX(283),LM(9),LP (9) 

1809 INPUT"DO you load golf courses’ data 
"FANS 

170 IF AN$="N" THEN 200 

180 INFUT"What is the golf course’s name 
"ICNS 

199 LOADM СМ» 

200 INPUT"Do you design golf courses “IA 
N$ 

219 IF AN$="Y" THEN 8919 

220 80 ТО 550 

230 ° 


n 
, 
, 
. 
, 


240 21-9 619 GOSUB 239』HY=ZL 1919 I=354 
250 IF PEEK (HCD+I)>199 THEN ZL= (PEEK (HCD 420 GOSUB 239』TH=ZL 1020 GOSUB 2301: IF, ZL=@ THEN 12090 
%1)-200) #256: 1=1+1 630 GOSUB 230: SG=ZL 1030 NP=ZL 


640 GOSUB 2350: XT=ZL 

650 GOSUB 230: YT=ZL 

660 GOSUB 230:DIST=ZL 

679 GOSUB 230: РАК 21. 

ВФ GOSUB 23@íNC=ZL 

690 IF МС«Ә THEN 290 

700 GOSUB 23@:íZX1=ZL 

719 GOSUB 2 さ O』ZY1=ZL 

720 ZXG=mZX13ZYOmZY1 

7350 IF ImNCw さ +19 THEN 790 
740 GOSUB 2 さら 』2X2=ZL 

750 GOSUB 259: 2Ү2=21. 

760 СОММЕСТ(2Х1,2Ү1)-(2Х2,2Ү2),6,РЗЕТ 


1940 GOSUB 230,2X1=ZL 

1950 GOSUB 23OIZY1=ZL 

1980 1Х0е2Х1:2Үү0е2Ү1 

1970 IF 1-МР%5%355 THEN 1130 

1080 GOSUB 23 の OZX2=ZL 

1090 GOSUB 23591 2ү2=21. 

1199 СОММЕСТ(2Х1,2Ү1)-(2Х2,2Ү2),5,РЗЕТ 
1110 1Х1е-1Х212Ү1е-2Ү2 

1129 GO TO 1979 

1130 CONNECT (2Х2,2Ү2)-(2Х0,2Ү0),5,РЗЕТ 
1149 1=415 

1150 GOSUB 230: XPM=ZL 

1160 GOSUB 250: YPM=ZL 


289 11-71. «РЕЕК (HCD+I) 

279 I=I+1 

289 RETURN 

299 ІМРОТ"ро you play again "1 人 AN 
300 IF ANS$="Y" THEN 550 

319 CONSOLE 9,209,0,69:С18 

520 STOP 

330 ” 

340 KEY 5, "" 

350 KEY 10, "" 

569 KEY 4, "CONSOLE ©, 20"+CHRS (15) 
570 ОМ КЕҮ(5) GOSUB &&QQ:ON KEY (10) GOSU 


19 と x 年 x 月 x 日 , 日 本 内 で 戦争 が 起こ っ た . が ガレキ の ほこ り が 立つ 中 , 1 台 の 戦車 が あっ た . 戦車 の 上 に 1 人 の 人 影 が あっ た . РС-8001 
で あっ た だ た. PC は つぶ や いた .「88 や mkII が 出 な けれ ば こん な こと に は な ら な か っ た の に …」. 一 方 , 88、mkII 部 隊 は 「 そ の うち ,。 お れ だ ちち 
消 を て いっ て し まう ん だ ろう …」. (Е) 


1179 PAINT (XPM, ҮРМ),5,5 
1180 GOSUB 2301 XPB=ZL 
1199 GOSUB 23@ívPB=ZL 
1299 PAINT(KT,YT),6,1,4,5,6,7 
1219 FPAnlNI(6,1006),3,6, / 
1229 GOSUB 6670 
1230 FOR 1=1 ТО NOP:XBALLP(I)=XTiYBALLP:( 
1)=YTiNEXT I 
124@ FOR I=1 TO NOP 
1250 XBA=HX-XBALLP(PRI(I)) 
YBA=HY-YBALLP (PRI (1)) 
D (1) =SOR (XBAXBA+YBAwYBA4) 
PCLR (19-6 
NEXT 1 
XP1=XBALLP (PRI (1) )』YP1mYBALLP(PR】 (1 


GOSUB 2220 
PRINT"Push апу Кеу."1 
LINE(XP1,YP1)-(XP1+1,YP1),PSET, 1 
LINE (196,85) - (200, 87) ,PSET, 1, BF 
IF ІМКЕҮФ<>"" THEN 1410 
FOR I=1 ТО 1009: МЕХТ 
LINE (XP1, YP1) -(XP1+1,YP1) „РБЕТ,РСі 
LINE (196,85) - (200,87) ,PSET,PC1, BF 
FOR Ізі TO 500:МЕХТ 
GO ТО 1550 
РАМТ 
INFUT"Which club do you use" CLUB$ 
FRINT 
IF LEFT$ (CLUB$, 1)="W" THEN CS=270:G 
1499 
IF LEFT%$(CLUB%,1)="I" THEN С5-255:0 
1530 
IF CLUB$="PW" THEN CS=85:G0 ТО 1560 
IF CLUB%="SW" THEN С5«79:80 ТО 1560 
GO TO 1410 
FI=VAL (MIDS (CLUB$,2,1)) 
IF FI<1 ОК F125 THEN 1410 
CS=CS-FI*1@ 
GO ТО 1550 
F 1=VQL (МІр9(СІ.0Б%,2,1)) 
IF ҒІ<1 ОК Fi>9 THEN 1410 
Св-С5-Ғ1ж15 
GOSUB 4959 
GOSUB 5770 
IF PC1=6 THEN ЕА51-1:00 ТО 1610 
IF РС1=7 THEN EASI=.7:GO ТО 1610 
STOP 
IF INKEY$="" THEN 1610 
SW=0:LV=0:HIT=0 
KEY (10) ON 
GOSUB 5500: 6050В 4896 
GOSUB 5470 
IF SW=1 THEN 2090 
GOSUB 5469』 GOSUB 4840 
GOSUB 5670 
IF SW=1 THEN 2060 
GOSUB 5419』BUSUB 4790 
GOSUB 5276 
IF SW=1 THEN 2950 
GOSUB 53201 GOSUB 4740 
GOSUB 5670 
IF SW=1 THEN 2000 
GOSUB 5519: В050В 4680 
GOSUB 5670 
IF SM=1 THEN 1976 
GOSUB 5250: GOSUB 4850 
GOSUB 5670 
IF SW=1 THEN 1940 
GOSUB 5200: GOSUB 4580 
GOSUB 5670 
IF SW=1 THEN 1910 
GOSUB 5150: GOSUB 4530 
GOSUB 5570 
KEY (10) OFF 
GOSUB 51ë@@:GOSUB 4580 
IF SW=0 THEN GOSUB 5740 
GOSUB 5710 
GOSUB 5150: GOSUB 4650 
ТЕ SW=@ THEN GOSUB 5740 
GOSUB 5710 
1940 GOSUB 5200: GUSUB 4680 
1959 IF SW=@ THEN GOSUB 5740 
1940 GOSUB 5710 
1970 GOSUB 5250: GOSUB 4740 
1980 IF SW=@ THEN GOSUB 5740 
1999 GOSUB 57109 
2009 GOSUB 5510:008/В 4790 
2010 IF SW=9 THEN GOSUB 5740 
2020 GOSUB 5719 
2950 GOSUB 5340: GOSUB 4840 
2040 IF SW=@ THEN GOSUB 5740 
2959 GOSUB 5710 
2060 GOSUB 5410: 80508 4890 
2970 IF Sw=@ THEN GOSUB 5749 ELSE LR=1iK 
EY (5) ОМ 
2089 GOSUB 5710 
2090 GOSUB 5420: БОБОВ 4950 
2109 IF SW=0 THEN GOSUB 5740: GOSUB 5710: 
GO ТО 120 
2110 LR=2 
2120 GOSUB 5716 
2130 GOSUB 5500: GOSUB 4970 
2149 LR=3 
2159 GOSUB 5710 
2169 GOSUB 5540: GOSUB 5010 
2179 КЕҮ (5) ОҒҒ 
2189 GOSUB 5710 
2190 GOSUB 5590: GOSUB 50650 


2200 IF HIT=1 THEN 2230 
2210 FOR 1=1 ТО 1999』NEXT I 
2229 GOSUB 5650:00 ТО 1520 
2239 DIS=CS*EASI*(ST*&óQ@+DST)/4800@ 
2240 DEG=SQR (015) + (АС*+100+0АС-250) /50 
2250 ХАб=НХ-ХВАЬЁР (PRI (1) ) 
2260 YAG=HY-YBALLP(PRI(1)) 
2270 IF XAG=@ THEN CDEG=SGN(-YAG) +90 ELS 
Е CDEG=ATN(-YAG#2/ABS (XAG) ) #180/3.14 
2289 IF XAG<O THEN DEG=-DEG 
2299 HDEG=CDEG+DEG 
2309 XFALL=SGN(XAG)*INT(DIS*COS(3.14/18@ 
#HDEG) +. 5) 
2519 YFALL=ー-INT(DIBwBIN( さ 。14/1BOwHDEB) /2 
+.5) 
2520 XP1=XBALLP (PRI (1) ) +XFALL#. 9 
2559 YF1=YBALLP(FRI(1))+YFALL*.9 
2340 FOR I=1 ТО 1000: GOSUB 54630 
2550 ОВеді IPmO』GUSUB 6920 
25609 IF 0820 OR IP=1 ОК НІМІРБІ (19341 OR 
РС1=7 ТНЕМ 2449 
2579 XF1=XBALLP(PRI(1))+XFALL*.97 
2580 YPI=YBALLP (PRI (1) ) +YFALL#. 97 
2590 0B=O』 1P=@:GOSUB 6020 
2400 ТЕ OB>0 ОК IP=1 ОК HIN(PRI(1))=1 OR 
PC1=7 1HEN 2440 
2419 XP1=XBALLP (PRI (1) ) +XFALL 
2420 vPl1=YBALLF РКІ (1) ) +Y FALL 
2450 ОБ=0:1Р=0: GOSUB 6020 
2440 РКІМТ"Риаһ апу кеу. "1 
2450 IF ОВ=2 THEN 2500 
2460 LINE (ХР!, УР!) - (ХР1+1,ҮР1) 。PSET 1 
2479 FOR 1=1 ТО 1000: МЕХТ 
2480 LINE(XP1 УР!) - (ХР1+1,УР1) 。PSET。PC1 
2490 РОК 1=1 ТО 500: МЕХТ 
2500 IF INKEY$="" THEN 2450 
PRINT 
IF ОВ>0 THEN 1500 
IF IP=1 THEN ХР1=ХРВ: УР1=УРВ: ВОЗУВ 


XBALLP(PR1(1) ) =XP1aYBALLP(PRI(】))mY 


PCLR (PRI (1) ) =PC1 
XBA=HX-XBALLP (PRI (1) ) 
YBA=HY-YBALLP (PRI (1 ) ) 

D (PRI (1) ) “БОК (XBA*XBA+YBAwYBAw4) 

IF HIN(PRI(1))=O THEN 2610 

GOSUB 6870:60 TO 2629 

IF PCI く >4 THEN 2680 

GRON=GRON+1 

FOR I=1 TO NOP 

PRI(I-1)=PRI(I) 

NEXT 1 

PRI (МОР) «РКІ (Ө) 

IF GRON=NOP THEN 2740 

IF NOP-GRON<2 THEN 2750 

FOR 1=NOP-GRON-1 ТО 1 STEP -1 

FOR J=1 TO I 

IF D(PRI (J) ) >=D (PRI (J+1)) THEN 2730 
PRI (9) =PRI (J+1) PRI (J+1) =PRI (J) PRI 

(J) «РКІ (0) 

2759 NEXT J 

2749 NEXT I 

275% GO TO 1500 

2769 CLS 

2779 LINE(@,@)-(339,189),PSET,7,B 

2780 LINE (340, 109) - (6439, 189) ,РЗЕТ, 7 

2799 (1МЕ(0,99)-(359,90),РБЕТ,7 

2800 し INE(BB。 ©) - (88, 90) ,РБЕТ,7 

2819. GOSUB 6570 

2820 LINE(0,114)-(339,114),PSET,7 

2850 Х0ч101Хі-5іХ2-661 X さ =156』 X4=236』 Х5=5 

161 Yom9o』Y1m1GO 

2849 GOSUB 6750 

2850 CIRCLE (490, 95) , GR#S, 4, GRATIO 

2860 PAINT (490,95), 4,4 

2870 НХ=490+ (НХ-ВХ) #5 

2880 HY=95+(HY-GY ) #5 

2890 LINE (HX-2, HY-1)-(HX+3, HY+1) , XOR, 4, B 

F 

2990 РАІМТ(340,9),6,4,7 

2919 FOR I=1 10 МОР 

2929 XBALLP (1) =490+ (XBALLP (1) -GX) #5 

2930 YBALLP (1) =95+ (YBALLP (1) -BY) «5 

2940 NEXT I 

2959 FOR I=1 TO МОР 

2960 XBI=HX-XBALLP(PR1(1)) 

2970 YBI=HY-YBALLP(PRI(I)) 

2980 D(FRI(1))=SQR(XBI*XBI+YBI*YBI*4) 

2999 NEXT I 

3000 IF NOP=HIN(@) THEN 4350 

5019 IF NOP<2 THEN 3@B@ 

5920 FOR 1=МОР-1 ТО 1 STEP -1 

3050 FOR J=1 TO 1 

3040 IF D(FRI (J)) >=D(PRI(J+1)) THEN 5060 

3959 PRI (0) =PRI (J+1) PRI (J+1) ®PRI (J) PRI 

(J) “РКІ (0) 

306 NEXT J 

5970 NEXT 1 

3989 LINE (108, 10) - (319,80) ,PSET,7,B 

3999 FAINT (89, 1),РВТ(1),7 

3100 LINE (134, 29)- (294, 36) ,PSET,7,B 

3119 LINE (215, 30) - (215, 35) 。PBET。2。B 

3120 FAINT (135, 30),2,2,7 

3159 SYMBOL (126,20), "W", 2,1,7 

3140 SYMBOL (288,20), "8", 2,1,7 

3150 LINE (149,55) - (282, 55) „FSET, 7 

5160 LINE (143, 54) - (148,56) ,PSET, 1, BF 

3170 LINE (283, 54) - (208,56) ,PSET,7,B 


біо 


リス ト 1 MY GOLF BASIC U 2 F 
SYMBOL (124,51), "В",2,1,7 
SYMBOL (290,51), "C", 2,1,7 
XPlmXBALLP(PRI (1) ) s YP1=YBALLP (PRI (1 


XX=SG»COS (TH#*3. 14/180) 
YY=-SG#SIN(TH#3. 14/180) 

ВЕТ@А (ХР1-1,ҮРі) – (ХР1+2,ҮР1+1),Вх,9 
РКІМТ"Ривһ апу кеу. "J 

LINE (HX, HY) = (HX+XX#4, HY+YY#2) , ХОК, 7 
Ритавй(ХР1-1,ҮРІ)-(ХР1%2,ҮРІж1),В%,Р 


FOR 1=1 ТО 16900: МЕХТ І 
LINE (HX, HY) = (HX+XX #4, HY+YY#2) , XOR, 7 
LINE (XP1-1,YP1)-(XP1+2,YP1+1) „РЕТ, 


FOR I=1 TO 1000іМЕХТ I 

IF INKEY$="" THEN 5250 

PRINT 

W8S=10: BH»0 

GOSUB 5770 

PRINT"Use direction key. 

се key." 

А®%=1МКЕҮ® 
A$=CHR$ (28) 
A$=CHR$ (29) 


/ Push ара 


AND WS<2@ THEN 3430 
AND MSG>O THEN 3480 
A$=CHR$ (30) AND BH<2@ THEN 3530 
A$=CHR$ (31) AND ВН>-20 THEN 3570 
АФч" " THEN 3410 

TO 3360 


X=135+wS*8 
LINE(X,3@)-(X,35),PSET,2 
PAINT(X-1,3@),2,2,7 
во TO 3360 
WS=w8-1 
x=135+wWS*8 
LINE (X, 3Ö) -(X, 35) ,PSET,@ 
PAINT (X+1, 3O), 0,0,7 
GO TO 3360 
LINE (149, 55) - (149+80*С05 (BH#3. 14/18 
ө) ,55-46*SIN(BH*#3.14/180)),PSET, © 
5540 BH=BH+2 
3550 LINE(149,55)-(149+8@*COS(BH*3.14/18 
0), 55-4048IN (BH#3. 14/189) ) ,PSET, 7 
3540 GO TO 3360 
5579 LINE (149, 55) –(149+80*С08 (ВН+5. 14/18 
0), 55-40#*SIN(BH*3. 14/180) ),РВЕТ, © 
5580 вн=вн-2 
5599 LINE (149, 55) - (149+80*С08 (BH*3. 14/18 
©), 55-40%31М(ВН#З. 14/100) ),РЗЕТ, 7 
5590 GO 10 3356509 
5610 PRINT SPACES (40) 
3420 ХӨ-НХ-ХРІ 
3430 YBmHY-YP1 
3640 IF XGmO THEN DG=SGN(-YG) #90 ELSE DG 
=ATN (-YG#2/XG) *#180/3.14 
3450 DGO=DG+BH 
3660 XY1=WS*10 
3670 IF WS=@ THEN XY1=5 
3680 Х11=50М (XG) #XY1#COS (DGO*3. 14/180) 
590 Y11=SGN(-XG) XY1wGIN(DGOw さ 。 14/189) / 
2 
5700 XY2=.O4*GBwXY1 
3710 X22=XY2wCDS(THw さ 。 14/180) 
3720 Y22=-XY2wBIN(THwS。14/1BO) /2 
5750 X12=X11+X22 
3740 Ү12=ү11+ү22 
5750 IF X12=O THEN D12=SGN(-Y12)*9@ ELSE 
р12=АТМ(-Ү12+2/Х12) +180/3.14 
5740 XPmXP1iYP=YP1 
DD=DBo 
PLAY"L1606VBEL 1 2V1E" 
IF ABB(X12) く ABS(Y12w2) 
VD= (012-0686) «4/АВ8(Х12) 
FOR XI=SGN(X12)*4 ТО X12, STEP BBN(X 


THEN 5890 


DD=DD+VD 
XOO=X1I+XP1 
YO0=-XÎ#TAN(DD*3. 14/180) /2+YP1 
GOSUB 4290 
XP=XOO』 ҮР"ҮдО 
МЕХТ ХІ 
GO ТО 5980 
IF SGN(D12)=SGN(DG@) THEN DS=D12-DG 
© ELSE DS=(D12-DGO)-SGN(D12)*180 
3909 VD=DS*2/ABS(Y12) 
5910 FOR YI=SGN(Y12)*2 ТО Y12 STEP BGN(Y 
12)*2 
3920 DD=DD+VD 
$930 Y@Ə=YI+YF1 
3940 XO0=-2#Y1/TAN(DD*3. 14/180) +XP1 
3950 GOSUB 4290 
5960 ХР=ХӨӨ:ҮР=ҮӨО 
3970 NEXT ҮІ 
3980 ХР1-еХО00Фі УР1=\00 
3990 IF ХО0-1<НХ%4 AND X@Q+2>HX-3 AND YO 
OHY+2 AND YOO+1>HY-2 THEN 4080 
4000 PRINT"Push any key. "i 
4010 FOR 1=1 ТО 1009: МЕХТ 1 
4020 PUTWA(XGOOー1 。YOO) 一 ( XGO+2。 YOO+ 1 ) , BZ, P 
BET 
4050 GET@A(XO00-1, Үд) -(Х00%2, Үд0%1),В%,0 
4040 FOR I=1 ТО 500: МЕХТ I 
4050 IF INKEY$<>"" THEN 4160 
4050 LINE (X00-1, YOO ) 一 (XOO+2。 Ү0%1),РВЕТ, 
1 , ВЕ 
4070 GO ТО 4010 
4080 PLAY"L16Ve606BL 1 207DV1D" 
4090 РИТФА(ХО0-1,Ү00)-(Х00%2, YOG+1 ) 。 BX, P 


27 


Рю 


リス ト 1 MY GOLF BASIC И X F 


6080 IF PC1=5 THEN 6170 

8999 IF ХРА=НХ AND YPimHY THEN 8110 ELSE 
IF PC1=7 THEN PLAY"L12VB02G" ELSE PLAY" 

1 16802841 3202Е" 

6100 GO TO 6130 

6119 НІМІРКІ(1)) "іі НІМ(ӘУеНІМ(0) +11 ХРІН 

Ха ҮРІ-НҮ 

6120 PLAY"L16Ve06G6L1207DV1D" 

6159 FOR 1-1 ТО 10900іМЕХТ I 

6140 (ІМЕ(ХРІ,ҮРІ)-(ХРІж1,ҮРІ),РЗЕТ,РСІ 

6159 IF ХР1=НХ+1 АМО УР1=НУ THEN РС1=4 

6160 RETURN 

6170 PLAY"L106V4D4CL16V507DL64056V26L10V1 

в" 

6189 PRINT "Fell іп the ропа ! “4 

6199 GOSUB 5770 

6200 ІР«1:00 ТО 6149 

6210 PLAY"L4VB02G" 

6220 PRINT "ОВ! Ы: 

8259 GOSUB 5770 

240 РАІМТ(99,2),0,5 

250 IF 0B=2 THEN RETURN ELSE 6140 

6260 ” 

6270 CONNECT (190, 56) – (198, 36) - (202,39) – ( 

292,42)-(198,45)-(208,47)-(208,55) – (294, 

62) - (214,85) – (216,87) – (20,87) – (194,26), 

PRI (1) 。PSET 

6280 CONNECT (194, 26) – (182,87) – (172,87) -( 

174,85) – (184,62) – (180, 55) - (180,47) - (190, 

45) – (186,42) – (186,59) – (190,56) „РКІ (1) ,PS 


RETURN 


HIN(PR1(1))=1 
4110 HIN(@)=HIN(@)+1 
4120 XP1=HX:YP1=HY 

4150 GOSUB 6870 

4140 РКІМТ"Рияһ any key 
4159 IF ІМКЕҮФ 
4160 PRINT 
4179 XBALLP(PKI(1) ) =XP1 

4180 YBALLP (PRI (1)) =YP1 

4190 D(PRI (1) ) «“ЗОК( (НХ-ХР! ) «Х(НХ-ХР1) + (НУ 
-ҮР1) ЖХНҮ-ҮРІ) #4) 

4290 IF WS=1@ THEN 4250 

4219 IF WS>1@ ТНЕМ EC=@ 

4229 IF WS<10 THEN EC=2 

4230 LINE (215, 30) -(215, 55), РЗЕТ, ЕС 

4240 PAINT (216-EC, さら) ‚ЕС, ЕС, 7 

4250 IF BH=@ THEN 4280 

4260 LINE (149, 55) - (149+00*С08 (BH#3. 14/18 
©), 55-40%51М (BH#3. 14/189) ) 。PSET © 

4279 LINE (149, 55) -(149+80*С03 (-ВН*+3. 14/1 
89) ,55-40#SIN(-BH*3. 14/180) ), РЗЕТ, © 

4280 GO ТО 3990 

4290 °’ 

4500 FOR J=1 ТО 19іМЕХІ J 

4310 РОТВА (ХР-1, УР) - (ХР+2, YP+1) ‚ВХ, РЕТ 
4520 GET@A(XO00-1, үө) -(X00+2, YOO+1) , BX, G 
48550 LINE (X00-1,YO0)- (X00+2, Ү00%1),РБЕТ, 
1,BF 

4340 RETURN 

4550 IF NOP=i THEN 4450 

4540 FOR I=NOP-1 TO 1 ЗТЕР -1 

4570 FOR 021 TO І 

4580 IF НІТР (ОРКІ (Ј) ) =<НІТР (ОРКІ (Ј+1)) Т 
НЕМ 4409 

4590 OPRI (0) =ОРКІ (J+1) OPRI (Ј+1) =OPRI (J) 
з OPRI (J) =OPRI (©) 

4400 NEXT J 

4410 NEXT I 

4420 FOR I=1 ТО МОР: РКІ (1) =ОРЕТ (1) 8 МЕХТ 


5110 LINE (180, 47) – (174,38) 。PSET , FC1 
5120 LINE (184, 45) -(170, 39) „РЅЕТ,РСІ 
5150 11МЕ (179, 59) ~ (226, 28) , PSET, РС! 
5149 RETURN 

, 


"y 
“ THEN 4150 


5160 11МЕ (180, 47) – (170,40) , PSET, PC1 
5170 11МЕ (194, 45) – (122,41) „РЕТ, РС! 
5189 11ІМЕ (146,41) – (212,24) 。PSET,PC1 
5199 RETURN 
өө ’ 
5210 LINE (189, 47) – (156, 43) „РВЕТ,РСі 
5229 LINE(182,47)-(164,45),PSET,PC1 
5250 LINE (164, 45) - (190, 20) ,PSET,PC1 
5240 RETURN 

» 


5260 LINE (180, 47) – (166, 45) „РЅЕТ,РСІ 
5270 LINE (180,47) – (166, 47) 。PSET , РС! 
5280 LINE (1465,47) – (166,19) ,PSET,PC1 
5299 LINE (125,47) – (1695,19) „РЅЕТ,РСІ 
5300 RETURN 


5520 LINE (180, 47) -(164, 48) „РЅЕТ,РСі 
5530 LINE (180, 49) -(166,50) ,PSET,PC1 
5340 LINE (166, 50) - (140, 26) 。 PSET 。 PC1 
5350 RETURN 


5579 LINE (180, 47) – (158,55) ,PSET,PC1 
5580 LINE (180,52) - (170, 53) , PSET, PC1 
5599 LINE (170,535) - (128, 42) 。PSET , PC1 
5400 RETURN 

5419” 

5420 (.1МЕ(180,47)-(174,59),РЗЕТ,РСІ 
5430 LINE (102,58) -(176, 640) PSET,PC1 
5440 LINE (172,50) – (1350,54) ,PSET,PC1 
5450 RETURN 

S460 ” 

5470 LINE (188, 5) – (102,27) ,PSET,PRI (1) 
5480 LINE (182,67)-(154,80) ,РЗЕТ, РС! 
5490 RETURN 

5500 ' 

5510 LINE (194,67) – (194,87) 。PSET , PC1 
5520 LINE (193, 69) - (195,87) ‚РЗЕТ,РС! 
5550 RETURN 

5540 ' 

5550 LINE (204,63) – (206,54) ,РЗЕТ, PRI (1) 


6290 PAINT (194, 37) ,PRI(1),7 
6300 GOSUB 8540 

8519 PCLR(PRI(1 ) ) =РС1 

6529 РАІМТ(99,2),РС1,1,2,5,4,5 
8539 RETURN 


8550 GET@A(XP1-1,YP1-1)-(XF1+1,YP1+1),RG 


FOR 1=0 ТО 21: НКВВФ (1) =HEX $ (RGB4 (1) ) 


1 

4459 FOR I=1 TO МОР 

44409 HITP(1) =0 

4450 HPSS=STRS (HITP (РКІ (1) )) 

4460 HLEN=LEN(HPS$) 

4470 HITPX=X3-16#HLEN 

4489 SYMBOL (X2+16,PRI (1) *10+\1), "EENEN" , 


6370 Ві-діБіеоі01-0 
6580 LHO=LEN (HKGB$ (9) ) 

8599 IF LHO く 3 THEN 6410 

5499 IF MID$(HKBB$(O) 。LHO-2。1) => "В" ТН 
ЕМ Ві=1 

6410 LH1=LEN(HROB%(1)) 


2,2,0 5569 1.1МЕ(295,54)-(239,81),РБЕТ,РС1 6420 IF LH1<3 THEN 4440 

4490 SYMBOL (HIIPX,PRI(I)#189+Y1),HPS$,2,2 || 5570 RETURN 4430 IF MID$(HRGE$(1),LH1-2,1) => "B" ТН 
РКІЌ1) 5580 ' ЕМ R1=1 

4500 МЕХТ І 5590 LINE (208,54) – (216,55) 。PSET,PC1 6440 LH2=LEN(HRGB$ (2) 


4510 HCD=HCD+421 
4520 IF CNUM=? THEN 299 ELSE 450 
4550 ・ 
4540 LINE (180, 47) – (174, 58) ,PSET, PRI (1) 
4550 LINE (184, 46) - (170, 59) ,РБЕТ, РКІ (1) 
4540 LINE (170, 39) - (226, 28) 。PBET, © 
4570 RETURN 
4590 ' 
4590 LINE (109,47) - (170,49) 。PBET。PRI (1) 
4600 LINE (104, 44) – (166,41), РЕТ, РКІ (1) 
4610 LINE (164,41) – (212, 24) 。PSET, © 
4420 RETURN 
4630” 
4849 LINE (180, 47) – (144, 43) ,PSET, PRI (1) 
4450 LINE (102, 47) -(164,45),РЗЕТ,РВ! (1) 
4440 LINE (144, 45) - (190, 20) ,РБЕТ,Ә 
4670 RETURN 
4680 ' 
4690 LINE (189, 47) - (16, 45) ,PSET,PRI (1) 
4790 LINE (180, 47) – (166,47) , PSET, РВ! (1) 
4710 LINE (166,47) -(16%, 19) ‚РЗЕТ, © 
4720 LINE (165, 47)-(165, 19) ,PSET © 
4739 RETURN 

. 


6459 IF LH2<3 THEN 6470 

6460 IF MIDS (НКӨВФ (2) 。LH2-2。1) => "8" TH 
ЕМ Giei 

6479 IF Bl=1 AND Кіші AND Gimi THEN РС1= 
7180 ТО 6556 

6489 IF Кіті AND Gl=1 THEN РС1=6:00 ТО ё 
sso 

6499 IF Bl=1 AND Gi=i THEN РС1=5:00 ТО 6 
559 

6500 IF Bl=1 AND Rl=1 THEN РС1=3:00 ТО ё 
550 

6510 IF Gi = 1 THEN РС1=4+@0 ТО 6550 
6520 IF В! = 1 THEN РС1е2:100 TO 6550 
6530 IF Ві = 1 THEN FCImiiGO ТО 6550 
6540 PC1=0 

6550 RETURN 

6560 ” 

8570 SWw=l:ST=LViDST=I 

6580 KEY (19) OFF 

8599 RETURN 

6600 ” 

6619 PLAY"L 1606 り 1 の 6EV7EV6EV5EV4EV さ EV2EV1E 


5600 LINE (208, 47) - (216, 55), Р5ЕТ, РС! 
5610 LINE (216, 55) – (260, 66) ,РЗЕТ, РС! 
5620 RETURN 
5630 ' 
5640 LINE (208, 47) -(228, 47) 。 PSET , PC1 
5650 LINE (228, 47) - (280, 57) 。 PBET , РС! 
5660 RETURN 
567% ” 
5680 LV=LV+1 
56590 РОВ 1=1 ТО 60909: мМЕХТ І 
5700 RETURN 
5710 ° 
5720 FOR 1=1 ТО 100: МЕХТ I 
5750 RETURN 
. 


5750 FOR J=1 ТО 1001МЕХТ J 

5760 RETURN 

5770 ° 

5780 НІТР (РКІ (1) ) =НІТР (РКІ (1) ) +1 

5790 HPS0=STR%(HITP(PR1(1))) 

5800 HLEN=LEN (HPS$) 

5810 HITPX=X3-16#HLEN 

5820 SYMBOL (X2+16,PR1(1)*18+Y1), "aR", 


4749 2,2,0 6620 AC=LR:DAC=I1HIT=1 

4750 LINE(180,47)-(164,48),FSET,PRI(1) 5830 SYHBOL(HITPX,PRI(1)w18+Y1),HPSw,2,2 || 6630 KEY (5) OFF 

4759 LINE (180,49) – (166, 50), FSET, PRI (1) PRIOD 5040 LINE(XP1,YP1)-(XP1+1,YP1),PSET,PC1 
4770 LINE (166,50) -(140, 24) ,PSET, © 5840 RETURN &65@ LINE (196,85) - (200,87) ,PSET,PC1, BF 
4780 RETURN sso ・ 666 RETURN 

4799: 5860 TSCORE (PRI (1) ) =TSCORE (РАІ (1)) +HITP( || 6670 ” 

4800 LINE (180,47) - (168, 53) ,PSET, PRI (1) PRI (1)) 6889 SYMBOL (4, 4) , "NO. "+RIGHTS (STR (CNUM) 


4810 LINE (180, 52) -(170, 53) ,PSET,PRI (1) 
4820 LINE (170,55) -(128, 42) 。PSET。9 
4830 RETURN 

, 


:2)272;7 
5599 SYHMBOL(4,24),STF%(DIST),2,2,7 

6700 SYMBOL (59,40),"М",2,2,7 

710 SYMBOL (4, 60), "PAR "+RIGHT ® (ӨТКӨ (РАВ 
910 92224 

6720 RETURN 

6730 ° 

740 SYMBOL(XO, YO)," 8 C O R Е",5,2,5 
6750 FOR I=1 ТО МОР 

8760 БҮМВО (Х1,1%18%Ү1),87К9(1),2,2,7 
8779 SYMBOL (X2, 1*18+\1) ,СНЕ® (44+1), 2,2,1 
4780 HLW=STR@(HITP(1) ) 

6790 SYMBOL (X3-16*LEN(HLW),I*18+Y1),HL%, 
225% 

4800 HTS=STR$ (TSCORE (1)) 

6810 SYMBOL (X4-16*LEN(HT%),I*18+Y1),HT%, 
25224 

820 HU$=STR$ (UDSCORE (1 ) ) 

6850 SYMBOL (X5S-16#LEN (HUS), 1#18+Y1), HUS, 
252.1 

840 IF SGN(UDSCORE(I))=1 THEN SYMBOL (X5 
-164 ЕМ(НИЯ),1%18%Ү1),4%",2,2,1 

6850 NEXT 1 

80 RETURN 

6870 ” 

6BBO GOSUB 5850 

4890 GOSUB 5950 

900 RETURN 


5879 TSS$=STR$(TSCORE(PRI(1))) 

5880 TLEN=LEN(TSS%) 

5890 TSX=X4-16*TLEN 

5909 SYMBOL (X3,PR1(1)*18+Y1), "EEEE" , 2, 2 


4859 LINE(180,47)-(174,59),PSET,PRI (1) 
48509 LINE(182,58)-(176,69),PSET,PR1(1) 
4870 LINE(176,60)-(13@,56),FSET,O 
4989 RETURN 

, 


SYMBOL (Т8Х,РК1(1)%18%Ү1),755%9,2,2,Р 


5920 RETURN 

5930 ° 

5940 UDSCORE (PRI (1) ) =UDSCORE (PRI (1)) +HIT 
Р (PRI (1)) -РАА 

5950 UDS%0%=STR% (UDSCORE (РКІ (1 ) ) ) 

5960 UDLEN=LEN(UDS%) 

5970 UDX=XS-16#UDLEN 

5980 SYMBOL (Х4,РКІ(1)%18%Ү1), "Ша", 2, 2 


4900 LINE (188, 55) -(182,67),РЗЕТ, © 
4919 LINE (102,47) - (154,80) 。PSET, © 
4920 RETURN 

е 


4940 LINE(194。67) ~ (194,07) ,РЅЕТ, © 
4950 ІМЕ (193, 69) ~ (193,87) ,РЅЕТ, © 
4960 RETURN 


‚9 

5990 SYMBOL (ООХ, PRI (1) #+18+ү1) ,09%,2,2,Р 

RI(1) 

6000 IF SGN(UDSCORE (PRI (1 ) ) ) =1 THEN SYMB 

OL (UDX, PRI (1) #18+Y1), "+", 2, 2,PRI (1) 

4010 RETURN 

4020 ° 

6030 IF XP1+1>438 OR ХР1<1 OR ҮРІ<101 OR 
YP1>1BB THEN 0В=2:00 ТО 62109 

6040 FOR 1=1 ТО ЗОдіМЕХТ I 

6050 GOSUB 4340 

6060 LINE (XP1, УР!) - (ХР1+1; УР!) ‚РБЕТ, 1 

6070 IF PC1=3 THEN ОВ=1:00 ТО 4210 


4980 LINE (204, 63) - (296,4) , PSET, © 
4999 LINE (20%, 44) - (230,81) ,PSET, © 
5000 RETURN 


5020 LINE (208, 54) – (215, 55) ,РЅЕТ,РКІ (1) 
5030 LINE (208, 47) – (212,55) , PSET 。PR1 (1) 
5040 LINE (216,55) – (260, 66) 。 PSET。 ら 
5050 RETURN 


LINE (208, 47) – (228,47) „РЗЕТ,РКІ (1) 
LINE (228,47) – (280,57) , PSET, © 


O (б) O (б) PXEVIOUS に つい て / 1 番 最 初 の ボ ザ ・ ロ グラ ム を ある 順番 で 消し て いき , 次 の 森 の 中 に ある 隠し レー ダー を 打つ と タラ ンチ ュ ラ , 小型 の 
Ол Ол アン ドア ・ ジ ェ ネ シス , そし て 惑星 で ば ウス が 出 て くる そう で す が , まだ 一 度 も 見 な こと が あり ませ ん . 仲間 内 で も 順番 を 決め て 頑張 っ て い 
#3. ちな み に ば ぽく は , 左右 上 下 の 順 で す . 惑星 ど ビ ウス の 後 は ぼう な る ん で し ょ うか ? 意見 を 聞か せ て くだ さる い . ELT, ボ ザ ・ ロ グラ 

É; ム を 打つ 順番 の 指示 を お 願い し ます . (宝くじ FOREVER) 


Ро 


CLS 

CONSOLE ©,10,0,0 
6930 LINE (9,100) – (659,189) ,PSET, 3,B 
6940 LOCATE 9,0 
6950 LINE INPUT"COMMAD: "$ CMDS 
6960 СМ1$=ГЕЕРТ® (CMDS, 1) 1СМ2%=М10% (CMDS, 5 
72) 
5970 
6980 
6990 
7909 
7010 
7920 
7030 
7949 GO TO 6956 
7050 N1=VAL (СМ29) 
7060 IF М1<9 ОК N1>9 THEN 7030 
7070 IF N1=@ THEN 7570 
7080 HCD=kH7132+421*(N1-1) 
7090 ZN=PEEK (HCD+18) 
7100 IF ZN=@ THEN 7030 
7110 I=@:L=@ 
7120 ZE=ZN*2+14 
7159 GOSUB 7510 
7149 IF 1.<2Е ТНЕМ 7150 
7150 LOCATE 5, За РКІМТ"Мо. "NIS" 
11)з"т РАК"17%(12) 
7160 FOR К=14 ТО 2Е-4 STEP 2 
7170 CONNECT (2% (К), 2% (К+1))-(2%(К+2), 2% ( 
к+3)),6,РЗЕТ 
7180 NEXT K 
7190 CONNECT (2% (2Е-2),2%(2Е-1))-(2% (14) 
2%(15)),6,РВЕТ 
7200 С1КСЬЕ(2%(1),2%(2)),2%(5),4, 2044) /1 
eo 
7210 LINE (2% (5),2%(6))-(2%(5)+1,2%(6)),Р 
БЕТ,4 
7220 FOR 1-09 TO 4 
7250 1-1%49%10911-2%55%74 
7249 ZN=PEEK (HCD+I) 
7250 IF ZN=@ THEN 7330 
7240 ZE=ZN*2+L+1 
7279 GOSUB 7510 
7280 IF L<ZE THEN 7270 
7299 FOR K=J*33+75 TO ZE-4 STEP 2 
7309 CONNECT (2% (К), 2% (K+1)) = (2% (K+2) , ZX ( 
K+3)) , 7, PBET 
7310 NEXT K 
7320 CONNECT (2%(ZEー2) 。 2%(ZEー1) )-(Z%(Jw さ 3 
%75),1/(2ж55%76)),7,РВЕТ 
7330 NEXT J 
7540 1=3541L=2 さ 9 
7550 ZN=PEEK (HCD+I) 
7360 IF 1Мед THEN 7470 
7570 1Е“28»2%240 
7389 GOSUB 7519 
7590 IF L<ZE THEN 7380 
7400 FOR Кт=240 ТО ZE-4 STEP 2 
7419 CONNECT(ZZX(K),ZZ(K+1))-(Z%(K+2), 24( 
K+3)),5,PSET 
7420 NEXT K 
7450 CONNECT (2% (2Е-2),2%(2Е-1))-(2% (240) 
‚2% (241›),5,РВЕТ 
7440 1=41511_=280 
7450 FOR N=1 ТО 4160308 75191: МЕХТ М 
7460 LINE (1% (282), 24(283))- (2% (282) +1, 2% 
(283)) , PSET, 2 
7479 LINE (2% (9),2%(10))-(2%(9)+1,2% (10) ) 
„РВЕТ, 1 
7480 LOCATE 2,6』PRINT"Pumh апу кеу." 
7490 IF INKEY$="" THEN 7499 
7509 GO ТО 7950 
7510 ' 
7529 2Z%(L) =0 
7530 IF PEEK(HCD+I)>199 THEN Z%(L)=(PEEK 
(НСрж1)-200) +2561 1=1+1 
2540 1% (1) «27 (1) +РЕЕК (НСО+1 ) 
7550 I=I+1:íiL=L+1 
7560 RETURN 
7579 FDR I=1 TO 9 
7580 J=&H7132+421#(1-1)+15 
7599 LNC=PEEK(J+3) 
7509 IF LNC=@ THEN 7640 
7619 LH(1)=(PEEK(J)-20@) *256+PEEK(J+1) 
7620 LP(I)=PEEK(J+2) 
7639 ВО TO 7660 
7440 LM(I) =0 
7650 LP (1) =0 
7660 NEXT I 
7879 FOR I=1 TO 9 
7080 LOCATE 6,1 
799 PRINT"No. "$ If SPACES (9ーLEN(BTR$ (LM (1 
ЕМС тури РАК ЕР (1) 
7790 МЕХТ 1 
7710 GO ТО 7490 
7729 N1=VAL (СМ29) 
7730 IF N1<1 OR N1>9 THEN 7950 


CMi$="L" THEN 7050 
СМ1$="М" THEN 7720 
THEN 9080 
THEN 923% 
THEN 9280 
СМ1%-"Е" THEN 109 


“72% 


| 8460 MISS=ġ: GUSUB 8870 


7740 FOR 2-9 TO 283』2X(J)=OINEXT J 
7750 НСр-кН7152%421%(М1-1) 
7780 POKE HCD,N1i I=HCD+1 
7770 LOCATE 1,1:РКІМТ"Бей cursor to а gr 
een’s centar," 
7780 GCURSOR (319,145), (XG, YG), 4 
7790 MISS=0: GOSUB 8870 
78009 IF MISS=1 THEN 7780 
7810 LOCATE 2, 2: INPUT"Radius of the gree 
п (10-25) "раз: GReVAL (A$) 
7820 IF ӨК<19 ОК GR>25 THEN 7810 
7850 POKE 1, ОВ: 1=1+1 
7840 LOCATE 2, 5: ІМРОТ "Каёіо (0. 2-0. 75) "ЗА 
$: GRATIO=VAL (A$) 
7850 IF GRATIO<.2 ОН GRATIO>。75 THEN 784 
° 

7840 POKE 1,0КАТ10%19011е-1%1 
787% CIRCLE (XG, YG), GR, 4, GRATIO 
7880 LOCATE 1,4:PRIN1"Set cursor to the 
cup." 

7890 GCURSOR (XG, YG) , (XG, YG) , 4 
7900 MISS=Q: GOSUB 8870 

7919 IF MISS=1 THEN 7890 

7920 LINE (XG, YG) - (XG+1, YG) ,PSET, 4 
7930 HX=XGıHY=YG 
7940 LOCATE 2,5: INPUT"Directionigreen’s 
іпсііпе(0-550) "$ A$: THeVAL (A$) 
7950 IF ТН<0 ОК ТН>569 THEN 7940 
7950 TH1=INT (TH/256) 
7970 TH2=TH-TH1 #256 
7980 THi=TH1+200 
7990 POKE 1,ТН111-1%1 
8000 POKE Т, ТН21 1=1+1 
8010 LOCATE 2, 61 МРОТ "Зса1 ајдгееп’'в incl 
ine (0-10) "$ A$: SG=VAL (A$) 
8020 IF SB<O ОК SG>10 THEN 8010 
8030 POKE 1,50: 1=1+1 
8040 LOCATE 1, 7:РКІМТ "бе cursor to а te 
e's position." 

8050 GCURSOR (XG, YG), (XG, YG) 。1 
80660 MISS=0: BOBUB 8870 

8070 IF MISS=1 THEN 8050 
8080 LINE (XG, YG) -(XG+1, YG) 。PSET 。 1 
8090 X=HX-XGiY=HY-YG 
B100 DIST=INT (SOR (X#X+Y#Y#4) +. 5) 

8110 LOCATE 4,8: РАТМТ"О1 stance is"): СОО 
В 6』PKINT DISTI tCOLOR 7іРБІМТ"т. " 

8120 D1=INT(DIST/256) 
8130 D2=INT(DIST-D1*256) 
8140 D1=D1+200 

9150 POKE І,01:1=1+1 
8140 POKE 1,02:1=1+1 
8179 LOCATE 2,9: INPUT"Number of PAR"JA$: 
PAR=VAL (A$) 
8180 IF PAR<3 OR PAR>6 THEN 8170 
8199 POKE I, РАК: 1=1+1 
8200 IV$="course":LI$=" (5-30) "іМРМеЗ0іСО 
= 

8210 GOSUB 8540 

8220 IF NP=ûù THEN 7030 
8230 GOSUB 8960 

8249 I=HCD+109 

8250 1У%-"Бипкег"1119-“(3-15) "ıNPM=1 51 СО 
L=7 

8240 GOSUB 8540 

82709 IF NP<>@ THEN 8300 
8280 POKE 1, МР: [=1+49 
9299 GO ТО 8340 

в509 GOSUB 8950 

9310 1«1%45-МРж3 

8520 LOCATE 2,8:PRINT"8et cursor іп the 
bunker." 

8550 GCURSOR (XG, YG) , (XG, YG),7 
8349 МІ58-0і GOSUB 8870 

8350 IF MISS=1 THEN 8530 

8360 IF I<HCD+354 THEN 8250 
8570 1\%="ропа"11.1%=“" (5-20) ": МРМ=20 1 COL= 
s 

8380 возив 8540 

8370 IF МР<29 THEN 8429 
8400 POKE 1,МР 

8410 GO TO 7030 

8420 GOSUB 8740 

8450 I=I+60-NP#3 

8440 LOCATE 2,8:PRINT"Set cursor іп tha 
pond." 

8450 GCURSOR (XG, YG), (XG, YG),5 


8470 IF MISS=1 THEN 8450 

8480 LOCATE 2,9:PRINT"Set cursor to the 

drop-point. "I 
GCURSOR (XG, YG), (XG, YG) , 2 
MISS=Q: GOSUB 8870 
IF MISS=i THEN 8490 
LINE(XG,Y6)-(X8+1,YG),PSET,2 
Go TO 7050 
, 


MY GOLF コー ス 


+F 
77 
75 


вз 


C9 
00 
оо 
09 быт: 


リス ト 1 


8550 CLS 1 
9560 LOCATE 2,1: РАТМТ"Зее cursor to each 
points of "iiCULUR COLIPRINT IV%I:COLOR 
?аРКІМТ"." 
LOCATE 4, 2:РА1МТ"* KEY ... епа" 
LOCATE 4, 38 РА1МТ".- KEY ... back" 
NP=Q 
LOCATE ё, 6  РАТМТ"Митьег of points"i 


MY GOLF BASIC リ スト 


LOCATE 26。6』PRINT 1.1% 

K= の 

INK$=1INKEY$ 

IF INK$="#" THEN. IF МР>2 OR NP=@ TH 
ЕМ 8820 ELSE 8630 ELSE 8250 
9650 IF INK$="-" THEN IF NP>O THEN 8780 
ELSE 8650 ELSE 8660 
6660 IF INK$="" THEN 8630 

NP=NP+1 

LOCATE 22.6』PRINT NP 

IF МР=МРМ-1 THEN PLAY"L8V806C" 

GCURSOR (XG, YG) , (XG, YG) , COL 

IF YG<100 THEN МР=МР-1:60 ТО 8650 

ZZ(K)=XGíK=K+1 

2% (К) =УбаК=К+1 

IF МРе1 THEN PSET(XG, YG, СОГ) 100 ТО 


CONNECT(ZZ(K-4), ZZ (К-3) ) ~ (25 (К-2) „2 
ん (Kー1 ) ) , COL, PSET 
8760 IF МР=МРМ THEN 0960 
в779 GO то 8630 
8780 IF NP=1 THEN 8820 
8799 CONNECT (2% (К-4),2%(К-3))-(1%(К-2),2 
ん (K-1 ) ) , COL, XOR 
8800 Х8=27 (К-4) 
9810 YG=ZX(K-3) 
8820 МР=МР-1 
8830 Kek-2 
9940 LOCATE 22。6』PRINT МР 
GO то 8650 
RETURN 
IF YG<100 THEN М138=1: RETURN 
XGi=INT(XG/256) 
XG2=XG-XG1#254 
XG1=XG1 +260 
POKE 1,Х01:1-1%1 
POKE 1,Х0241-1%1 
POKE 1, Уб:1=1+1 
RETURN 
, 
CONNECT(ZZ(K-2),ZZ(K-1))-(ZZ(@),ZX( 
1)),COL,PSET 
POKE 1, МР: 1=1+1 
FOR L=%@ ТО К-2 STEP 2 
6С1=1МТ (2501) /256) 
BC2=Z%(L ) -ӘСІ «256 
GC1=GC1+200 
POKE 1,0С111е1%1 
POKE 1,0С211-1%1 
POKE 1,2% (4+1) 1 1=1+1 
NEXT L 
RETURN 
IF RIGHT%(CM2%,1)="," THEN 9100 
CM3S=MID# (CMDS, 6, 2) 100 ТО 9120 
CM2$=LEFT$(CM2$, 1) 
CM3I$=MID$ (CMDS, 5; 2) 
N1 mVQL (СМ20) 
N2=VAL (CM さ $ ) 
IF Мі<1 OR N1>9 ОК N2 く 1 OR N2>9 ОК 
Ni meN2 THEN 7050 
9150 НСО1=&Н7132+421* (М1-1) 
9140 HCD2=kH7132+421*(N2-1) 
9170 FOR 1=1: ТО 420 
9180 22=РЕЕК (НСрі +1) 
9190 POKE НСрі+І,РЕЕК (НСр2+1) 
9200 POKE НС02%1,72 
9210 МЕХТ І 
9220 GO TO 7030 
9250 N1=VAL (СМ29) 
9249 IF N1<1 OR N1>9 THEN 7030 
9250 J=kH7132+421%(N1-1)+18 
9260 POKE 0,0 
9279 GO TO 7950 
9280 LOCATE 2。 さ 』 INPUT"D1d you prepare fo 
r saving "IAS 
9290 IF A$="Y" OR A$="y" THEN 9310 
9300 GQ TO 7630 
9310 INPUT"Input the golf couse’s nama " 
I GNS 
9320 SAVEM (0М%,%Н7152, УН7ЕЕЕ, &Н7 152 
9550 GO ТО 7030 
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リス ト 2 МУ GOLF コ ー ス ・ デ ー タ 

Add r ў Sum: B3 DC 
7200 0 3 2 

7210 80 2 у 2 Û Add А +D +E 
7220 оо Q O0 оо 6 о ос о бо о оо С 7700 64 А4 
7250 ОО о оо оо оо С 20 оо оо 7710 OQ я D оо Q 0 20 оо C9 
7240 ОО ОО O ) оо O оо оо оо о оо 00 00 ОС 7720 Аб 0 Q 20 00 OQ 
7250 о ос т оо оо оо оо оо | | 7750 с у DO 0 0 DO о оо оо оо оо 
7260 0 7740 С s ) Q D Q ; „о 0 оо 00 
7270 7750 D оо с оо 0 20 00 оо 00 Q о оо оо оо 
7280 % оо оо O) оо ¢ () О D % о Q ОО оо 7760 од D оо оо 20 О о оо оо 
7290 Q) о оо 00 7770 оо © оо 0 š 0 оо 00 00 оо оо 
72АО О о ос 0 % Оо оо оо 00 7780 ОО 00 0 СІ о оо оо 
7260 ос Û оо О 0 О OQ 7790 у DO 0 0 2 оо о оо 00 
72CO O0 0 Ü) 00 O 1 % 00 J OQ 7780 0 % 0 OG оо оо 
72DO 00 C О С 2 у 0 оо O0 ) DO б D0 о оо оо 
72EO 5 7 0 D 06 90 


оо оо 

; оо оо 
7550 зо оо Q : C9 6с 
7360 6 о оо оо 00 4 20 у 2 оо оо оо оо 
7370 © 0 > 5 2 00 оо оо о 00 оо оо 
7380 › оо > : BD C9 
7590 оо оо оо OC о оо оо оо 3 С9 E2 
B оо 00 

ЗО ӨР 

A2 оо 

оо 00 

оо оо 

оо оо 

оо OO 

оо оо 


7900 0 0 š о оо о 00 00 оо 
7910 00 00 00 00 ОС 00 DO С % С оо оо 00 
7920 0 Ü 0 О ОО о оо оо 0 00 00 оо 
7930 00 00 00 оо 00 0 оо OQ о оо оо оо оо 00 
7940 0 о ОО я 0 о 00 оо 00 
7950 ОО 00 06 у о оо оо оо Q 0 оо оо 
7920 о 0 % о оо 00 د‎ УУ. 
7970 я 5 C 13 C8 
7980 С» 52 
7990 С. 6D 90 
7980 $ s А7 СВ 
) оо оо 

оо оо 


7500 
7510 
7520 
7520 
7540 00 00 оо 00 DO оо оо 00 0 о оо © о оо оо 
7550 6 о OO 
7560 ` 00 00 оо оо 00 00 оо 00 ос O D оо 00 
7570 00 D о 00 D0 о оо 00 Ü OQ оо оо 00 
7580 0 DO 0 о OQ DO Q оо оо С у O О 0 D 00 о оо оо 
7590 O 00 00 оо о оо Q 00 00 :0 оо о 00 Q о оо оо оо 00 00 
75AO 0 D 0 о 0 ү D оо 96 оо 0 Ж 0 % о 00 2 оо 00 
оо C 00 оо 00 
оо оо 
оо оо 


оо 
71 
92 :5 7Boo 
Е 7В10 
c9 7В20 
Cé 7B30 
оо 7В40 
00 s0 7в50 
c9? 7B60 
DC 7В70 
ОО 1:2 7BBO 
О 7В90 
7BAO 
7BBo 
7ВСО 
7вро 
EE манаа a Чисто КО ачаа tsa лы аа Жа Пр و چ‎ 7ВЕО ОО ОО ОО ОО оо оо оо 


—— əən.—  ə<>,.,——  ÜÜəhÑsx.yoe=- > .,  , a .— -———əÑ— < pəə o — — . — r -—  — U vn 
OG 76) p # L < 5МС-77790С3 LRH. SONY な ら や る と 思っ て いた (SMC-70 の ころ か ら SONY が 好き な も の で , すみ ませ ん ). ソフ トウ ェ ア に 使 

の ие Но TKEK bOI ETAn, 感動 し ちゃ っ た . 銀河 鉄道 999 で は 777 は どこ 行き だ どっ た っ け な ? 
(ウイ ング ・ マ ン さ ん に 関係 な い 強 化 W INALUDO) 


оо оо OÙ Q Ü ОО оо оо оо 


7C69 
7670 
7CBO 
7С90 
7CAO 


7ЕОО 
7Е10 
7Е20 


PiO バ ー ツ 25 


_ キャ ラク ワタ }# 


AHO 
CAR と エイ リア ン と ワー キラ イ は エイ 
リア ン ・ コ ン バ ッ ト を 作っ て い だ た と き の も 
‚ BUGGY は PICK-OUT, 人 間 と ビー ム 
Ц ANOTHERWORLD, その 他 は 思い 
き で 作り まし た . 


Room Boy Tbo 


いき な り 本 題 に 入り ます が 。 この キャ ラ ESOT 


クタ は 私 が 「 オ リ ジ ナ ル ・ ゲ ー ム 」 を 作ろ な ん と Т, 


SECRE SCR ARIT IZAT T: か 生き て いる か の よう 


し , 途中 で どう し て も バグ が と れず あき ら の で す . 


め て し まっ た ので, せめ て キャ ラク タ だ け ТЕ ZE gy A сір, 


投稿 し まし た . 
この キャ ラク タ は 。 な , Ж, 

II を 交互 に 表示 する こと に より 

に 動か すこ と が で き 


うっ も な い リ ン ゴ の キ 


Я-А 


CPJ 


PiO 


リス ト 2 MY GOLF コ ー ス ・ デ ー タ 
00 00 0 00 
оо оо оо 00 
ЕЗ 22 
15 91 
CF2 c9 
зо 38 
АҒ АҒ 
ВЕ 2 оз 
22 F1 
CO А: C2 
AO C AO 
оо оо оо 00 
СА о СА 


07 

оо 

оо 

оо оо оо оо 

оо оо оо 

оо оо оо 

оо ос оо 

оо 0 

оо оо оо 

ооо 0 оо оо 
оо оо оо оо 
оо оо © оо 
оо оо оо 
оо 00 оо 
оо А 56 


クタ も 色 を 黄色 に 変え る だ け で , な ん 

ン に 変身 する の で す 。 ミ カン に で す 
ミカ か カジ =з, ЕГДЕ”; 

SD, あな だ も この よう な すばらし い キ 

ャ ラク タ を 作る た め に , НЕН THR От 
ス 目 を 塗り つぶ し まし ょ う . 


モン スタ ーA 
(I1) 


あれ は まだ , MZ-80K が 出 始め た ころ で 
し た で し ょ うか . 私 は , と ある マイ コン 展 
に 出かけ た の で し た . そこ で 私 の 興味 を ひ 
いた の は , MZ で は な く て , PET に 入っ て 
いた 野球 ゲー ム で し た . 私 は その プロ グラ 
ム に 感動 し て , PET に 似 て いる MZ を 買っ 
て し まい , 約 1 年 ほど し て , この SUPER- 
BASEBALL の 骨組 が で きま し た . 

そし て , 友人 達 と この ゲー ム の 実践 に 実 
践 を 重ね , 打率 な ど を 付加 し て 改良 し , м 
存 し て お いた この プロ グラ ム を , WEIST 
に 発表 し ます . 


プロ グラ ム の 説明 


この プロ グラ ム は , SP-5030 で 書か れ て 
いま す が , キー 操作 の と ころ で 一 部 マシ ン 
語 を 使用 し て いる の で , デー タ を 間違え ず 
に 入れ て くだ る さい. 

また , フロ ー チ ャ ー ト は 書か ず に 作っ た 
の で す が , 参考 の た め , 表 1 に プロ グラ ム 

_ の 内 容 だ け を 示し て お きま す . 
Жі 行 番号 マッ プ 


122— 5) š 
720 860 
600— 690 
900-- 995 

1000--1099 
1100—1130. 
1200—1299 
1400—1470 守備 移動 ルー チン 
1500—1699 | ラン ナー 処理 
_ 1700—1800 点 加算 

_2000—2960 打撃 ルー チン 
3000—3999 打球 処理 
4000--4120 守備 処理 
4130--4480 安打 処理 
5000--5330 試合 終了 
5500—5850 タッ チア ッ プ 処理 
:6000--6320 ゲー ム の 説明 
1000--7130 打率 計算 
9000--9510 打率 表 作成 ルー チン 


遊び 方 


人 数 は 2 人 以上 必要 で す . 1 人 だ け で も 
遊べ ご ます が , これ は 後 で 述べ ます . 
プロ グラ ム を 走ら せる と , チー ム 名 を 聞 


投球 処理 


ボー ル 判 定 

チェ ンジ 処理 
画面 作成 ルー チン 
サイ レン ・ ル ー チ ン 
デー タ 初 期 


いて くる の で , 適当 に 組み 分 け を し た チー 
ム 名 を 入れ て くだ さい . 次 に 打者 名 を 1 
番 か ら 9 番 ま で 入れ ます . な お ぢ お, 打者 は 全 
員 右 打ち で , 投手 は 右 投 げ で す . また だ , Ж 
手 交 代 は で きま せん . 
これ が 済む と ゲー ム の 説明 が 画面 に 出 ま 
+. キー 操作 は 表 2, 表 3 に 示し ます . 
5%, ゲー ム の 始ま り で す . サイ レン が 
高らか に 鳴っ て “PLAY BALL!” の 宣言 
が あり ます . 
表 2 FRA 
же 
+ 


„| -аз 
ニー カーブ (2) 
ーシュ ー ト ( い ) 
デー フォ ー ク ・ ボ ポー ル 
|» sm 
жз 攻撃 側 
ーー タ ッ チ アッ プ 
š 


а ы 
esa 
ы p 


守備 側 


守備 側 の キー 操作 は 表 2 の と お り で す . 投 
Fl, OER, 7-7, シュ ー ト , フォ ー ク , 
チェ ンジ ・ ア ッ プ の 球 が 自由 に 投げ られ ま 
$. まだ , 直球 に は 3 種類 . カー ブ , シュ 
ー ト に は 2 種類 の 速度 が ある の で , 9 種類 の 
球 が 投げ 分 けら れる こと に な り ま す . た だ 
L, 剛 速 球 を 含む 変化 球 (チェ ンジ ・ ア ッ 
プ は 除く ) は 投球 数 に 限り が ある の で , Ж 
分 気 を つけ て 〈 く ださい. 

考え て 投げ る の が 面倒 な 人 , また は , АН 


SBO 
вее 


Ва”; урл? В 


手 が い な い 人 は , 表 2 に 示す AUTO の キー 
を 押し て くだ きい . コン ピュ ー タ の 方 で 
勝手 に 投げ て くれ ます . 

守備 は 野手 し か 動き ませ ん . 打球 が 飛ん 
で きだ たら , 外野 手 を 動か し て 球 を 取っ て く 
だ さき さい.。 ここ で は 。 打球 は 全部 ライ ナー か 
た し ます 

野手 が 打球 と 重なる (? ) と , 長打 以外 の 
と き は アウ ト に で きま す . 長打 の と き は 打 
球 が 野手 の 頭上 を 抜け た と みな し ます . 


投球 の こつ 


相手 打者 の 長打 率 は , 4 番 が いち ば ん 高 
l, 9 番 が いち ば ん 低く な っ て いる の て , 
強打 者 に は 変化 球 を 多用 し て , 下位 打者 は 
打 た だ た せ て と る と いっ た 投球 を する と 良い で 
957 

2 スト ライ ク に 追い 込ん だ と き は , フォ 
ー ク か 剛 速 球 が 効果 的 で す . 


攻撃 側 の キー 操作 は 表 3 の と お り で す . 
打つ : 打 つこ と が で きる の は ,。 スト ライ ク 
だ け で , ボー ル 球 は バッ ト が と どき ませ ん . 
バン ト : これ は 2 アウ ト で な けれ ば , いつ 
で も で きま す . た だ し , 投手 が 投げ る 前 に 
押し て お いて 〈 く ださい. また, バン ト の か 
まえ を し て お いて 強打 する バッ ティ ング も 
СЕЕ 
BE: これ も 投球 前 に 押し て お おき ます. 5 
然 ラ ン ナ ー が いる と きだ け 有 効 で す . これ 
を 押し て お く と , 打 と うと 思っ て も 空振り 
ボー ル / これ で フォ アボ ー ル 


ç H 
8 8 
4 D4) 4% 


P PiO 爆走 開始 号 , p.34, 35 の 人 へ . 答え は , トー ロイ ド (30)、 タ ルケ ン (50), ゾ シ ー(70 一 100)、 ギ ドス パリ オ (10). ザ カ ー ト (100—300), 


3/7 > (150), カ ピ (300), テラ ジ (700)、 プ ラグ ・ ザ カー ト (600 一 1500)、 ガル ん ・ ザ カー ト ( 本 体 1.000, 分 裂 後 500)、 シ オォ ナ イト (破壊 不能 )、 
バキ ュ ラ (0), アン ドア ・ ジ ェ ネ シス (中 心 核 4.000.、 アル ゴ 1.,000), スペ シャ ル ( 破 壊 不能 )、 ソ ル バ ル ウ 。 バー ラ (100)、 スペシャル (1,000). 
ガル バー ラ (300)、 ゾル バク (200)、 ロ グラ ム (300)、 デ ロー タ (1,000)、 ガル デ ロ ー タ (2,000)、 ドモ グラ ム (800)、 7а 7/--(200-- 10,000), 


Рю 


に な り ま す . な お , 成功 率 は スト ライ ク の 
と き 高 く な っ て いま す . 

タッ チア ッ プ : これ は 2 アウ ト で な く 〈, ラ 
ン ナ ー が 3 扶 の と きだ け 使 えま す . 守備 側 
は 自動 的 に 返球 し ます が , 攻撃 側 は キー 入 
力 待ち に な る の で , 相手 が 球 を 取っ た ら す 


ぐに 押し て くだ きい . 早く 押せ ば , ほとん 
ど 成 功 し ます . 
な お , [を 押せ ば 両 チ ー ム の 各 打 者 の 打 


率 が 出 ます . 


ヤマ を か け な け れ ば , まず 打 
フォ ー ク ・ ボ ー ル は 落ち れ ば 


剛 速 球 は , 
сель, 


нина SUPER BASEBALL BASIC リス ト 


1 РОКЕ! 0514, @:Р0КЕ1 0515, 0: 605088 @0@ 
5 DIMR$(9),B$(9),H1(9),H2(9), A( 20), B(20 
),D1(9),0D2(9), D9(9) 1 GOSUB1299 

10 РКТНТ"Е 88080"; 

20 INPUT" セン コ 9 J %-а/1 9 (Y29797 "IAS 
25 РКІНТ:ІНРІЛ" 29599 J -axt 9 (999979 
"B$ 

30 РКІНТ"ЕБІПП 22222254309 

35 РКІНТІРКІНТІРКІНТ" 1/7у5- ナナ マエ 3 92 
ЭУ“ элу” ос (729° 9" 

48 PRIHT:PRINT:FORI=1T09 

45 РЕТНТ И! INPUT") "1A$(IDINEXTI 

50 РКІНТ"ИИШПЕГОГ С22")68% 
55 РКІНТІРКІНТІРКІНТ" 117у9- 
зылу» UII 

69 РЕТНТ:РАТНТ:ЕОК1=1Т09 

65 PRINTI; 1NFUT" ド ンー" 3B ま (1)iNEXTI 

68 РОКЕ4464, 0: GOSUE699G 

7@ РКІНТ"Е":РОКЕЗЕ0ӨЗ,5 

80 605081200: GOSUR 1000: 805081150: 605081 
100: G0SUB1160:TI$="000000" 

100 КЕМ PLAY BRLL:R1=0:R2=0:R3=0 

110 GOSUB1399 

129 GOSUB1198 

121 SL=91EN=9IFE=0IGE=9! SS=9IFL=9! JsO1 
05081480 
122 GETG$: GOSUB1400:GETZ$:GOSUB2020 
123 IF(UF<21)*(G$="F")THENUF=UF+1:G0TO? 


20 

125 IFG$="+"THENF=0: RR=0: ОК=0: 0010200 

130 IFG$="A"THENF=40: RR=Q: QR=0: 6070200 

132 IFCU>9GOT0142 

135 IF G#$="J"THENF=0:RR=1i1QR=0:CU=CU+1: 
6070200 

140 IFG$="*£"THENF=40:RR=1:QR=1:CU=CU+11 
6010208 

142 IFST>3960T0152 

145 IFG$="] "THENF=0: RR=-1: QR=0: ST=ST+1: 
8070200 

150 ІҒб%-"%"ТНЕНҒа40:ККе-110К«-1:5Те5Т% 
11GOTQ299 

152 IFFC>19GOT0169 

155 IFGf$="£"THENF=40:RR=0:QR=0:FC=FC+1: 
0Т-ІНТ(ЕНОС12ж52:6070120 

160 IFG$=" 1" THENF=0: RR=0: 0К=0: 55=1 : GOTO 


9719 9” 


IFG$="L"THEN870 
IFG$="D"GOSUB9000 
6070122 
ІҒОТ<21ТНЕН500 
6010209 
6070122 
IFSL=1THENS99 
202 QQ=INTCRNDC1)*4): IF RNDC1)>.7THENGQ 
=1+INT(RHD(1)*2) 

204 XX=UR+618+QQ: XE=XX: МОЅІС"СӨВ" 

205 РОКЕХХ, THIFORJ=1T0S 

208 IFF<5060SUB2000 

210 NX=XX+49 

215 IF(J=1)*(SS=1)THEHF=100 
220 РОКЕХХ, ТА: РОКЕХЕ, 0: ХЕ=ХХ 
225 ҒОКІ-ФТОҒ: НЕХТ1 

250 6051182000: МЕХТЈ 

240 ІРРЕЕК(СХХ%802-198ТНЕН5000 
250 ІҒРЕЕК‹ХХ+40>= 10660703000 
290 XX=XX+40+RR 

295 Х2-РЕЕК(ХХ2 

200 POKEX: ТЯ: РОКЕХЕ, @: ХЕ=ХХ 
302 ІРРЕЕК(ХХ%482-108ТНЕН3010 
310 605062000: ҒОКІ=0ТОЕ: НЕХТІ 
320 ІРРЕЕК(ХХ%402-108ТНЕН5010 
350 ІҒРЕЕК‹ХХ)=108ТНЕМЗ010 
350 XX=XX+40+0R 

355 ХҮ=РЕЕКСХХ) 

568 РОКЕХХ, ТЯ: РОКЕХЕ, XZ: ХЕ=ХХ 
362 ІЕРЕЕК(ХХ%402-122ТНЕН2220 
365 605082000: Е0К1=@ТОЕ : NEXT I 
IFPEEK(XX+40)=122 ТНЕН5040 


і. 2754 (300—2,000), 


нт. P.S. エリ ア 16 を クリ ア で き な い 人 は , エリ ア 15 の 最後 で , ジ アラ の 弾 (後方 か ら 来 た ) で 自爆 する と , 


絶対 に 打 て ま せん の で , ボー ル に な る よう 
に 祈る し か あり ませ ん . 

曲がる 変化 球 は スト ライ ク か ら ボ ー ル に 
な る 球 が 多い の で , じっくり 見 て 見 逃がす 
が か, 

まだ ,。 フラ ファール に かなり. 中 すい の で が 
極端 に 引っ ぱる か 流し て , 守備 を 抜く と い 
う 手 も あり ます . ライ ト 線 の 方 が ファ ー 
ル に な りや すら は よう で す 、 


_ あお わりに 


бы, これ も БОЕСУ СОСЫ 
を つぎ 足し て きだ ので, プロ グラ ム が 長く 
な っ て し まい まし だ が 。 面白 い ゲ ー ム に な 


375 
380 
390 
395 
400 
410 
420 
430 
440 
450 
455 
460 
470 
465 
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ІЕРЕЕКСХХ%402-91 THEHS949 
IFPEEKCK)=1GBTHEN3929 
KX=XX+40 

XZ=PEEK( XX) 

POKEXX, ТА: РОКЕХЕ, ХУ: ХЕ=ХХ 
505082000:ҒОК1-ӨТОҒ: NEXT I 
ІҒРЕЕКСХ+402=91 ТНЕН5070 
IFPEEK(X:)=122THEN3080 
ІРРЕЕК ХХ) =91ТНЕНЗӢ8@ 
ХХ=Хх+40 

ЖҮ-РЕЕКС XX) 
РОКЕХХ, ТА: РОКЕХЕ, XZ: ХЕ=ХХ 
GOSUB200@:FORI=0TOF:HEXTI 
POKEXE,@:FOFI=0TO100:NEXTI:6G0SUB200 


490 FORI=1T0S:GOSUB2Q000:HEXTI:GOT0598 
500 QQ=INT(RND(1)*4):IF RHD(1)>.8THEHGG 
=1+ INTCRHD て 1 2 う 

562 ХХ-0К%518%00: ХЕ=ХХ: MUSIC"COB" 

505 РОКЕХХ, TR:FORJ=1T0S 

508 ТЕР< 20605182800 
ХХ=нХ+40 
РОКЕХУ, ТА: РОКЕХЕ, O: ХЕ=ХХ 
520 FORI=gTUF:HEXTI 

505082000: НЕХТЈ 
KK=XX+40+RR 

XZ=PEEK( XX) 
РОКЕХХ, ТА: POKEXE, O: ХЕ=ХХ 
605082000: FORI =0TOF : NEXT I 
ХХ=ХХ+40+0К 
ХУ=РЕЕКСХХ >: РОКЕХХ, ТЯ: РОКЕХЕ, XZ: ХЕ= 


НИНЫ 
XX=KX+40 
XZ=PEEK(XX): РОКЕХХ, TR: РОКЕХЕ › Х'/: ХЕ= 


505062000: FORI =OTOF : МЕХТІ 

K=XX+40 

РОКЕХх, TR: FOKEXE, XZ: ХЕхХХ 
505062000: ҒОКІ-ӨТОҒ: NEXT I 

РОКЕХЕ, 0: FORI =0T01 00: NEXT I : 60518268 


FORI =1 TOS: 605162808: NEXT I 

590 IFFL<2060SUB2000: 605062008: 60508200 

9: 50510182000 

595 1Е51.=160702520 

ER REMESBALLN F 488: 005081370: IF(FL=4)+ 
CXR=UR+97 9) +C XX=UR +980) ТНЕН6 ЭВ 

“585 IF0=3G0T0900 

2512 МУ$ТС"-С1":РАТНТ" 27-3: ТЕВ=ЗТНЕН 

628 В=В+ 1: 605161358: 5070690 

650 605181380: 60581 5709: РЕТНТ" IR 74-1" 

MUSIC" =C2ReC" : 605181590: 605181508 

535 S=0: 6=0: 605081350: 50710702 

640 S=0: В=0: 605181350: 6010780 

650 МӘбІС""СІЗІРКІНТ" 5512! "1 IFS=2THEN 


670 

695 ІҒ0-360Т0900 

660 5=5+1: 605081558: 6070690 

670 G0SUB1380:G0SUB1I70:MUSIC".C 
Т" б" FORI=dTO1999I МЕХТІ 

75 0=0+1 

680 5=0: В=0: 605081 350: (5070200 
698 503081395: 5070120 

700 IFHE*=" オ モテ "THEND1 い BH)=D1〈EH〉+199! GO 
10782 

701 02‹ВЯ>=02(ВЯ>+1009 

702 IFO>=3THEN900 

703 ВЯ=ЕЯ+1 

704 IFBH=19THEHEH=1 

705 GOSUB1329 

706 505081395 

710 6070110 

720 GQQ=INTCRND(1)*4)』 =UR+658+QQI ХЕ=КХ 
1MUSIC"COB" : 605062000 

750 РОКЕХХ, ТА: 605082000 
740 МХ=ХХ+8@ 


5"iFRIN 


曲がる 前 に 打っ て し まえ ば 良い の で す . 


っ だ と 自負 し て いま す . パグ も ほとん ど 取 
り 除 いた だ ので, 本番 る な が ら の 変化 に 富ん 
だ ゲー ム が 楽し め る で し ょ う 


参考 文献 

1) 大 西 康之 : “陣取り ゲー ム 1/0, "04 

8 月 号 

JPME: “野球 ゲー ム ГОН © 
『 マ イコ ユン ・ ゲ ー ム 徹底 研究 ②④』 


7 طا 


РОКЕХХ, TR: РОКЕХЕ , 0: ХЕ=ХХ: 608082000 
ЮХХ=ХХ+86 
РОКЕХХ ‚ TR: РОКЕХЕ, 0: ХЕ=ХХ 
IFPEEK(XX+40)=10860T03010 
2 605082000 
IFFEEKCX+49)=198GOT03919 
IFPEEK(XX+80)=108G0T030810 
ЖХ=ХХ+88: Х2=РЕЕКСХХ» 
РОКЕМХ ‚ ТЯ: РОКЕХЕ, 6: ХЕ=НХ 
IFPEEK(XX+40)=122G60T0850 

605462808 

228 ІҒРЕЕК<ХХ+40) =12260Т0850 
39 МХ=ХХ+80:РОКЕХХ, TR: РОКЕХЕ , XZ: ХЕ=ХХ 
РОКЕХЕ,й 
FORI=1TO5:GOSUB2GQgi NEXT: 6010520 
FW=INTCRHOC1)*+2): IFFW=160T03020 
зей 601058489 
R=INT(RHD(1)*14)+1 
IF (S=2)#(RHD( 12%. Si THENGF=" $": 80701 


IF(S=2)#CRNOC1 ><. SOTHENG¥=" |"; GOTOL 


380 OHRGOSUE 891,890,692.895.894,895,89 
8,897,893,891,892,897,891,897 

385 6070125 

390 G$="F 


898 Gf=" 3" RETURN 
3û0 FEM CHANGE : 60501550: ТЕВЯ=ЭТНЕНВЯ=@ 
310 IFAB ま =" ウ 5" THEN9SQ 
320 RB1=ER+1:BR=B1:RBf$="05":S=0:B=0:0=0 
925 НЯ=НЯ+НТ:НТ=@ 
328 CA=CU: SA=ST:F1=FC: CU=CB: ST=SB: FC=F2 
+ GF =F : UF=6F 
330 GOSUBI1370:PRINT" Fzii™ !! "MUSIC CHA 
Н8Е%:РОКЕЗЕЙЙ3, 4: G0SUB1330 
335 ІЕК>-98070980 
340 GOSUB! 000: 6070100 
350 В1=ВЯ+1:ВА=Я1 i AE$=" 1E": 5=0: В=0:0=0 
955 НВ=НВ+НТ:НТ=@ 
958 CB=CU:SB=ST:F2=FC:CU=CR:ST=SR:FC=F1 
1BF=UF:UF=GF 
360 GOSUB1370:FRINT" チェ ン ! ! "1 МЫЅІССНЗ: 
РОКЕ%Е003,5:805181390 
965 ІЕК2-98070990 
370 К=К+1: 605061000: 6070100 
380 IFRXKCGOTO5999 
985 4070949 
390 IFH=CGOT0979 
395 GOTOSQ9g 
1000 РКІНТ"Е: 
1010 v=3:FORX=0TO019:V=V+11CURSOR X,ViPR 
INHT"S":NEXTX 
1020 Y=24:FORX=20T039: =Y-1 CURSOR X,Y: 
PRINT"./": NEXTX 
1030 POKEUR+899, 1 14:FOKEUR+999, 115: POKE 
UR+612,118:POKEUR+613,119 
1040 POKEUR+65 さ , 118iFOKEUR+626, 118: POKE 
UR+62?, 119: РОКЕЈК+Є6Б, 119 
050 РОКЕМЕ%539,118:РОКЕ/8%540,119:РОКЕ 
UR+373, 119: POKEUR+380, 118 
1069 POkEUF+59,202:POKEUR+128, 202: POKEU 
R+149, 202: POKEUR+579, 53: POKEUR+589, 53 
1070 РОКЕУЕ%522,2021РОКЕУЕ%586, 202: POKE 
UR+37 3, 202: POKEUR+396, 202 
1915 POKEUR+539, 202 
075 М1=59:М2=1281М3=1491: МХ=М1 1 Ме=М2: MZ 
„18 
1080 CURSOR 30, 13: РКІМТ"5 В 08535588"; 5 
:В50 
1090 CURSOR 4, 13: РАТНТЬЕРТ$ (Я$, 1)" " 
ШЕРТ (В+, 123 "0532322"; 


ッ ル (出現 2.000, 破壊 2、000) で す ( 点 数 も 書い て し まっ だ.) ちな み に ス ペ シ ャ ル は , ADD 15НІР か , 10,000 
ワー プ す る と きも あり ます . 


( ま ・ め ぞ ん ) 


33 
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SUPER BASEBALL BASIC リス ト 


1092 РАНТЯ; " -";C 
1095 PRINT"DE" JK)" pí() "3AB$ 

1096 I=4: [FRB$="%53“"“THENI=8 

1097 CURSOR I,20:PRINT""”"J 

1099 RETURH 

1100 1-8:Р0КЕ4514,1:ҒОК.)«25570105ТЕР-1: 
POKE4513, J:USR(68) 


1800 GOSUB1360:RETURH 
2000 IFFL く >9THEN2945 
2002 IFFL=4THEHRETURH 
2010 Ц5К(%С0002:0К-РЕЕК(%СӨӨЕ): IFUR=1GO 

102658 
2015 RETURN 
2020 1Е24="Я"ТНЕН2100 


| "1 GOSUB1330: GOSUB1 370: 0=0+1 
2210 PRINT" 8233333223") SPCR 
ETURN 
2950 GOSUB13Z9:PRINT" 7 コウ ! "iMUSIC"TB 
OR1TBOR1™BO" : GOSUB1 390: GOSUB1 370 
е PRINT"ü П22222222":5РС(82:К 
Ш 


1105 МЕХТЈ 2050 1Е2$="@"ТНЕН2500 3000 OQ=INT(RNO<1)*8)/10:0=1. 5-001 IFQ>1 
1110 РОКР=0Т0150: I=8:POKE4514,I:J=10:PO 2040 RETURN « 2ТНЕНЕЯ=1 1 НН=00%10+1 3: 50705500 
KE4513, Ji USR( 68): NEXTP 2045 IFFL=1THEN2969 3005 HH=14+0Q*12:FA=0: 60103500 


2047 IFFL=2THEH2979 

2048 IFFL=3THEN2989 

2049 80Т02098 

2050 Ғіж1:РОКЕ,ЖК%939,911РОКЕШК%980,911Р 
OKEUR+937, 0: POKEUR+977, 6: RETURN 

2060 FL=2: POKEUR+939, 122: РОКЕУК%940, 122 
+ POKEUR+989, д: RETURN 

2070 FL=3:POKEUR+939,119:POKEUR+940,118 
:POKEUR+899, 108: POKEUR+860, 108 

2075 RETURH 

2080 FL=4:POKEUR+857, 59: POKEUR+897, 591P 
ОКЕЧК +899, 114: POKEUR +860, O: RETURN 

2690 POKEUR+857, 119:РОКЕОК%897, 0: RETURN 

2190 IF0=2THENRETURN 

2110 КЕМҮҮ“ УК >: 605082060: FL=@t POKEUR+93 
?›@:РОКЕОК+Э77› Ө:ВН=1 

2140 RETURN 

2150 GOSUB1370:FRINT" ik! ":РОКЕХЕ,Х 
Ү:РОКЕХХ-40, TR: МИ5ІС"..р0":РОКЕХХ-80, TA 

2151 РОКЕХх-40,0:М051С".00":605/81590:Р 
OKEXX-89, û 
s! 52 IFINT(RHD(C1)*32<>1THENFR=1:6G0T0215 


2153 680702160 
2155 IFS=2GOSUB1370:PRINT" зә" “:GOTO 
675 

2156 80703410 

2160 IF(Rl=0>*C(R2=0)*(R3=0)THENRH=INT(R 
Н0(12ж20): IFRN< 21080704250 

2170 IFR1=1GOTO2299 

2180 IFR さ =1GOT02259 

2199 ІҒ(К2-12ж(К3-02605/81185:0505/81190 
160T0675 

2200 IF(R2=1)*<(R3=1)GOT02270 

2210 IF(R2=0)*(R3=1)G0T02300 

2220 ІҒК2=160702520 

2250 605081175: 605181 180: IFINT CRHD( 12*5 
1) =56050В1170:60Т0680 

2240 6010675 

250 ІҒІНТСЕНО<12%52а300508119210805/817 

06: 6010675 

2266 6010675 

2270 ІҒІНТСЕНО<12ж112-5605081192:605081 
700: 605081185: 605081 190: 60702290 

2280 GOSUB1 192: GOSUB1 135: 005081190: 6051) 
81175: 605081180: 0=0+1 : 60SUB4090 

2285 8070675 

2290 GOSUB1 175: GOSUB1 1 30: 6070675 

2399 IFINTCRNDC 12*1 12< 25605061175: GOSUB 
1180: GOTO675 

2510 80704864 

2320 IFINTCRND(1〉* さ )=1G0SUB1 1685: 5050611 
96: GOSUB1 175: GOSUB1 130: 6070675 

2330 GOSUB1185! GOSUB4g99 0=0+1:6010675 

2500 IF(R1=0)*(R2=0)*(R3=0)THEHRETURHN 

2510 SL=1:RETURN 

2520 GOSUB13Z93 PRINT "OL イ !":MUSIC"”W 
ЕЕ #070 #С-с" 

2525 IF(XX=UR+979)+(XX=UR+980)+(INT(RHD 
<12%ж5222)60702650 

2530 1ЕК!=160102560 

2540 ІҒК2-180102610 

2550 605181192: 505062900: 5070600 

2560 1ЕК2=16010259а 

2570 IFR3=1GOTO2699 

2580 603081175: GOSUB2999i 8070600 

2590 805081 185: Б050В1 130: 605181192: GOSU 
B1175:60SUB11880:60SUE2900: 5010600 

2600 GOSUB1 192: GOSUB1 135! 805081190: GOSU 
B1175: 605081 180: 605182900: 6010600 

2610 ІҒК5з100702625 

2620 605081185: 605081 190: 605081192: GOSU 
82908: GOTO6G9 

2625 603181192: 605081 135: GOSUB1 190: GOSU 
82900: 6010600 

2650 IFR1=1GOTO2669 

2640 IFR2=1G0T02710 

2650 ІҒІНТ<КН0с12%202< 21080702550 
PE: 605061192: GOSUB1 700: 605082950: GOTO 


2660 ІҒК2з180702690 
2670 ІҒК3-180702708 
2680 GOSUB1 175: GOSUB1 180: 805182950: GOTO 


2690 ІҒІНТСКНО<12ж42< 22650702590 

2695 605181185:60581 190: 806181175: 8051) 
B1 180: GOSUB2959: 5070600 

2700 IFINTCRHD 1 )*39) く >20G0UT0258g 

2705 605161192: 605181708: 605081185: GOSU 
B1 190: 605081 175: 60SUB1 130: 605082950 

2708 GOTO699 

2710 IFR3=1GOTO2730 

2720 ІҒІНТ<ЕНО<12ж22-000702620 
2225 G0SUB1185:60SUB1 190: 605082950: GOTO 

2750 ІҒІНТ‹ЕНОС12ж212< 21380702650 

2740 605081192: 605081700: 605081185: 6050 
В1190: 605082950: 5070600 
2900 GOSUB1370:PRINT" іле { ":МО51С'„С4 


1120 1=8:РОКЕ4514, І: ҒОКЈа1070255:РОКЕ45 
1$, J:USRC68):HEXTJ:USR(71) 

1130 RETURN 
AS CURSOR 15,5:PRIHT"PLRV BALL !"tRET 

N 

1155 CURSOR 15, 5: ВЕТИВН 

1160 CURSOR 15, SIPRINTSPC( 11) 1RETURN 

1179 КЕМ<К12:СИК5ОК 26, 151MUSIC"TCO"™1 PR 
ТНТ" 4.0357 ":К1=1 

1172 605813580: RETURN 

1175 КЕМ<КІСІ >: СОКЅОК 26, 15: РА1НТ"/\ 888 
И": В1=8: RETURN 

1180 REM<RZ2>:CURSOR 19,81МИ51С"”С@“"1РЕ1 
МТ" 02279 "IRZ=1 

1182 GOSUB1389』RETURN 

1185 REMSRZCL>ICURSOR 19, 8іРКІНТ"/-022. 
"1 R2=0: RETURN 

1190 REMCRS>: CURSOR 12,15:М05ІС"”СӨЗІРК 
INT" ABTYP": R3=1 

1191 GOSUB1380:RETLIRN 

1192 REM<R3CL>:CURSOR 12, 15:PRINT"^ABS3 
e" i R3=0: RETURN 

1195 КЕМ<К42:СЦК5ОК 19, 22: MUSIC"TCO": PR 
INT "Ва "; 

1196 GOSUB1 SSO: PRINT"33I EIT": RETURN 
1198 CURSOR 17, 23:PRINT" 031": RETURN 
1200 REM<<< DATA ジョ キ >>> 

1210 К=1:КЕМ D イ スウ 

1211 S=0:B=0:0=0:R=0:C=0:FR=0 

1212 ҒОКІз17020:8<12-0:ВС12-0: NEXT I 
1215 RB$="4Aey":R1=0:R2=0:R3=0 

1214 BRH=1:R1=1:B1=1:REM3 u" a 

1215 М=202:М1=59:М2=128:М3=149 

1216 МХ=МІ:Му=М2: М2=М5 

1220 09(1) 42109‹2) 40:09535) =36109‹4)=1 
5:09(5)а25 
ө? 09‹6)=44:09(7)=#6@:09(8›=85:р969)#1 


aen POKE 10628, 0: РОКЕ 10629,0: РОКЕ10630, 


1240 ТАМЯ=71:НЯ=9: Н1=@: HB=9 
1250 CU=@:ST=0:FC=1:CR=0:CB=0: SH=9: $В=0 
1Р1=0:Р2=0: 0Ғ=0: 6Е=0: ВҒ=0 

1278 КЕМ<М061С РАТА): ТЕМРО4 
= s CH$=" СІКЗ.611..62К0..#84..6483.8283 
2" 

1272 HO$="BOR1 EBORBRESR 1 #B1ROB1RO#B 1 ROBR 
1BOFBRBSR9" 

1280 RETURN 

1290 DEF FNHCX〉=X+Q+】 1 

1295 DEF FHB(X)=II-X*Q 

1296 FORI=1TO09:H1(I)=0:H2(1)=0@1D1(I)=0: 
02(1>=@:НЕХТ1 

1293 СХа44651СУаСХ%110К-53248:р3ж0і D420 
1299 RETURH 

1500 IFAB$="4E}"THENL$=A$(BA): I=BA: 6050 
B7090:60T01306 

1305 L$=6$(BA): 1=ВЯ: 605067100 

1506 IFLENXL#$)>8THENL$=LEFT$(L$,8) 

1310 CURSOR 26, 21:РЕ1НТВЯ; “it "1%; 
1315 CURSOR 27,23:PRINTDR$:RETURN 

1320 CURSOR 26,21:FRINTSPC(20) 

1340 CURSOR 27,23:РКІНТ5РС(62: RETURN 
1350 CURSOR 29, 19: РЕ1ТНТЗ; В; O: RETURN 
1360 CURSOR 3,19:РКІНТЕЗ" -"; С; RETURN 
1370 CURSOR 16, 17:КЕТИРН 
гоб КЕМ TIME DILHViFORI=9T0S99iNEXTIIR 

Т 

1585 ҒОК1-070100: NEXT I : RETURN 

1390 ҒОК1-0Т01000: NEXT I : RETURN 

1395 ҒОКІ=070500: NEXT I : CURSOR 16» 17:РКІ 
NTSPC (72: RETURN 

1400 USR(#$C010):PK=PEEK(#CO1F) 

1418 ТЕРК=64ТНЕНММ=-1: 60101440 

1420 ТЕРК=128ТНЕНММ=1: 60101440 

1450 RETURN 

1440 ТЕМ2+ММ=1 1 9THENRE TURN 

1445 IFM3+MH=16@THENRETUFH 

1450 М1=М1+ММ: М2=М2+ММ: М3-М3%ММ 

1460 POKEUR+M1 , M: POKEUR+M2, М: РОКЕЏК+МЗ, 
M: POKEUR+MX, Ө: FOKEUR +MY, 0: РОКЕУК»М2,0 
1465 MX=hH1:M'/=M2:MZ=M3 

1470 RETURH 

1450 СИК50К19,21:РКІНТ" П2271022-/022 
“%:КЕТИЕН 

1500 REN く く RUHNER>>』 IFR1=1GOTO1699 

1550 605181178: КЕМ<К2> 
1599 RETURN 
1690 ІҒЕ2-180701650 
1605 505081 180: КЕМ<К2» 

RETURH 


1650 IFR3=1GOTO1700 
1655 GOSUB1190:REM<R3)> 
1699 RETURN 

1700 КЕМ<%, n5.):6G0SUB1195 

1702 IFHB ま =" の う "G0T01759 

1710 H=H+1iHCK)=HCK)+1』 GOTO1899 
С-С%1:В<Ко-В(К2%1 


3010 О0-ІНТСКНО(12ж10271010-1.5-00: IFQ> 
1. 1ТНЕМРЯ=1 :НН=00ж10+13: 60703500 

3015 НН=14+00ж*12: ЕЯ =0: 80103500 

3020 0зІНТСКМ0С12ж132210:1Ғ00з180703050 

3022 ІҒВН=160702150 

3025 IFQ>1THEHFR=1:HH=14:G0T03S00 

3027 FA=0:HH=23: 50705500 

3050 IFQ>1. 1THENFA=1: HH= 1 4: GOTOSSOO 

3052 IFBN=1GOTO2150 

3055 FA=0:HH=23: 60105500 

3040 Q=INTCRND(1)*13)710: IFQQ=0G0T03050 

3042 IFBN=1GOTOZ150 

3045 IFQ>1THENFA=1:HH=1 41 GOT03100 

304? FA=0: HH=23: GOT03100 

3050 IFQ>1. 1THENFA=1:HH=14: G0T03100 

3052 IFBN=160T02150 

5055 FRs0:HH=23:G0T03100 

3060 80705100 

3062 IFBN=1G0T02150 

3070 OQ=INT(RND(1)*8)/10:Q=1.5-0Q:IFQ>1 
THENFA=1 : НН=00ж1 0+1 3t 60705188 

3072 1ЕВН=160Т02150 

3075 НН-14%00ж12:ҒН-0: 60105100 

3080 ІҒ00=160т05070 

3082 IFBH=1G0T02159 

3085 80705045 

3990 60703100 

3100 RE くく "キュ の Vay>>IMUSIC"TDETF "5: RET= 
9 

3105 TI=IHT(RND( 1)wD9(BR〉 ) 

2110 JJ=IHTCCXR-UK)/49〉 

3120 II=(XX-UR)-JJ*40 

3140 РОКЕХХ,0 

3150 FORyX=QTOHH:XX=UR+(JJ-X)*40+FHR(X) 

3155 1ҒХХ<55324860705405 

3157 IFXX=53447G0T04299 

3160 XY=PEEK(XX) 

3170 РОКЕХХ, TA 

3180 1ЕХ\'=20260104600 

3208 ҒОК1<ӨТОТ1:МЕХТІ 

3210 РОКЕХХ, ХУ 
222 605082000: ІҒХ/3-ІНТ(Х/32-080518140 

3400 НЕХТХ 

3405 IFFR=060103440 

3410 IFFR=16OSUB1370:FRINT" 27-і" 

5420 1Ғ5=26070690 

3430 5-5%1:005081550: 8070690 

2448 60704100 

2499 8070120 

3500 REN く く タ "キュ ウ 9 97222: MUSIC""D9FF "RET 
si 

3505 TI=INTCRND( 1)*D9(BA) > 

3510 112<ХХ-0К)-ІНТ((5Х-УК2/402ж40 

3520 11-<ХХ-0К2-11ж40 

3540 РОКЕХХ,0 

3550 FORX=0@TOHH:XX=UR+(JJ-X2*40+FHB(X) 

3555 1ҒХХ55524850105905 

3557 1РИХ=5340660Т042@@ 

$560 XY=PEEK(XX) 

3570 РОКЕХХ, ТЯ 

5580 ІҒХ'=20260т04006 

3600 FORI=@TOTI:HEXTI 

3610 РОКЕХХ, БУ 
29 605082900: ІҒХ-5-ІНТ(Х/32-080508140 


3900 NEXTX 

3905 IFFA=0G0T03340 

3910 IFFH=1GO0SUB13?9!FRINT" 27-0" 

3920 ІҒ5«28070699 

2938 5=5+1:505081350:6070690 

3949 GOTO 4100 

3999 GOTO 120 

4000 ІҒТІ>5ТНЕМ60Т049201КЕМ<СВТСН» 

4010 ІҒКЕТ-060703200 

4015 60705608 

4020 IFINT(RHD(1)*100)=50G0SUB1370:PRIN 
Т" 15-!!":80704019 

4050 РОКЕХХ, ХУ: IF(R1=1)*(X く 15)*(TI く 31)* 
(0<2)G0T04969 

4040 ІҒ<Б3-12ж(0<22%<Х2142680705500 

4050 GOSUB1370:PRINT" ??%!":605181590: 
МИбІС".Е1":0070675 

3060 IF¿(R2=1)*(R3=0)*K0=0)*#(X<105>*(RET= 
12807040970 

4062 ІҒ<К35г12ж(К2-12ж(0<.2280704080 

4064 805081175:0-0%1:6051/84090: 5010675 

4078 GOSUB1 175: GOSUB1 185: GUSUB4995: 0=0+ 
2:6070675 

4072 605181370: РКІМТ"Е3"; РСС 10): 605081 
175: GOSUE 1 165: 0=0+2: 6070675 

4080 605181192: GOSUB1 135: GOSUB 1 190: GOSU 
В1192:605061175: GUSUB1 130 

4085 005061170: 805064090:0=0+1:6070675 

4090 505081370: РКІНТ"С39“ 202° L- ! "1 6050 
B1390:MUSIC".C1R2-C4" 

4092 GO0SUB1370:PRINT"BS"1ISPC(10)1:RETURH 

4095 505081370: РКІМТ "ЕЗ7 07 - ! "3 GOSY 


ЕЕ ЕЕК ЕЕ ЕЕ РЕ 
ТОРС) と PC-8801 用 の アル フォ ス で , £ ERRE THEIR = L DE А FB э лю &нр5ролы& #037. Еа CAT? 
Ол Ол с? だ さい . 来る 日 も 来る 日 も 途中 で や られ て いた 僕 は , これ で や っ と ア ルフ ォ ス を 見 る こと が で きま し た . P.S. 誰か 。 ニ ー モ ニッ ク 号 の 数 を 増 


や す 方 法 を 教え て くだ さい . (山猫 は Berg Katze) 


PiO 


81390: МИ51С".С1К2.С1К2.С4" 
4098 605081570:РКІМТ" 2": SPCC 10) RETURN 
4100 IFTI=9GOT04499 


сәкі 


4116 ІЕТІ<460704508 

4128 1ЕТ1‹1160704200 

3150 КЕМ«НІТ>1605081155ІРКІНТ" 

HT=HT+1 

4155 IFHB$=" オ E テ "THEND1 く BR〉=D1 く BR〉+11GOT 
04139 

4156 D2(BA)=D2(BA>+1 

4140 IFR3=1G0SUB1 192: GOSUE1 700 

4158 ІЕК221605081185: 605081190: IF (INT (R 
мре >w5)=3)*CQ2 。?>GOSUE4139 

4169 ТРЕ 1803061 1751605081130: IFCINTCR 
NDC1*2>=1*CG2.8)*(RET=9>G0SUB419 
64179 8090811791909081599:80808116916070 
4180 905081192: 609081799: RETURN 

4190 IFR3=1THENRETURN 

4195 GOSUB1185:G0SUB1130:RETURH 
24200 REMC2"= <21 IFINT(RND(1 >¥32=160TO41 
4205 GOSU81155:PRINT" 25" -2!!"iHT=HT+1 
12% IFAB#="AeFTHEND1 BASDI (BA>+ : 60 
4207 D2(BA)=D2(BA) +1 

4210 IFR3=1GOSUB11921G0SUB1799 

4220 1ҒЕ2з10050811851005081190 

423 IFR1=1GOSUB11751 OSUB1189 

4255 605081178 

4240 ІРК5з1805081192:605081780 

4250 IFR2=1G0SUB1135:GOSUB1190:IFINTCRH 
0‹19#ж2)=1808081192:605081709 

426 605061175: 605181180: 603061 560: GOSU 
B1166: GOTO649 
95300 RENCI -2>1 IF INT (RHO (1 )*3>= 160042 
4305 GOSUB1 155: PRINT" 3-2! 1! ":НТ=НТ+1 
24386 IFRE4c"4e け "THENP1KBRDCDI て BR11180T 
4307 D2(BR)=DZ(BR)+I 

4310 IFR3=1G0SUB11921 GOSUB1 700 

4520 IFR2=1GOSUB11851G0SUB1130 

4330 IFR1=1G0SUB1175!G0SUB1189 

4335 605081170 

4340 IFR3=1GOSUB1192: 805081700 

4550 IFR2=1GOSUB11851 605181198 

4520 603081175: 605081 180 

4370 IFR3=1GOSUB1192: GOSUB1700 

4380 GOSUB1 1651 805081 13@: 605081 380: GOSU 
81168: 6010640 

4490 РЕМ<НОМЕКИН >! IFINTCRNDC1)*3)=1GOTO 
4300 

4405 FORJ=0TO3t GOSUB1 160360581385: GOSU 
B1155:PRINT" T-&32'1)1"iGOSUB1380:NEXTJ 
4497 MUSIC HO#:HT=HT+1 

4408 IFRB*=" オ で "THENH1(BR)=H1CBR〉+1:D1C 
ВЯ) =01 (ВЯ)+1: 60704418 

4409 Н2СВА>=Н2<ВЯ>+1:01 (ВЯ=01 (BA) +1 
4419 IFRS=1GOSUB11921 603061708 

4420 IFR2=1GOSUB1 135: GOSUB1 120 

4459 IFR1=1GOSUB11751 GOSUB1139 

4455 GOSUB1179 

4439 IFR3=1GOSUB11921G0SUB1799 

4450 IFR2=1G0SUB1185 GOSUB1139 

4460 603061175: GOSUB1189 

4470 IFRS=1GOSUB11921G0SUB1709 

4480 605081185: GOSUB11301 GOSUB11921 GOSU 
B1700: 603UB1389160SUB1160: 600640 

5000 РЕМСВАМЕ SET>:POKECX,14:POKECV,S5:P 
RINT"GAME SET !!!"3GOSUB11G9 

5010 MUSIC"EQ"; PRINT "EEEECEEEeeeeeeee 
リア イ т.п 00000000" 

5015 PRINTTRB(25):"uP( ジカン "JLEFT$CTI$ 
,21"i"iMID$CTI$, 5,2 

5020 РЕТНТ"ЕБЕЕЕЕЕЕЕЕ" ASI" X ";B$:PRIN 
т°п" 

5030 PRINTLEFTSCA#, 127 " 1133": "4883" И.Е 
FOO | ТОЗЕРЕТЫТ* 0-08" 1: "BAR" ACI 
E РТТ 9-80-13 mig” 

е a Y STHENPRIHT"8 "1160105043 


2042 РЕІМТ"222—223":6<1231МЕХТІ: 807050 
4 
5043 РКІМТ"822---02222%:8(12:8"::НЕХТ 
I 


5045 PRINT"g-8"; 

5050 РОКІ =4Т06: РКІНТ"0-002"; 1; "BS お RCI 
>321ҒЯС122ЭТНЕНРКІМТ"2"3 160105055 

5052 РКІМТ"022--022":БС12::НЕХТІ:007050 


55 
5053 РКІМТ"П22---02222%:8(12:"Б::МЕХТ 
I 


5055 РЕІНТ"0-0"; Е 
5060 РОКІ =7ТО8:РКІНТ"0-602": 1; "833" ACI 
>}: ТРАСІ 29ТНЕНРКІНТ"2" 3 160105065 

6062 РКІНТ"П22--022428<12::НЕХТІ: 807050 


79 

5065 РКІМТ"022 П2323";РБ01›5"@"3:НЕХТ 
1 

5@7@ РЕ1НТ"й-ППЭПзз";ЯСЭ›; "В38—838";:1 
FHE ま =" オ モナ "THENPRINT" x";:G0T05090 

6075 IF(HXC〉*KKK19〉THENFRINTBC123 "ХЗ"; : 
60705090 

5080 РЕТНТВ‹ 12; 

5090 ІЕК< 10650705110 

5095 РЕІНТ "0-23"; 

5100 FORI=10TOk:FRINT" 0-803"; 1: "BS の BHC 
101-052--022":8<123:МЕХТІ 

5119 РКІНТ"0—+02122510- 60700532" A "022 
— gaug"; 1 IFR.360T0S130 

5120 РАТНТ"5"; 

5150 РКІНТСІРКІНТ"П" 

5140 PRINT" る る ーー HIT — 

5150 РЕІМТ" | I 

5160 РЕІНТ" 22 ーーー ゴゴ 

5170 РКІМТ"221 I 1 

る 499。FRKINT2IE ニ ーー ニーーー 

5190 PRINT"BD8G0";TRBC4)ILEFT$(R$, 12} "55 
"IHA 
5195 
в 


PRINT"D")TRB(4)ILEFT#(B$, 121 "ЕБІН 


5200 РКІМТ"0008"; ТАВС20) ; "НОМЕКИНД": 7-0 
5210 Е0К1=1 109: IFH1(1):9THEHFRINTTHB(29 
FASC "НІС ІНІ J=J+1 

5229 NEXTI 

5210 FORI=1T09: IFHZ(1)>9THEHPRINTTHB(29 
РЕЖ" 3Н2СІЗ "B": J=J+1 

5240 НЕХТІ 

5245 ІЕЈ=ӘТНЕНРКІНТТАВС ZO)" +u" 

5250 РКІНТ"ШП0100000002002000 ENF VIR 


р?" 
5260 РКІНТ"@70=1 #070 лу 

5500 5ЕТ72%:1Ғ2%-""80705500 

5510 ІҒГ%-"1"60Т070 

5520 ІҒ2%-"2"507010 

5325 ІЕ2$%="0"505089000: 60105018 
5339 ЕМО 

5500 11-<ХХ-0К2-ІНТІСХЫ-М/К2-402ж40 
5510 JJ=IHTICXX-UR)-40): I X=}: TI=50 
5520 ІҒКЕТ-060705600 

5530 80105700 

5550 ВЕТХ$: 1Е6Е=16010557@ 

5555 IFX ま ="1"THENGE=1 : 60581378: FRINT" 
92% 72° ": 6051081 192:РР=634 

5557 RETURN 

5570 POKEPP+UR, 202: РОКЕРЕ+УК, O: FE=PP: PP 
=РР+41 i: RETURN 

5600 FORX=OTOIX: ХХК ])+Х›*4@+ЕНВОХ 
5605 ІҒХ/3-ІНТО%/32е0805Ц85550 

5610 ХУ=РЕЕКСАХ 

5620 РОКЕХХ, ТЯ 

5630 ҒОКІзФТОТІ:МЕХТІ 


- Фа" 


1700: РЕ=0: 605085800 

5670 РОКЕХХ, ЖУ 

5680 NEXTX 

5685 1Е6Е=06010675 

5690 80705850 

5700 FORX=0TOIX:XHE#UR+(JJ+X)*40+FHR02X) 
5705 ІҒМ/3-ІНТ(Х2/32-06805085550 

5710 ХҮгРЕЕКСХХ> 

5720 РОКЕХХ, TH 

5730 ҒОК1-ӨТОТІ! МЕХТІ 

5740 ІҒРЕ<899ТНЕМСЕ-0:РОКЕМКжҒЕ, д: GOSLIB 
1700: РЕ=0: 605065800 
5778 РОКЕХХ, ЕУ 

5780 МЕХТХ 

5785 IFGE=qGOTO67S 
5792 80105850 

5200 605Ц81370:РКІНТ" 2-2! ":13=0:В=0: 
6051813550: RETURN 

5850 605М81370:РКІМТ" 9k ! "MUSIC" こ C 
2R1-C2R1-C2": POKEPE+UR, @:0=0+1:60Т0675 
6000 РКІНТ"000255227%-2 Ј (9х4 0 ? (YN 


М 
6010 БЕТ? $1: IFZ ま =" "60106019 
6020 1Е2$="Н"ТНЕНКЕТОКМ 


6030 РКІНТ"8") 
1832221 1535353 — 


6040 KY$=" — 022221 
>> 
6050 РКІМТТВЕ(102:"19- ) KEY уд" 
6060 РКІНТ“В0“:ТАВС52:КУ4:"022212273"9 
WPa (ラン ナー3 ル イナ トキ 9" 102028" 
6070 PRINTTAB(3); KYS; "SSGBBB'i" ト の LT ( 


5640 IFPE=899THENGE=9: РОКЕЏК+РЕ, 0: 60506, 


SUPER BASEBALL BASIC リス ト 


う ン ナー J イル АҒ 977 102900" 
6080 РКІНТТЕВ(32:КУ8: "DSSSRESE" I" AUS て 
1 РОК (0 + 192900" 

6090 РКІНТТЕАВ<52:3КУ3: "02222222; "9% (PU 
SH 72” КЕЎ) 

6100 РОКЕСХ, 17: РОКЕСУ, 24: PRINT" 102 1008. 
N VE gagi"; 

6110 РЕТНТ"55555555550К?": РЕ =0 

6120 БЕТХ$: 605082000: ІҒХ3-"Ү" 80706140 
6130 680706120 

6140 РКІНТ"Е"3ТАВ(112: "Бе ә%»-) KEY 909" 
6150 РЕТНТ"В"; ТАВС2); "ИРУ! | ";ТАВС 192} " 
FAST": ТЯВ< 2532; "SLOW" 

(6155 РКІНТТАВ(22:КУ3: "П0222102-72200225 


6160 PRINTTRB(10):KY$; "00222-021922-Хі/ 
-|-005"; КУФ: "80533003А% 
6180 PRINTTHBC1923KV ま 3 "802221027222-)-2 
` -085";К\У$; "005537854206" 

6190 РЕТНТТЯВ<18>;К\У$; "20222-02 з0202-у2- 
+ -605";К/$; "BOSSA" 

6208 PRINTTRE CIII a— — uo 
6210 РЕТНТТЯВ<19>;КУ$; "503354 05152269; 
83838387.,2° 00055"; KVS; "50355205318"; 

6220 РКІНТ"226 24-28" 

6225 PRINTTAB(2);KY$3 "П0222.02.4226 226 
02222097000"; 

6230 РКІНТ"Е2 СО0225684:КУ9:"П0222%00Ғ9" 


ШЦ 

6250 РКІНТ" Ее vat gassaat n" 

6500 РКІНТ"Ш2 OK?"J 

6510 СЕТУ: ІҒХ%-" "60706310 

6520 RETURN 

7000 05а1МТ(01(12/1002:04-01(12-03ж100 
7010 1Е04=@ТНЕНОЯ$ =". 200" : RETURN 

7020 IFD4=D3THEHDH*=" 1. 00": RETURN 

7050 DH=D4/D さ +、 0001: DA$=MID$(STRS CDA), 2 
» 4) 1RETURN 

7100 О5-ІНТ(02(1271002:04-02<12-03ж100 
7110 1Е04=@ТНЕНОЯ$=". 000": RETURN 

7120 IFD4=D3THENDA$=" 1. 00" : КЕТПЕН 

7130 DH=D4D3+. 0001: DA$=MID$ (STR CDA); 2 
+4) i RETURN 

зода LIMIT$CO0Q 

8019 FORI=OTO14:RERD KbIPOKE49152+1,RDi 


NEXT 

БҰЛАН FOR1I=9TO123KEHDKDI РОКЕ49168%1,К01Н 
x 

8099 RETURH 

8190 DRHTH62,246,59, 9, 224,58, 1,224,47,25 
0,1,50,15»192,201 

8110 DATA 62, 249, 56,0, 224,53,1,224,47,5 
9, 51,192, 201 

9000 PRINT"E" 3 :КЕМС< `` >> 

9010 РКІНТТАВ(62: "0000660 y" +f СОРТ Ф 
0000000" 

9020 РКІНТ"8": ТЯВ‹5): A$; ТЯВС20>; "! "i ТАВ 
<26 3 ВРЕТ ТЯВ‹20)3 “1 " 

9030 РКІМТ"п“ FI FAH が りり 1 ドン ナマ エ 
9°29 Н 97993 SPCC(20); "i" 

3040 FOR 141109 

9050 РЕТНТЭТЕ$< Г". "J 

3060 HM$=R$(I):GOSUB9SOQ:FRINTHM#I" "J 
3070 GOSUB70001D3$=" "%5ТК%9(р321ҒКІНТКІ 
GHT#(D3$, 221“ "3 

9080 D4$=" "“+3TR$(D4)1PRINTRIGHT#(D4$, 2 
yy" و"‎ 

9030 PRIHNTDR$;" | "$ 

9100 PRIHTSTR$(1 う 0 。 "3 

9110 НМ%-8%%12:0805089500:РКІНТНМ%:" "3 
9120 805087100:05%-" "%5ТК%(032:РКІНТКІ 
GHT$(D3$,2);" "J 

D4$=" "%5ТК%(042:РКІНТКІСНТ%(04%,2‏ ر 
OT‏ 

9155 
9140 
9150 
9160 
2170 
9180 
9130 
9200 


РАТНТОЯ$; 
PRINTSPC( 222: "| ": МЕХТІ 
PRINT" PUSH ANY КЕ"; 
6Е72%:ІҒ2%-""ТНЕН9160 
РКІНТ"Е":60050в1000 
IFR1=160SUB1170 
IFR2=1GOSUB! 130 
IFR2=1GOSUB1 190 

9210 605181500: GOSUB1 198: RETURN 
9500 IFLENCHMS)<6THEN НМ$=" 
M$=RIGHT#CHM$,5):RETURH 

9510 HM#$=LEFT#(NM$, 5) : RETURN 
“usss USR($CO00) 1 PRINTPEEK( $COOF > $ : GOTO 
1 


"+НМ$:Н 
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ЕР-Т100 


BASIC 


Baseball Ga 


ベー ス ボ ー ル ・ ゲ ー ム 


>> 


— 


> 


сіз 


最近 は 各社 か ら 新 製品 が 続々 と 発表 され 
バラ エ テ ィ 豊 か に な り , 消費 者 側 ( ? ) か ら 
すれ ば , まこ と に 結構 な こと で す . し か し 
MZ や PC シリ ー ズ を 除く と 新 機種 の 場合 ソ 
フト が 充実 する の に か な り の 時 間 が か か り 
ます . この た び , FP-1100 の コス トバ フォ 
ー マ ン ス に 引か れ 買 いま し た が や は り ソ フ 
о ЖЫ у 
コン を 買っ た ば か りな の で す が な ん と か 組 
みあ げた の が この Baseball Game T$. 


жетсе 


いろ いろ 評 が ある と 思い ます が 1 箇月 あ 
まり 使っ て みた 感想 を 少し ば か り …. 

まず ,。 ファン が うる きい こと 。 某 筋 が から 
の 話 に より ます と 最初 ファ ン は あり ませ ん 
で し た . 各 販 売店 の FP の 写真 を 見 る と 本 体 


コム バック ・ テ チー ム ホー ムラ ン ノ 


の 上 に 通風 也 が ある の が 分 り ま す が 実 際 手 
元 に 届い だ も の に は あり ませ ん . これ は ロ 
ー ド ・ テ スト 期間 中 に 不都合 が あっ た た め 
«ЭЧЕ, 

次 に サブ プ CPU に つい て で す が ,。 クロック 
が 2 MHz の だ た めか どう か は 私 の 知る と ころ 
で は あり ませ ん が その ため に CRT の 表示 
が 遅い よう で す . も っ と も BASIC で の 話 
で すけ ど …。 あ と いみ いろ あり ます が 。 7 
ログ ラム 分 割 機能 は 便利 で す . いろ いろ な 
サブ ルー チン ・ テ スト を し , 後 で MARGE す 
れ ば OK で すか ら . ま た だ 640※X200 ド ッ ト の カ ヵ カ 
ラー, 640X400 ド ッ ト の 高 解 像 も この 価格 
か ら す れ ば で きす ぎ と 思っ て ます けど …. 
まだ まだ あり ます が , 他 の 機会 に ゆず り た 
いと 思い ます 。 


9 


この プロ グラ ム は , 私 の 研究 室 に PC 一 
8001 用 の も の が あっ た の で それ を 基本 に し 
まし た . これ で 一 応 虫 は いま せん (と 思い 
ます ). 各 ルー チン の 見 出し を 付け て あり ま 
す の で 各自 で いろ いろ アレ ンジ し て くださ 
い .。 ダ イヤ モン ド は は ほ ば ぼ ば 正方 形 に な り ま す . 
外野 手 は 1 コマ し か 動け は せん が 割 に これ 
が お も し ろ い の で す . プロ グラ ム ・ サ イズ 
は 11K バ イト 余り も あり ます が ,REM を 省 
EL, マル チ ・ ス テー トメ ント に すれ ば , 
見 に くく な り ま す が 小 さく で きま す . 


Base ball Game BASIC リ スト 


あと ヒッ ト の 判断 , ファ ウル ,。 スト ライ 
ク の 判断 は 大 ま か に 行なっ て ます の で ( 各 ル ん 
ー チ ン を 見 て くだ きい ) 正確 に や り た だ たい 方 
は ドッ ト 単 位 で の 判断 に 変更 し て くだ さい. 
バー ジョ ン UP で これ ら の 点 を 変更 し よう と 
考え Ex т, 


Caz-BASIC の 勉強 に いろ いろ な ソフ ト が 
出る まで の つなぎ に … と いう わけ で 作り まし 
だ けど …。 や は り マ シン 語 で 組ん で みた い 
も の で す . これ か ら , 少々 遅まき で す カ が >\ 
ーー ロン (РЕЗО 


уй 

ロロ (参考 文献 

1) PC-8001 ベ ー ス ボー ル ゲー ム 
(研究 室 に あっ た もの) 

2) カシ オォ Csz-BASIC ЖЕ (586) 
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= 10” ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ 
20 ° HHH жж 
30” ++ CASIQ ЕР-1190 + 
40 ° HK BASIC GAME BOOK ж-ж 
50 * жж жек 
...” Жж Copyright (С) Dec. "日 2 ыды 
79 ” жж ささ 
во, е (Mo. 7) ^2 жж 
90,” жж жж 
100 ” ドス Baseball Game ver 1.1 жж 
119 ” жж жж 
120, + ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ УЕ ЭЕ = ЗЕ 
150 CLEAR:GOSUB 2720 
160 ” ----- start of inning ----- 


179 РКІМТ СНК%(12)%:Сі-(ІМ MOD 2) +5 
180 OU=0: SC=0:R1=0:R2=0:R3=Ø: GOSUB 2540 


21 


o (O) ТЄ), >РС-1500< “POKE & 7850,0 と 入力 し て [ENTER] を 押す と , カナ ・ デ ー タ を 入れ て いな く て も , カナ ・ キ ー を 押す た びに 液晶 表示 の 上 に 
Ол Ол “4027 rB $ T. 27. >—>, カナ ・ モ ジュ ー ル を 持っ て いな い 人 , これ で も や っ て 悔し き を ま ぎ ざら わせ て くだ さい . 135, これ は 「『「I/O 
別冊 、 ポ ケ ュ コン 活用 術 」 を 参考 に し まし た . 私 も そろ そろ マシ ン 語 に 燃え て みよ ー か な と 思う この ご ろ で す 。. (NAKKO) 


Рю 


Baseball Game BASIC У АР 


190 ІМ MOD 2=1 AND 13х16 THEN Х5-Т1-Т2 ELSE Х8=98 

200 ” ----- start of опе batter ----- 

210 ST=@:BL=@:LOCATE7,19:PRINT" "sLOCATE 7,20:РКІМТ" г 

220 IF 5С>Х5 THEN 2220 

230 ' ----- main routine ----- 

249 IF OU=3 THEN 2020 

250 LOCATE 7,21:COLOR 2:FRINTSTRING$ (OU, "®") :COLOR 7 

260 IF POINT(173,87)<25 THEN PUTE(14648, 90) - (179,99) „MD, ХОК: РОТЕ (168, B2) - (179,91 
), MD, XOR 

270 IF РОІМТ (2235,49) < >5 THEN PUT@(272,44)- (285,55) 。 MD, ХОК: РТ (228, 44) ~ (259,55 
J), МО, ХОК: РОТЕ (205,44) – (297,62) 。FDX 

280 IF POINT (3529,49) < >5 THEN РОТЕ ‹(280, 44) – (291,55) 。 МО, ХОК: РОТЕ (524, 44) – (555,55 
),MD, ХОК: РОТЕ (225, 45) – (297,62) „Еру 

290 IF POINT (585,85) <>5 THEN FUTE (576,88) - (587,97) ‚МО, ХОК: РОТЕ (580,80) – (591,89 
) , MD, XOR 

300 IF FOINT(157,29)<>5 THEN РУТ@(152+ТК*4, 24) -(165+ТК*4, 33), MD, XOR:PUT® (152,2 
4) - (105,33), М0, XOR 

510 IF РОІМТ (281,15) <25 THEN РУТ@(276+ТК*4,10)-(287+ТК*+4, 19) , MD, ХОК: РОТ@ (276, 1 
©) - (287, 19) „Мр, ХОК 

320 ТЕ РОІМТ(401,29)<>5 THEN РУТ@(396+ТК*4, 24) -(407+ТК*4, 33) 。 MD, XOR: PUTA (596,2 
4) – (407,35) 。 MD, XOR 

550 М7=59:МВ=70: М9=100 

3409 Т=0:10САТЕ $5, 11:С0$=1МРИТ$ (1) 

350 ТЕ С0%="7" THEN ВХ=67.5 ELSE IF СО%="8" THEN ВХ=69.5 ELSE IF С0%="9" THEN 
ВХ=71.5 ELSE 340 

360 QUAD(264 154) – (265, 166) : БЕТЕ (264, 154) – (2455, 142) „М5 

370 К!$=1МРИТ$ (1) : KI=VAL (КІФ) :КЈ=КІ MOD 3 

580 IF К!=0 ОК KI>é THEN GOTO 379 

599 IF КІ<4 ТНЕМ 5Р=4 ELSE SF=2 

400 IF KJ=1 THEN GBR=ー9.2 ELSE IF KJ=@ THEN GR=9.2 ELSE GR=0 

410 BY=49: ВТ=0: ВХ=ВХ+. 5: LOCATE 09,0 

420 БА= (КМр (1) ~. 5) /25: GR=GR+ (КМО(1)-.5) /19 

430 ТЕ BX<=@ THEN НТ=2: Ко=1:60Т0 1980 ELSE FUT@(BX*4,BY*2)—- (BX*4+3, ВҮж2+1) , ВАХ 


IF 


440 5Х=ВХ: BY=BY: GR=GR+GA 
450 BX=BX+BR: ВУ=ВУ+5Р 
480 ТЕ SY=73 THEN IF BX>=67.5 AND ВХ<72 THEN JA=1 ELSE JA=0 
479 PUT@(SX*4,SY*2)—-(SX*4+3,SY*2+1) , ВАХ, ХОБ. 

480 IF SY=85 THEN 1660 

499 ОМ BT GOTO 530,570, 610, 650, 670,740 
500 IF ІМКЕҮФ=" " THEN BT=1 

510 2=UBR の (の) 

520 GOTO 430 

550 PUT@(264,155)-(283,166),Mi, XOR 

549 BT=2 

550 IF BY=77 OR BY=79 OR BY=81 THEN 699 
560 GOTO 430 

570 РОТЕ (266, 154) - (288, 163) ‚М2, XOR 

580 BT=3 

2590 IF BY=75 DR BY=77 THEN 690 
699 БОТО 430 
619 FUTE(244, 145)- (288, 154) , M3, XOR 
620 BT=4 
430 IF BY=71 OR BY=73 OR BY=75 OR BY=77 THEN699 
640 GOTO 450 
450 FUTE (224, 142) – (285,154) „М4, XOR 
8609 ET=5: GOTO 430 
470 FUTE(244, 142)- (2645, 154) , MS, XOR 
Ве BT=4: GOTO 450 
490 IF BX=<67 OR BX>=72 THEN 450 
700 IF SF<@ THEN 430 
719 BEEP: БК=6К+ (BX-70. 5) /2+ (ВҮ-77) /2 

SP=-2: BR=BR+(RND (1) -0. 5) 


BY<4 ТНЕМ 1880 
759 IF BY=4 さ THEN 820 
760 ТЕ BY=25 THEN 910 
779 IF BY=53 THEN IF BX<42 ОК BX>98 THEN 1520 
780 ТЕ BY=13 THEN 1140 

799 IF BY=7 THEN 1160 

Воб ТЕ JAXQ THEN IF BX く 29 ОК BX>119 THEN 1480 
810 IF BY<=19 AND T=@ THEN 1580 ELSE 450 

° BX> さ 7 AND BX<47 THEN 860 
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Baseball Game BASIC リ スト 


1199 
1119 
1120 


1150 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
` 1210 


1250 
1240 
1250 
1260 
1270 
1280 
1290 
1500 
1310 
1320 
1550 
1540 
1350 
1340 
1370 
1380 
1590 
1490 
1410 
1420 
1450 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 


1530 
1540 


19,13:РКІМТ" "s OU=OU+1: ВЕЕР 


1220 ' 


Ay ВХ<93 OR BX>191 THEN 430 
(コニー catch ball first ----- 
рте GOTO 1019 
=== catch ball 3rd ----- 
IF Кісі AND К2=1 THEN 1420 
IF Rl=@ AND К2=1 THEN К1=1:К2=0@ 
IF R2=@ AND R3=1 THEN К2=1:К5=0 
DI=1@:GOTO 990 
IX=INT(BX):IF ІХ>55 AND ІХ<61 THEN 960 
IE ІХ<80 OR IX>85 THEN 430 
ем catch ball 2nd ----- 
IF Кісі THEN GOTO 1260 
оте 6:GOTO 990 
ーー catch ball short ----- 
IF Кісі THEN БОТО 1300 
DI=8: GOTO 990 
sassa pitch to first ----- 
FUT@(SX*4,SY*2)—-(SX*4+3,SY*2+1) , ВАХ, XOR 
X=BX:Y=BY 
Рите (380, 86) – (591,89) „MD, XOR 
PUTE (576,88) - (587,97) , MD, OR 
IF DI=1 THEN 11109 
FUT@(SX*4,SY*2)-(SX*4+3,SY*2+1) , ВАХ, XOR 
Рите (Хж4, Үж2) – (X#4+3, уж2+1) 。 BAZ, ХОК 
SX=X:SY=Y 
X=X+(93-BX)/DI:Y=Y+(45-BY)/DI 
IF Х<95 THEN 1040 
FUT@(SX*4,SY*2)- (5Х#4+5,5үж2+1) , BAZ, XOR 
LOCATE 50,15:РКІМТ "OUT" 
FOR Ісо TÒ 500: МЕХТ: LOCATE 50, 15: РКІМТ" "sLOCATE 53,4: РКІМТ" 


"sLOCATE 


IF OU<3 THEN RG=9』 GUTO 1980 ELSE 200 
IF ABS(M7-BX)<2 THEN LOCATE М7/2-2,2:60Т0 1170 
IF ABS(M9-BX) く 2 THEN LOCATE М9/2-2,2:60Т70 1170 ELSE 430 
IF ABS (М8-ВХ) <2 THEN LOCATE M8/2-2,3:GOTO 1170 ELSE 450 
жана жесе catch ball ----- 
PRINT "OUT"; : BEEF: OU=OU+1:FOR I=@ ТО 500; МЕХТ 
LOCATE FOS-3,CSRLIN: FRINT" % 
IF ІМКЕҮФ-"Т" ОК INKEY$="h" THEN 1220 
GOTO 200 
сел еже touch up ----- 
IF OU=3 ОК R3=0 THEN 200 
R4=1:R3=@ 
GOSUB 2529:GOTO 200 
awas get two course by second ----- 
FUTE (228, 44) – (239, 53) , MD, XOR 
РОТЕ (272,44) - (283, 53) 。 MD 
1=71:4=-1:бОТО 1340 
,----. get two course Бу short ----- 
PUTE (324, 44) - (335, 53) , MD, ХОК 
ID 
I=69:J=1 
PUT@(SX*4,SY*2)- (ЅХ#4+5, бүж2+1) ‚ BAZ, ХОК 
FOR BX=BX TO I STEF J 
PUT@(SX*4,SY*2)-(SX*4+3,SY*2+1), ВАХ, ХОК 
FUTE(BX#4, BY#2) -(BX#4+3, Ву*2+1), БАУ) XOR 
SX=BX:SY= BY: NEXT 
LOCATE 33, 4:FRINT "ОШТ":ВЕЕР:К1=@ 
OU=QOU+1: IF 00-5 THEN 230 
Drs =4: GOTO 990 
ассы get two course Бу third ----- 
FUT@(168,82)-(179,91) , МО, ХОК 
РОТЕ (168, 90) - (179,99) „MD, XOR 
LOCATE 10, 13: FRINT "OUT": ВЕЕР: R2=@ 
OU=OU+1:IF OU=3 THEN 250 
DI=8:GOTO 990 
i Faul ----- 
ВЕЕР 
IF 5Т<2 THEN ST=ST+1 
GOTO 1720 
Бора) faul call ----- 


IF БХ<50 THEN LOCATE 10,15 ELSE LOCATE 52,15 


| Е Š 
O 聞い て くだ さき さい, ЗОЖ. (Z ( O — 2 - Ht > F462rhO3422'iN0M U ГОСТ. あと の 12 ュ は 必死 に LOAD し て や っ と 成功 し た 
De, 他 の カモ ッ ト ヘ モー プ し た の で す .「 チ キシ ョ ー」. : PC-6001/mkII は 、 マシ ン 語 の ロー ド や モー プ が その まま で は で き な い の で すか 


? 25. I/O モ ニタ で モー ブ し て (だ さい と 書い て あり ます が 7? 誰か 詳し く 教 えて くだ さい . : 僕たち の 学校 に は PC-8001 が あり ます . 
と ころ が 。 始め は 会 計 に 使う と か 言っ て いま し た が 。 結局 いま だ に 使わ な いで し まっ た まま で す . そし て ,「 ゲ ー ム を や らし て くだ きい 」 と 言 
っ て も 「 キ ー が 痛む か ら だ め 」 と 言っ て や らし て くれ ませ ん . bh, もったいない. (ベン ネー ム ) 


2:0 


1 НЯ |"; T1 


1550 PRINT “ҒАШ "Jj 

1550 GOTO 459 

1570 5----пауе Aas 

1580 IF INKEY$=CHR$ (29) THEN TK=-4:GOTO 161 
1590 IF ІМКЕҮФ=СНКФ (28) THEN Tk=4:GOTO 1610 
1400 GOTO 439 

1619 COLOR 7-CL:PUTE(152, 24) ~ (163,553) ‚МО, XÜ 
XOR 

1620 РОТЕ (276,10) – (287,19) ‚МО, ХОК: РОТЕ (276+ 
1650 РИТ@ (396, 24) – (407, 35) , MD, ХОК: РОТЕ (592+ 
1640 COLOR 7: М7=М7 +ТК.: М8=М8+ТК : М9=М9+ТК: Т=1 
1650 вете 430 

1660; ンー コー ンー jadge : ニ ニニ デー 

1679 РОТ (224, 142) – (288, 166) „ЕНУ 

1680 LOCATE 42,22 

1699 IF ВТ<4 AND JA=@ THEN PRINT "Ball"; :BL= 
1700 IF BL=4 THEN БОТО 1780 

1710 ГЕ ST=3 THEN РАТМТ"ОЦТ" : ВЕЕР: О0=00+1: 6 
1720 ご === も пене Баһ —— = 

1750 FOR I=@ ТО 500:МЕХТ 

1749 COLOR é:LDCATE 7,19:FRINTSTRINGS$ (ST, 
1759 COLOR 4:LOCATE 7,2@:FPRINTSTRING$%$% (BL, 
1760 LOCATE 52,15:РКІМТ" "es LOCATE 10,13: 
1779 GOTO 230 

1789 ° ----- four ball ----- 

1799 ЕКІМТ " four "$: ВЕЕР 

1800 ТЕ R1= の 9 THEN Ri=1:GOTO 1830 

1810 IF R2=O THEN К2=1:б0ТО 1850 

1820 IF К5=0 THEN К3ш1:60Т0 18350 ELSE R4=1 
1859 GUSUB 2520 

1840 ” ニー ニーーー to next batter ----- 


1850 FOR I=9 ТО 500: МЕХТ 
1860 LOCATE 42,22:PRINT" 
1879 GOTO 200 

1880 ” hit 
1890 R@=1:HM=@: ВЕЕР 

1909 HI=INT (ABS (ABS (ВХ/2) ~35. 5)) 
1910 IF НІ<2 THEN НТ=4:НМ=1 : FOR 


ホ =1 ТО 7:10 


1920 IF НІ<8 THEN HT=1:GOTO 1980 

1959 IF НІ<12 THEN HT=2: GOTO 1980 

1940 IF НІ<22 THEN HT=1:GOTO 1980 

1950 IF HI<26 THEN HT=3: GOTO 1980 

1960 IF HI<31.5 THEN HT=1:GOTO 1980 

1970 HT=2 

1980 R4=RS:RS=RZ:RZ=R1:R1=RO 

1992 GOSUE 2520:ІҒ HM=@ THEN IF SC>XS THEN 
2000 НТ-НТ-1:КӘ-о:ҒОК I=@ TO 200: МЕХТ 

2010 IF НТ>9 THEN 1980 ELSE 200 

2020 end of inning 
2030 LOCATE 27,11:FRINT "Three OUT, 
2040 SC (IN) =5С 

2950 FOR 1=0 ТО 2000: МЕХТ 

2960 GOSUB 2149 

2070 IN=IN+1 

2080 IF ІМ216 ТНЕМ 2119 

2090 PRINT :РАТМТ "Hit return key . 
2100 АФ-ІМР0Т%(1):ІҒ А$=СНК$ (15) THEN 160 E 
2119 ІҒ ІМ МОр 2-0 ТНЕМ 2130 

2120 IF Ті<Т2 THEN 2650 ELSE 20990 

2130 ІР T1=T2 THEN 2090 ELSE 2650 

2140 write score boad 
2150 PRINT CHR$(12)』 "*#*%* SCORE EOAD жж" 
21860 РЕФЕ К — 

2170 FOR I=@ ТО IN/2:FRINT "---"%:МЕХТ:РКІМ 
2180 PRINT "1ТЕАМ S ІМ. "; 

2190 FOR Ісі ТО ІМ/2%1:РКІМТ USING "ІРІ; 
2200 PRINT "Е; 

2210 FOR I=@ ТО ІМ/2:РКІМТ "ES"; : МЕХТ: РАТМ 
2220 PRINT "1";:СОБОК З:РАТМТ USING"& 

2250 FOR 1=0 ТО ІМ STEP 2:РКІМТ USING" ІМ"; 


CHANGE" 


“:ҒОК ウ =1 TO 150:МЕХТ:МЕХТ f: ОСАТЕЗе, 4: 


Baseball Game BASIC リ スト 


9 


К:РОТ@ (152+ТК*+4, 24) -(165+ТК*+4, ささ) , MD 


ТК*4, 10) -(287+ТК*4, 19) ‚МО, XOR 
ТК*4, 24) -(407+ТК*4, 55) ‚МО, ХОК 


BL+1 ELSE PRINT "Strike";:ST=ST+1 


ОТО 1840 


"Ç а" ) 
па") :СОЦОК 7 


РКІМТ" "sLOCATE 42,22:РКІМТ" 


CATE さ 9 の 。 4: ВЕЕР: COLOR Ж:РАТМТ"НОМЕ RUN 
FRINT SPC(12):GOTO 1980 


2620 


LSE 50702100 


т iW " 
:МЕХТ:РКІМТ * Itota1 1" 


ーーー Г 
&"sN1 ま ssT1=OsCULOR 7 


5С <(1);:Т1=Т1+5С (1) : МЕХТ:РКІМТ USING" 


39 


piO 


Baseball Game BASIC リ スト 
2240 PRINT " ———" s 
2250 FOR 1=0 TO ІМ/2 :PRINT "--":МЕХТІРКІМТ "+—— vÜ 
2260 PRINT" 1"; : COLOR 4:PRINT USING"& ";№2$; :Т2=0: COLOR 7 
2270 IF IN=@ THEN 2250 
2280 FOR I=1TO IN STEP 2:PRINT USING" |##";šSC(I);:T2=T2+SC(I):NEXT 
2290 IF IN MOD 2-0 THEN IF ІМ215 AND T1<T2 THEN PRINT "| х"; ELSE PRINT "| 1; 
2500 PRINT USING "#1"; T2 
2310 PRINT " ——ə—ə—ə— 
2520 FOR I=@ TO IN/2: FRINT リーー" ョ asaNEXTsPRINT "—— " 
2550 RETHRN 
25409 ” ----- Weite field 一 一 一 一 一 
2350 ”ІМІТ(-60,0),1.2,09.96 
2560 PLOT (0, 20) – (280, 120) :Р_ОТ- (550, 20) : РІ 07(168,194)-(280,48):РІ0Т-(392,104) 
2570 FLOT (180,110) – (192,104) :РЕОТ- (180,98) :PLOT (580, 110) – (368, 104) : PLOT- (580,98 


2580 PLOT (228,54) ~ (280,60) :PLOT- (292,54) 

2599 PLOT (272,156) – (272,150) : РЕОТ- (288, 150) : FLOT- (288, 156) : PAINT (280, 155) 

2400 QUAD (270,96) – (290, 98) : PAINT (280, 97) : PLOT (38, 40) - (522,40) : GOSUB 2520 

2410 INIT (O, @) 。 1 。 1。Rs CIRCLE (280, 97*2.4) 。 21: INIT (©, ө),1,1:РАІМТ(280,99),7,1 

2420 КЕЗТОКЕ 2510:ҒОК Ізі ТО 8:READ X, У: РОТ@ (Х+4, Y#2) –(Хж4+11,үж2+9), MD: NEXT 

2430 LOCATE ©,0:COLOR 5:РАТМТ REV" 2 | 1 551 1 ЕРКШЕ МА с Ый! аа: | 
2 | 1 о 1 2 "NORM: COLOR 7 

2440 LOCATE ©, 19:РКІМТ "бігіке: :іРКІМТ "Ball :":sPRINT"Out £" 

2450 LOCATE 61,19:FRINT TIN\2+1 35" カイ "; 

2460 IF ІМ MOD 2= の 9 THEN PRINT" オ モテ" ELSE PRINT "ウラ" 

2470 LOCATE 0,16:іРКІМТ"2977% :";:СОБОК CL:IF CL=3 THEN PRINT М1%; ELSE РКІМТ М2 
% 

2480 COLOR 7:1 ОСАТЕ 60, 15: РКІМТ" 16“  :";:СОБОК 7-CL:IF CL=4 THEN FRINT N1$; EL 
ЗЕ PRINT N2$:COLOR 7 

2490 COLOR 5:1 ОСАТЕ O, 23:FRINTREV: SPC (19) 』 "CASIO STADIUM";SPFC(9);NORM:LOCATE 39 

23: PRINTREV: SFC (8) 3 "ЕР-1100 SERIES"; SPC (9) ; NORM 

"500 GET@(263,46)-(297,62),FDZ:GET@ (224, 142) – (288, 166) „ЕНУ: RETURN 

2510 DATA 67, BB, 42,41,57, 22,81, 22,95,40, 38, 12,69,5,99, 12 

меіёе гиппег -----‏ ===== ا ا 

2550 "ІМІТ(-60,0),1.2,0.9% 

2540 IF Ri=1 THEN QUAD (374, 102)-(384, 104),CL:PAINT (380, 104) , CL, CL ELSE PAINT (38 
9,104),0,1 

2550 IF К2=1 THEN QUAD (276,52)-(284,56) ‚Сі: PAINT (280,54) , CL, Б; ELSE IF DI<>6 ТН 
ЕМ РАІМТ(289,54),0,1 

2560 IF R3=1 THEN QUAD (176, 102) – (184, 106) Сі: РАІМТ (180,104), CL, CL ELSE РАІМТ(18 
©, 104),0,1 

2570 IF К4=1 THEN QUAD (276, 152) – (284, 1545) , CL: FAINT (280, 154) , CL, CL: РАІМТ (280, 154 
01. 

2580 IF К4<>1 THEN 2600 

2590 R4=@:SC=SC+1:IF IN MOD 2-Ө THEN Sl=T1+SC ELSE 52-Т2%5С 

2600 DI=9』LHCATE 60, 21:COLOR 3:PRINTUSING "& &";N1$;:COLOR 7:РКІМТ 51;"-"; 52; :С 
OLOR 4:FRINTUSING"& %";№2$: COLOR 7,0,1 

2610 RETURN 

таг ек т good-by game ----- 

2630 BEEP: BEEP: BEEF: SC (IN) =SC: GOSUE 2140 

2640 PRINT "жж 9575 97-2, жән" 

ZORO == дате over ----- 

2660 FRINT 

26709 РКІМТ "жжж GAME OVER жж" 

2680 РКІМТ 


2690 FRINT " This дате was won by "; 

2700 IF Т1>Т2 THEN COLOR З:РКІМТ М1% ELSE COLOR 4:РКІМТ N2$ 
2710 END 

ве: ——— == start == 


2750 SCREEN ©:WIDTH 80: ВЕЕРОЕЕ 
2740 COLOR 7,0, 1:РАТМТ СНЕ$ (12) :LOCATE 24, 11:РКІМТ "tt Please Just а Moment жж 


2750 ПЕҒІМТ 1-М: DEFCHR$(&HFD) ж" 1 02040ҒҒ40201000" : DEFCHR$ (&HFE) ="©80492ЕЕ 0204080 
©": DEFUSR の =&HO79 さ 

2760 DIM Мр(50),ВА%(7),5С(56),Ғр7(160),ЕН%(155),М1 (80),М2(70),М5(70),М4(80),М%2( 
20) 

2779 КЕС5ТОКЕЗОЗО:ҒОК 1=0 ТО S@:READ Мр (1) : МЕХТ 

2780 КЕ5ТОКЕЗ110:ҒОК I=@ ТО BO:READ М! (І) : МЕХТ 

2790 КЕ5ТОКЕЗ150:ҒОК 1=0 ТО 79:КЕАр М2 (1) :МЕХТ 

2800 КЕ5ТОКЕЗ180:ҒОК I=@ ТО 79:КЕАО М5 (1) : МЕХТ 

2810 КЕ5ТОКЕЗ210:ҒОК I=@ ТО BƏ:READ M4 (1) : МЕХТ 

2820 КЕЗТОКЕЗ190:РОК I=@ ТО 7:READ ВАХ (1) : МЕХТ 

2859 LOCATE ©,9:PRINT CHR$ (12) з "### BASEBALL GAME": PRINT :РАТМТ 


==] 

= 
\©/О, ТЄ) BUGMAN の ゲー ム の 法則 . その 1「 空 中 戦 に は スピ ー ド 感 が な く て は いけ な い /」 タ イム ・ パ イロ ッ ト に は スピ ー ド 感 が な い ./ ゼビウス は か な り 
Ол AS COROT., しかし, スピード 感 と いえ ば ディ フェ ンダ ー に と TAIL-GUNDER で し ょ う . ここ で いう スピ ー ド 感 と は その まま スピ ー ド を 
指す の で は あり ませ ん . その 2「 ビ デオ ・ ゲ ー ム は 奥 が 深く て なく て は いけ な い ./」 ス クラ ンプ ブル な ど は ちょ っ と 練習 する と すぐ 1 面 ク リア で 


きる よう に な り ま す . ツタ ンカ ー ム や ゼビウス の よう に つづ き を 見 た な く て た な ま ら な く な る で らい で な く て は な り ま せん . し か し 。 APPLE の 


Рю 


Baseball Game BASIC リ スト 


2840 FRINT "Command of pitcher" 
2850 РКІМТ 


2850 PRINT" first input -- course 7 - іп" 

2870 FRINT" в = center" 

2880 РКІМТ" 9 = out" 

2899 РКІМТ" second input — type 4,5,6 = slow ball" 

2990 FRINT" 1,2,5 = fast ball" 

2919 РКІМТ" 4,1 = Curve" 

2929 РКІМТ" 52 = straight" 

2930 РКІМТ" 6,5 = shoot" 

2940 PRINT 

2950 FRINT "Command of difence "#CHR$ (УНЕЕ);" = move left" 
2969 РКІМТ" "s CHR ま も (&HFD)』" = move right" 
2970 PRINT 

2980 FRINT"command of batter SPACE = swing" 

2999 РКІМТ 

3000 PRINT"command of runner Т = touch ир" 

5019 PRINT 


3020 COLOR S:INFUT "Input the name of ist р1 ауеғ": № Ф 
3050 COLOR 4:INFUT "Input the name of 2nd player";N2$ 
5040 COLOR 7:RETURN 

3050 DATA -3856,-3856,-3856,0,0,0,-3856,240,0, o 

50609 DATA -256,-1609,15,15,0,40В0,255,5598,0,-4096 
5079 DATA -241,5584, 14,0, 2059, 247,15,0,-1024,-1924 
3080 DATA 35840,0, 0, 14,1806, 1792,0, 3584, 5584,7 

5090 DATA 7,%9,2840,0,15,0,09,0,0,09,09 

3190 DATA ЕНҒ,ЕНҒОҒ, YSHFOO, O, UHFOO, O, о, &НВооО 

5110 DATA е, 5840,0,0,0,0,0,15104,0,0,0,0,0,-7424,0,0,0,0,0,-52000,0,5,0,0,0 
3120 DATA 768,0,14,0,0,0,708,0,56,0,0,0,768,0,224,0,0,0,7698,0,128,7658,0,9 
5150 DATA 768,9,09,5584,0,9,768,0,0,09,0,0,708,0,0,0,0,0,708,0,0,0,0,0,0,0,0,09 
5140 DATA 9,0,09,0 


3150 DATA 9,-256,0,255,52512,0,0,708,0,0,0,0,0,5584,0,0,0,0,0,14530,0,9,0,0,9 
5109 DATA -В192,0,9,0,0,9,-52748,0,2,0,0,0,0,0,14,9,9,0,0,0,50,0,0,0,0,0,224 
5179 DATA 9,09,9,0,9,128,708,0,0,0,0,0,0,0,0,0,0,0,0 

3180 DATA 0,0,9,0,708,0,0,0,0,192,256,0,09,0,0,112,0,9,0,0,0,28,0,0,9,0, 

5199 рата 9,9,-145384,9,1,0,9,0,28072,0,0,9,0,0,7108,9,0,0,0,0,1792,9,0, 

3200 DATA -250,9,255,52512,0,0,0,0,9,0,0,0,0,0,0,0 

5219 рата 0,748,0,0,0,0,0,728,0,0,0,0,0,728,0,0,0,0,0,728,0,0,5072,0,0 

5220 БАТА 0,1792,0,9,768,0,192,254,0,0,708,9,112,0,9,0,768,0,28,0,0,0, 

5259 DATA 7,9,9,0,-15010,0,1,9,0,0,29440,0,0,0,0,0,7950,0,0,0,0,0,0,0, 


5240 DATA о,0 


ルー ル 


非 尾 國 で は 悪 代官 が 私 腹 を こ や そ う k, £ 全部 で 4 層 か ら な る 迷路 状 の 米蔵 に 忍び 
量 の 年 貢 を 取り た て て いた . その た め に 農 AA, 最上 階 に ある 米 依 を 盗み 出す . 基本 
ВОИ <, 食べ る 米 す ら な か っ た . 的 に , 上 の 階 に 行く た め に は その 階 の 2 箇 
そこ で あな た は 農民 の 代表 と し て , 代 官 所 の 所 に 落ち て いる カギ を 捜し 出さ な く て は な 
米蔵 か ら 米 依 を 盗む こと に な っ た だ た. LPL, ら な い . 
この 米蔵 に は いろ いろ な 仕掛 けが し て あり , 2 階 以上 の 階 に は 落し 究 が あり , 落ち る ў E 
侵入 者 が 米 依 を 盗む こと は 不可 能 に 近い . と 死ん で し まう . また , それ ぞ れ の 階 に は 1 か い 


г. > “か Е %> ч 1 害 が た 
だ が , みん な の 命 を あず か っ た あな た は . な ん “к тне E メッ セー ジ を 出力 する 場所 


と し て も 米 令 を 盗み 出 き な けれ ば な ら な い . 18 


Lode Runner の 150 面 に は か な わな いで し ょ う . また , 絶 対 に クリ ア で き な い よう な 面 を 作っ て は な り ま せん . パッ クマ ン の 人 気 の ひ と つ は 。 
「 つ ぎの フル ーッ ツ は 何だ ろう ぅ ? 」 と 思わ せる と ころ か も し れ ま せん . LDL, カギ の 次 と いう の は ある ん で し ょ うか ? (BUGMAN) 


41 


PC を 手 に 入れ て 1 年 . 必死 で BASIC を 
覚え て な ん と か プロ グラ ム を 組め る よう に 
な り ま し た . これ は , その 中 の 1 つ で 最も 
友達 に 人 気 が あ っ た の で 発表 し ます . 


RUN す る と , まず 何人 で する か 聞い て さく 


>ОСАЖКЖАЯС<7250(1-3%7). 


次 に 何 ホ ー ル まで する か 聞い て くる の て , 
ホー ル 数 を 入れ て くだ さい (1 一 9 まで )). 
+L, タイ トル と 説明 が 表示 きれ ます . 


青 が 池 , 黄 が バン カー, 赤 の 細長 い の が 
ж, 白 が グリ ー ン , 紫 が OB エリ ア で す . 


まず , 風向 き (WIND) と 風力 を 計算 に 入 
ал, 角度 を 決め ます . 

KU, クラ ブ を 決め ゆめ ます. この ゲー ム で 
は 風 の 影 響 が と て も 大 きい の で , ボー ル が 
風 に 流 き れ て バッ ク し た りす る こと が よく 
お こり ます .。 Хы, グリ ー ン 内 で は あま り 
影響 は あり ませ ん . 

角度 し クラブ が 決ま っ た ら [RETURN| キー 
を 押し て くだ さき さい. する と , 画面 の 右端 で 
打つ 強 き を 示す 棒グラフ が 伸び 縮み し ます 
の で , タ イミ ング 良く [SPACE キー を 押し て 
くだ きい 。 グリ ー ン に 乗る と 画面 が 拡大 き 
nit. 

CUP INF L, 成績 が 表示 され 次 の 人 
の 番 に な り ま す . 全 ホ ー ル 終了 する と スコ 
ア ・ カ ー ド が 表示 され て GAME OVER に な 
り ま す 。 

12 も た た いて や っ と グリ ー ン 


"ОРТО 
бУл 


SPACE キー を 押す と , ゲー ム が 始ま り ま す . 


田北 出 英樹 


@ 池 に 落ち る と 1 打 還 に な り ボ ー ル は 池 の 
手前 に 移動 し ます . 

バン カー に 入る と 次 は SW で し か 打 て ま 
せん .OB に な る と 1 打 軸 に な り ボ ー ル は 
今 打っ た 場所 に 移動 し ます . 

W 木 に ボー ル が 当 だ る と ボー ル は は ね 返り 
$F. 
他 に , 画面 か ら 出 る と OB (グリ ー ン 内 で 

も 同じ ) に な り ま す . 


池 や バン カー な ど は PUT@ 文 で ,OB エ リ 
ア は LINE 文 で 書い て いま す . 説 明 の と ころ 
で グリ ー ン を 書い た の は , СЕТОТ 2 
モリ ヘ モ セー ププ する だ た めで す . 当初 は ゲリー 
ン に の る だ びに LINE 文 で 書い て いた の で す 
が 。 時 間 が か みか ' る の で 変更 し まし た . 

また だ た, ボール の 位置 の 色 で 障害 を 判断 し て 
いま す . この 命令 は N-BASIC に は な い の で , 
1/О, "83 年 2 月 号 の 横田 氏 の プロ グラ ム を 
使い まし た . 

ュー ス の デー タ は 。, 227017250, 5 行 
で 1 ホー ル 分 で す . ユー ス の 作り 方 は 650 行 
か ら 840 行 まで を 見 て 考え て くだ さい . 


жі 変数 表 


ショ ッ ト の 強 さ 
DFF 

ホー ル No. 

ホー ル ご と の スコ ア 
フラ グ 

1 グリ ー ン オン 
=2 カ ッ プ イン 


主 な キー 操作 を 図 1 に 示し ます . また 、, 
これ 以外 に も 特別 な キー が あり ます の で 説 
明 し ます . 

(51-- (クリ ア ) 画面 が ボー ル で 見 に く 
な っ た だ たら 押し て くだ さい . 風向 きも 変わ 
り ま す . 

СЕРН) — — (変更 ) 角度 や クラ ブ を 入れ 
БАС, ショ ッ ト へ 移っ た ら 押 し て くだ る 


- 


а 


: クラ ブ を ショ ッ ト 


自分 で ゲー ム を 作る こと は あま りな い の 
で , か な り 5 乱雑 な も の に な り ま し だ . PC の 
グラ フィ ッ ク が も っ と 細か けれ ば , も っ と 
きれ いな 画面 に な っ た と 思い ます が 。 し か 
А NE НЕ PCG が 欲し い ……… 


Pi 〇 


TV ゲー ム に つい て 。XEVIOUS に ギャ ラク シア ン が 出る と いう 人 。 どこ に 出る の か 教え て くだ さい . 書き 方 が わか ら な い の な ら 、1/O10 月 号 の 
p.238 の 人 の 言い 方 を 借り て エリ ア 〇 〇 の どこ ら へ ん と か 工夫 し て 教え て くだ さい . 
S.ZAXXON と ZAXXON の 違い を 教え て くだ さい . 


: 大 阪 に は SUPER ZAXXON が 入っ て こ な ん だ . Ж», 
: この まえ ぇ , POLE POSITION で 9 万 点 の SCORE を 見 た . 


(Namco, SEGA, 27-і, нет, TAITO) 


никак SUPER GOLF BASIC リ スト 


* 
GOLF GAME 
"ж 19023129108 
まさ うう うす すう すす さす すさ すさ すま ょ さす うす 
CLEARIOO, kHDFFF 
WIDTH49。 251 CONSOLE, ‚©, 1: PRINTi INPUT" 
ナン ニン +“ PLAY シマ スカ (52у 797) "мм 
PRINT 』INPUT" ナッ コー ス PLAY シマ スカ (1 
9 97") " НЕ 
ве міртнво, 25: СОМОГ Ее, 25,0, 11 COLOR7, ©@, 1 
IPRINT СНАФ (12) 101М А%(20),В%(12),С%(4), 
0%(15),Е7(400),8(9,5),Р(9) 
90 DIHTA(S) ,。SB( さ ) TA(1) «ді ТА(2)чӨіТ8(2)- 
° 
190 K=liL=0rV=eQrWsQiT=QrPA=O:HN=OQrG 
H=@rC0O=4:NIN=1 
119 DEFUSRO=&HEGOO: GOSUB1 1801 FORI=0TO0300 
QINEXTIPRINT CHR%(12)J 
120 FORI=&HEOOGTO&HEOS5』 READ А®:РОКЕТ , VA 
L ("“&H"+A%):NEXTI 
150 RESTORE22201FORI=OTO15:READZ, ZZ: LINE 
(72,13-(12,1),РЗЕТ,1:МЕХТ 
140 RESTORE22309: ҒОКІ =0Т07: READZ, ZZ: LINE ( 
1,1%20)-(71,1%29) 。PSET 6: NEXT :RESTORE22 
40:FORI=0TO07: READZ, ZZ:LINE (2,1+50) – (22,1 
+30) , PSET, 2: МЕХТ: КЕЅТОКЕ225@1 РОКІ =©@ТО1 11 
READZ, 77: 1МЕ (2,1+40) – (22,1+40) ,РЗЕТ, 71 М 
ЕХТ 
150 бЕТ@(9,9)-(9,15), АХ, 0 
159 ЗЕТФ(9,20)-(11,27),В7,0:8ЕТ8(9,50)-( 
5,57),С%,8:8ЕТ8(9,40)-(9,51),0%,0 
170 605181949 
180 SH=OiL=O』K=11GBOSUB27 さ OILOCATE さ O 241P 
RINT "PUSH SPACE KEY"jiLINE24。1 
IF ІМКЕҮФ-" “ THEN 200 ELSE 190 
RESTORE226 の IFURI=1TO9iREADK き (1) 1 МЕХТ 
GOTO 260 
"пенен Hunn жан» 
K=INT (RND (1) #9) +11 =: У=ТАТ (ВМО (1) #1 


Бу h,k* 
* 


Е = 0:8 


RETURN 
ы 


COLOR4, 255, 11 PRINT CHRS (12) 1 HN=HN+1 s 
IF НМ>НЕТНЕМ GOSUB101@:GOTO 1280 
270 LINE (0,12) - (160,0) ,РЗЕТ, ©, BF r W= (INT ( 
RND (1) w12) -6) өзе 
LINE (0,4) - (80,25), "B", 3, Bı GOSUB65O 
COLOR4, ©, 1 
GOSUB 230 
LOCATE20, О: PRINT "жентек 
22222222444 
LOCATE@,2:COLOR7:PRINT "ホー ル "$ HN LOC 
АТЕ29,2іРКІМТ "TOTAL "%ТА(МІМ) ILOCATE49。 
2:PRINT "WIND "IW 
330 LOCATE40, SiPRINT "P A R"IPA 
340 LOCATE10,SIPRINT "((( 757" һ NIN n 
I 
550 LOCATE@,3:COLOR7:PRINT "C L U B 
“о: 
560 (0САТЕ20,2:РКІМТ "л 7 кю" 
570 (ОСАТЕ60,2іРКІМТ V)"m/w" 
580 LOCATE60,SiPRINT "S H O Т“УЗН 
390 COLORCO: PRESET (X, Y) 
400 A=INP(9):IF A=191 THEN K=K+1』BEEP1』B 
EEPO 
410 
420 


SUPER G 


чк 


IF K>9THENK=1 

IF ВЕ= і АМОК>2ТНЕМК=1 

450 IF ОВ=2 THEN К=2 

440 IF SH>Q AND К=9 THEN К=1 

450 AA=INP(8) IF Айе191 THEN L=L-4:BEEP1 
+ BEEPOs ІРІ.<-1НӨТНЕМІ.е 180 

460 IF AAm127 THEN し = し +41BEEP1IBEEPOI IF 

(2189 THEN L=-1BQ 

470 Al1=INP(@):A2=INP(1)rIF A1=239 THENL= 
18OELSEIFA1=251THENL=-9OELSEIFA1=191THEN 
L=GELSE IFA2=254THENL=99 

480 IF INKEY$=CHRS (15) THEN SH=SH+ 1 』 БОБОВ 
600: COLORCO: 60518143509: BUSUB2 さ の 

499 COLORCO:PSET (X,Y) 

S500 IF ІМР (4) =247 AND GF=@ THEN НМэНМ-1: 
GOTO 260 

510 IF GF=2 THENGF=G』TA(NIN) =TA (NIN) -РА+ 
SH: GOSUBSIO: ӨНеді IF NIN=NN+1 THEN МІМе 1:6 
OTO 260 ELSE COLOR4,255,1:PRINT CHR$(12) 
аі80Т0 270 

520 GOTO 550 

550 I=SH-PA:S(HN,NIN)=SH:NIN=NIN+1:LOCAT 
E35, 261 COLORS 

540 IF I=-3THEN PRINT 
550 IF I=-2THEN PRINT 
560 IF I=-1THEN PRINT 
570 IF I=@ THEN PRINT РАК“ 

580 IF 120 THEN PRINT “I~ SOUCY ! 

590 FORKI=GT ロ SG9O』 NEXT』RETURN 

600 IF BF=1 THEN COLORCO:PSET(X,Y+1) 

ら 619 COLOR7:IFORT=ƏOTO9:GOSUB1410r:LOCATE77, 
25-ТіРКІМТ у: А=1МР (9) 』 АА=1МР (8) 1 ІРА=1 
1THENRETURN ELSE IF AA=239 THEN SH=SH-1 
: GOTO 520 

620 МЕХТТ 

650 FORT=9TOOSTEP-1: GOSUB1410: LOCATE77, 2 
5-ТіРКІМТ " "şrA=INP (9) :АА=ІМР (8): ІҒА=19 
1THENRETURN ELSE IF AA=239 THEN SH=SH-1: 
GOTO 52е 

640 NEXTTı GOTO 400 

650 ON HN GOTO 660,670,680, 6970, 700,710,7 


ALBATROSS ! " 
EABLE ! * 
BIRDIE ! " 


739,740 

RESTORE2279』 GOTO 

RESTURE2 さ 29』 GOTO 

RESTOURE2 さ 79』 GOTO 

RESTOURE2429』 GOTO 

КЕЗТОКЕ2470: GOTO 

RESTURE2529』 GOTO 

RESTURE257@』 GOTO 

RESTURE2629』 GOTO 

RESTURE267@ 

READ 0,2,У,22,УУ:11МЕ(2,9У)-(71,УУ),Р 
RESET, 4 
769 FORI=OTOQ: КЕАр2, 9:1 ІМЕ(22,УУ)-(7,У), 
PRESET, 4: ZZ=Z1 VV=V: NEXT 
770 READ Q:COLOR1:FORI=1TOQ:READZ,ViPUTQ 
(7,У)-(7%9,9%15),А%,РБЕТ:МЕХТІ 
780 READ QıCOLORéIFORI=1 TOQ: КЕАр2, М: PUT@ 
(7,У)-(7%11,9У%7),В%,РБЕТіМЕХТ 
7909 READ Q:COLOR2:FORI=1 TOQ; READZ, У: PUT@ 
(7,У)-(7%5,9У%7),С%,РБЕТ: NEXT 
800 READ 2,У:С01.0Ж7:РЦТа(2,У)-(2%9,9У%11) 
.О%,РБЕТ 
810 READ GX,GY: PRESET (GX, GY) 
829 READQ:FORI=1TOQ: КЕАр2, V, ZZ, VVILINE (2 
,V)- (ZZ,VV) ,PSET, 5, BFINEXT 

READ PA:P (НМ) =РА: IF SH=@THEN READX, Y 

RETURN 

? GREEN 224242444244 444444444242 24 44 


COLOR4,@,1:PRINT CHR$(12) 
LINE (0, 3)-(80,0), 
LINE (0,4) – (80, 25), , 
COLOR4: PUT (80-25, 60-2 
5),Е%,РБЕТ 
900 LINE (80, 60) - (80, 40) , PRESET , 41 L INE (BO 
.49)-(85,41),РКЕБЕТ,41( LINE (85,41) - (Ва, 42 
),PRESET,4:L INE (78, 60) - (82,63) 。 PBET。 1, BF 
910 X=(X-GX) #5+80: Y= (Y-GY) #5+60 
920 CO=4 
950 1 ОСАТЕ20,0:РКІМТ Nit tt tt 
DLF жене" 
940 COLOR7:LOCATEƏQ, 21РКІМТ "h – №"УНМ LO 
САТЕ20,2:РКІМТ "T O T А "ITA(NIN) LOCA 
ТЕ40,2:РКІМТ "W I N D O "умр". “#LOCATE 
60,2іРКІМТ Vi "m/s" 
950 LOCATE49。 さ 』PRINT "Р А КРА 
969 LOUCATE69。 さ IPRINT "8 H O T"ySH 
979 RETURN 
980 "НОЕ ІМ ONE жекен ктк к... 
ж... 

990 ГОСАТЕ?5, 17: COLOR7: РАТМТ " 
ІМ ONE ! "35 (НМ, МТМ) =SH 
1000 FORI=Ə@TO2Q:BEEP1:FORII=ƏTO20:NEXT:B 

EEPO: МЕХТ: РОК 1=0ТО1 9001 NEXT 1 RETURN 

1010 FORI=0T070: BEEF 1 : РОК) =©ТО50; NEXT: ВЕ 
ЕРФО:МЕХТ 

1020 RETURN 

1959 LINE(0,0)-(79,24), "F", 1, BiLINE(3,3) 
=(76,21),"L",2,B:LINE(6,6)-(73,18),"G",4 
s В: RETURN 

1040 1 ОСАТЕ20,0: СО ОКЗ: РКІМТ "жәнне 
SUPER GOLF ‚кекке! 

1050 LOCATEB8,2:COLOR7:PRINT ". ЯС 
1060 ГОСАТЕВ, 6: COLOR7IPRINT "...... Nun 
-" 

1970 LOCATE8,B:COLOR7:PRINT " CE 
1080 LOCATES, 11: COLOR7: PRINT ' . ту 
ر‎ 

1999 1 ОСАТЕӨ, 15: COLORS 
1100 PRINT " +4° 
1110 PRINT " 67 
"4 s COLORA: PRINT" 

ーー ご 

1120 COLORS:PRINT " 

в! "у: COLOR6:PRINT" 
ISPACE КЕҮ І 

1130 COLORS: FRINT " 

көбее "$ :COLOR6: PRINT" 
سس نچا‎ 

1140 COLORS:PRINT " ——1 00:14 1- 

4+-161 е" m 
1159 PRINT " ISHIFT | 

CRT CLEAR IS! 
1160 PRINT " — 121 


SUPER G 


HOLE 


ICTRLI 22 I 
SHOT&?377 


mt‏ سے 


— г а 


1179 PRINT " 
"$ RETURN 
1180 605081059: COLORG6: LOCATE10, 7: PRINT " 


ー4* — -9е* 


1190 ГОСАТЕ!©, ВЕРАТМТ " 
/ “a... “A. в ' 
1209 (ОСАТЕ10,9:РБІМТ " 
ги ин | 回 | и ' 
1210 COLORS: LOCATE19。19』PRINT "/77-1 
ГОГ ГУ" СОС ОКЬ: PRINT " № 
пшпш ® т ша 
1220 COLORSILOCATE10, 11:РКІМТ "\— | I 
' га L— "$s СОБОВёЕРАТАТ " ШЕШ 
тга B і a 
1250 COLOR3:LOCATE10,12:PRINT " NI I 
Бел уи ч Ж, x" $: COLOR6: PRINT "_ E 
пш а га 
1240 СО(.ОН5:1.0САТЕ19,13:РКІМТ"-- 2 S— 1 
Г": COLOR6i РКІМТ " www. 
инна в 
1250 (ОСАТЕ10,14:РКІМТ" 


412; 


126% RETURN 

1279" score card 

1280 WIDTH40, 25: CONSOLEG, 25,0, 1: COLOR7:i P 
RINT CHRS (12) 

1290 і ОСАТЕ10, 1ı COLOR6SPRINT "*** SCORE 
CARD ###'" 

1590 ГОСАТЕФ, SICOLORIIPRINT " ——əyw—n 
n n ر ت‎ 

1519 LOCATEQ, 4:COLOR1: PRINT "І|-Мо.1!- Par 
жене | BEOr бе 

1320 FORI=OTO91LOCATEO, StI PRINT" 1—1. 
—— ' ы 

1550 МЕХТ 

1540 JJ=3S:FORJ=1TONN:FORI=1TO9: COLORS: LO 
CATE2,4+I:PRINT IsCOLOR2:LOCATE14+JJ*J,4 
+1:РАТМТ S(1。Jd)』LOCATE1 の 9。4+IsPRINT P (I): 
LOCATE26+JJwJ。4+IsPRINT 8(1,0)-Р(1):65( 
J)=88(J)+S(1,J) 

1350 NEXTiNEXT:IFORI=1TO9:PP=PP+P(I):NEKXT 
1560 COLOR7:LOCATE10, 14:РКІМТ РР; 11 ОСАТЕ 
17,14:PRINT 58(1) ;55 (2) ;58 (5) :1 ОСАТЕ29, 1 
41PRINT TA(1)5TA(2) ITA(3) 

1379 ГОСАТЕФ@, 151COLOR11PRINT " — Ün 
ーー 

15809 LOCATE10, 20:COLOR4:PRINT "HIT RETUR 
М KEY" 

1590 IF INKEY$=CHRS (13) THEN RUN 

1400 GOTO 1590 

1410 ҒОКІ«0Т020іМЕХТ: RETURN 

1420 ” BOOL 4 №" О жент” 
„== 

1430 IF GF=1THEN 1750 

1440 IF K=1 ORK=2 THEN М=@ 

1450 COLORCO:XX=XíYY=YrIF GF=iTHENFR=.32 
ıBC=3ı GOTO 1470 

1460 FR=. O8: ВС=5; ОВ=© 

1470 V=V/érFORJ=1TO10 

1480 GOSUB1 7001 2=2/5 

1490 IF OB=1 THEN RETURN 

1500 GOSUB1 990: 

1510 COLORCO: PRESET (Х,Ү+2) : BEEP 1 1 ВЕЕРФ 
1520 NEXT 

1530 COLORCO』 PRESET (X, Y+1) sFORI=OTO101 ВЕ 
EP11 BEEP9』 NEXT 

1540 IF CO=1 AND GBF=OTHEN BUSUB 2089: КЕТ 
URNELSEIFCU= さ THEN 09054820940: RETURN 

1550 IF CO=6 THEN 605482120: RETURN 

1560 IF CO=1 AND BF=ITHEN GOSUB 2149』RET 
URN 

1570 BC=2.5i ド =K/24FURJm1T0S 

1580 6051817001: Z=Z/3 

1599 IF OB=1 THEN RETURN 

1690 905819909: 

1610 COLORCO: PRESET (Х, 。 Y+Z ) : ВЕЕР1 1 ВЕЕРФ 
1620 МЕХТ 

1650 СО ОКСО: ҒОКІ «07015: ВЕЕР! : ВЕЕРФ: NEXT 
1649 IF С0=1 THEN GOUSUB2OBoELSE IF С0=3 
THEN 805082040 

1650 IF CO=6 THEN 605182120 

1660 IF CO=4 THEN LOCATE30,4:COLOR7:PRIN 
の クオ ルー こそ 

1670 IF CO=7 THEN GF=1:G0SUB860 

1680 ТЕ X=GX AND Y=GY THEN 805089901: 6Ғ=2 
1699 RETURN 

1700 X=X+FR#K#T#COS (L#. 0174) +V#COS (иж. O1 
74)11IF X>155 ТНЕМХ=155: 60702040 ELSEIFX< 
STHENX=5』 GOTO 2040 

1710 Ү=ү- (FR#K#T#SIN(L#. 0174) -V#SIN(W#*. © 
174) /2)』IFY>95STHENY=95』GHTO2949ELSEIFY く 2 
ӨТНЕМҮж20: GOTO 2040 

1729 1«(1-ВС)%(1-ВС)-ВСжвС 

1730 RETURN 

1740 ' РТ жане NEN 

1750 Z=0 

1769 IF Ке? THEN GOTO 1840 

1779 FORJ=1TO15』 IF K=1THENX=X+. S#K#T#COS 
(L*.0174)iY=Y-(.S*eK*T*SIN(L*.@174) /2) 
1780 IF X>7BANDX く BSANDY >59ANDY く 64THENGOB 
UB2149 ょ GF=2RETURN 

1790 IF РОІМТ(Х,Ү)-д THEN PSET(X。Y+Z ) 160 
то 1810 

1800 PRESET(X,Y):GOSUB1410 

1810 ВЕЕРІ:ВЕЕРФ:МЕХТ 

1820 RETURN 

1830 ' GREEN SW жж жже 

1840 FR=. さ 2』 BC=5』V=OrFURJ=1TO1O 

1850 GOSUB1 700: 2=2/2: GOSUB1990 

1860 COLORCO:IF POINT (X, Ү+2) =GTHENPSET(X 
rY+Z) ОТО 1880 

187@ PRESET(X,Y+Z) 

1880 ВЕЕР1: ВЕЕРФ 

1899 МЕХТ: РОКІ =0ТО1©: ВЕЕР 1 』 BEEPO: NEXT 
19099 IF X>7BANDX く 日 SANDY >59 АМОУ< 64ТНЕМВО5 
0В2140:0Ғ»2:КЕТИКМ 

1910 BC=2.5:K=K/2:FORJ=1T05:G0SUB1700: Z= 
1/2: GOSUB1 990 

1920 COLORCO:IF POINT (X, ¥+Z) =OTHENPSET (X 
rY+Z) : GOTO 1940 

1930 PRESET(X,Y+Z) 

1940 BEEP 1』 BEEPG 

1950 NEXT 

1950 IF X>77ANDX く BSANDY >59 АМОУ‹< 64ТНЕМВОВ 
0821401 GF=2: RETURN 

1970 RETURN 

1980 ” POINT COLOR чи 

1990 POKE &HEQGS6, X: РОКЕМНЕФ57 , 。Y+Z 』 CO=USR 
ә(о) 


43 


412, 


SUPER GOLF BASIC リ スト 


2000 IF С0=2 AND 22-4 THEN GUSUB 2150 

2010 RETURN 

20920 RETURN 

2050 °’ жж» Ü В w......... 

2040 COLOR7:LOCATE30,4:PRINT " ов 
に "』 SH=SH+ 1: Х=ХХ: Y=YY: ОВ=1: С0=4 

2050 РОКІ =0Т05@1 ВЕЕРІ:ҒОНІІ «07019: NEXT: В 

ЕЕРФ:МЕХТ 

2060 RETURN 

2070 " Яя W O R T E R жне 

2080 ВЕЕР1:РОВ1=9ТО50: NEXT: ВЕЕР: BEEP 1 1 В 

EEPO: SH=SH+ 1 3 LUCATE さ 9。 4: COLOR7 ュ PRINT " 4 
یی ی‎ 

2090 Х=Х-1: GOSUB1 990: COLORCO: PRESET (X, Y) 
ТРОКІ =0Т0200: NEXT: BEEP1: BEEPG 

2100 IF С0=4 THEN RETURN 

2110 GOTO 2090 

2120 ВЕЕРІ:ВЕЕРФ: ВЕЕР! 1 BEEPO1 LOCATE3O, 41 
COLOR6: PRINT " N" jn = ! "1 OB=2:COLO 
АСО: RETURN 

2150 LOCATE さ 9, 4』COLOR7aPRINT “ 

シク " コ ュ し = し +159』 ВЕЕР: COLORCO: RETURN 
2140 1 ОСАТЕЗІ, 17:РКІМТ " CUP IN ! "18 
(HN, NIN) =SH 

2150 FORI=S5TOQSTEP-l:BEEP1iFORII=ƏOTOI*IiI 

NEXT: ВЕЕРӘ: NEXT 

2160 FORI=GTU1OGO』NEXT』RETURN 

2170 DATA 21,56,e0,cb, Зе, 23,cb, Se,cb, Se, 
За,56,ед9,57,2а,05,еа,4Ғ,4е,48 Я 
2180 DATA 28, Фе, fe, 24, 28, да, За, 61, ва, Sf, 
.5,91,82,57,18,02,14,14,79,е6 

2190 DATA 40,20,92,с05,22,5а,57,ед,3с,01, 
78,00,21,48,%2,99,5а4,20,4с,7а 

2200 DATA 25,25,Бе,250,ҒЬ,25,75,а7,7е,28, 
07,е0,е0,07,07,07,18,02,е0,097 

2210 DATA 54,26,99,с5,9с,27 

2229 DATA 4,6,2,86,0,8,9@,8,1,9,1,9,0,9,0, 
9,9,8,9,8,1,8,2,8,1,9,9,9,1,8,2,6 

2250 DATA 5,4,1,11,1,19,0,19,0,11,0,11,1 
,19,5,9 

2249 рАТА1,2,0,5,0,5,0,5,1,2,1,2,1,2,1.2 


2.2 アグ リマ 


Wiw 

2278 DATAS, 5,45, 50,50, 50,55,70, 50, 110,40 
150,25,155, 70, 140, 75,80,70, 10,75,5,45 
2280 ОАТА!, 60, 56, 1,90, 64,4, 120,56, 130,56 
,140,40,В0, 48117 Yh- + 

2290 DATA 120,40, 125,45 

2500 DATA4, 5, 20,94, 40, 40, 40,70, 48,40,72, 
114,95, 114,80, 155,95 

2519 DATA 5,20, 60 

2529 DATA 6,19@,50,40,50,90,70, 150,25, 145 
‚25,150,40, 120,90, 10,90, 10, 50 

2330 ОАТА!,90,64,1,70, 72,6, 110,60, 150, 52 
, 140,40,134, 48, 128, 64, 60,68 

2340 DATA 150, 52,155, 37 

2550 ОАТАЗ, 5,24, 110, 44,70, 48,90, 60, 156,7 
0,155, 95 

2560 DATAS, 15,56 

2379 DATA4, 50, 40,70, 50,90, 50,110, 60, BO, 8 
0,65, Во, 50, 40 

2580 DATAZ, 40, 40,44,56, 48,68, 1,72,60,4,8 
0, 36,86, 44,90, 60,74,76 

2599 DATA74, 48,79,53 

2400 DATAZ, 5,20,155,24,5,84,155,95,112,2 
4,155,84 

2410 DATAZ, 10,65 

2420 DATA9, 10,25, 25,25, В0, 70,90, 76, 110,5 
5,150, 55, 140,40, 155,90, 60,85, 50,60, 10,40 
‚19,25 

2430 DATA2,120,40,126,44,1,100,72,2,64,6 
4,128,68 

2440 ПАТА119,56,115,61 

2450 РАТА5, 70, 20,90,60,5,52, 50,95, 40,20, 
155,50, 145,20, 155, 195,5, 60,50, 95 

2460 DATAS, 15,50 

2470 ОАТАЗ,5, 40,15, 30, 150,75, 150, 95,5, 60 
‚5, 

2480 DATAZ, 76, 60, 110,658,1,50,44,5, 50,52, 
B2, 60,144, BO 

2490 DATA1I0, 76, 135,81 


イメ ー ジ 


2500 DATAS, 80, 20, 155, 46, 3,80, 90,95, 100,4 
0,155, 55,150, 50,155, 60, 50,20, 80, 50 
2510 DATAS, 10,40 

2520 DATA4, 50, 50, 70, зе, 65,60, 30,55, 25,40 
‚30,35, 50, 30 

2550 РАТА!, 36, 56,1,60,52,5, 74, 52,74, 44,7 
4,56 

2540 ОАТА54, 56, 59,41 

2550 ОАТАЗ, ВФ, 20, 155,975, 3,64, 80,95, 5,20, 


DATAZ, 19,45 
DATAZ, 15, 50, 145, 50, 145,64, 15,64,15, 


DATA1, 60, 52, 1, 90,52, 1,40, 56 
2599 DATA130, 52, 135,57 

DATAZ, 5, 20, 155,44, 3,68, 155,95, 148,4 
4,155, 68 

2610 DATA4, 20,55 

2620 DATAS, 10,80, B0, 80,80,25, 110,25,110, 
80,90,90,10, 90,10,80 

2430 DATA1,96,44,1,80, 80, 2, 30,84, 50,84 
2640 РАТАЭО, 32,95, 37 

2650 DATA4, 3, 20,76,74,76, 20,120,22,112,2 
0,155,95,100,85,112, 5 

2440 РАТАЗ, 15,85 

2579 ОАТА2, 90,40, 140,40, 145,60, 100,55, 90 
‚49 

2680 ОАТА!, 140,52, 1,70, 40,1,150, 56 

2899 DATA120, 44, 125,49 

2700 DATA&, 40,20,84,95,84,20, 155, 52,04,7 
2,155, 95,84,60,105, 84, 3, 20, 40, 40, 3, 60, 40 
‚95 

2719 DATA4, 30,50 

2720 FORI=OTO2*3. 143ТЕР. 025: 2=25*С08 (1) + 
BOr V=25#SIN (1) +60 

2750 FORI=0T02*3. 143ТЕР. 025: 2=25*С08 (1) + 
100: V=25#SIN (1) +55 

2740 LINE (Z,V)-(100, 35) ,PSET, 41 МЕХТ 
2750 GET@ (100-25, 35-25) - (100+25, 55+25) ‚Е 
4,68 

2760 RETURN 


コミ カル で , 軽 る の ある 曲 で 、 連続 し た 方 が いい よう な フレ ー 


に な っ て いま すず 。 


ó PLAY "V15T180S58M5060" 


9 FOR 1«і TO 5 


PLAY “L304CL404DL804EGEDC “ 

PLAY "L3DL404EL80D4FBAGE " 
“L804GAR8L804ABL404B" 
“L305CL804BAGERB" 


あま り 変 化 の な い 単調 な 曲 で , 長き も ちょ っ と 長い た だ ため あき が 


くる か も し れ な い が 。 


РІ АҮ"У15Т18058Мм50Өе" 
FOR 1=1 ТО 5 
PLAY “L8046EGL ЗА ВСЕ" 
PLAY "L804GEGL2ARB" 
PLAY "LBOSCCL 404BALBA-A" 
PLAY “"L3BRK4" 
PLAY "L805CC04BL2AR8“ 
PLAY “L80S5DDCL2D4BRB“ 
PLAY “1 ВО5СО4БВВ-ВО5С\ 401 ВЕ" 
100 PLAY "L30SDR4" 
11@ NEXT 1 


流れ る よう な 感じ だ が 


ゲー ム の 始め に 使え る の で は と 思い ます . 


アメ リカ 民謡 で ある 
TT. ゲー ム の 始め に “これ か ら 始 まる ん だ ? 


ける よう な 曲 で す . 


朝日 の あたる 家 ′ を 少し アレ ンジ し た 曲 
と いっ た 感じ を 受 


PLAY “у15Т1во5вм5оео" 


FOR 1=1 TO 3 


PLAY "し L404DLBO4DEL404FLBD4FA" 

PLAY "L404GLBD4DDL404DR4" 

PLAY “"L4 ロ 5DLBD5DDL405SCLLBD4QG“ 

PLAY "L3O4AL8O4AGAR4" 

PLAY "L40S5SDL80SDDL40SCL804B-F " 

PLAY "L4D4GL804GAL404DR4 

PLAY "L405DL805DDL405CL8D4AB“ 
100 PLAY "L405CL80D5DCL40S5DR4" 


11Ө NEXT 1 


全体 に 暗い 感じ で , ゲー ム の 始め より 


途中 に 入れ だ た らい い の で は な いか と 思い ます . 


о PLAY “" ソ 15T2G ら SB らら 9 の ら " 

Š FOR I=1 TO 3 
PLAY "L805C04BAD05C04BAD" 
PLAY “L8OSCO4BAFOSCO4 BAF " 
PLAY "1 В05СО4ВА 461 ВАВО5С" 
PLAY “L805C-DD-L3SER4" 


欲張り 過ぎ て る か な ? 


イェ ー イ , きみ は も う 44 本 の ソル (タワ ー) の 出る 場所 を 知っ て る か な ? 
出 て 80mkII, 60mkII が 出る と , 88mkII は 出 な いも ん か ね ーー ? 


何 回 か 繰り 返し て みる と , 


リズ ム 感 が あり 速 さ の ある ゲー ム に 


いい の で は な いか と 思い ます . 
ó Р АҮ"У15Т20058М5000" 


FOR 1-1 ТО 5 


PLAY "LSD4GLBAGEDC" 
PLAY “L30S5SCL8DCEDC" 
PLAY “L3D4ALBB05CO4A6BE “ 
PLAY “LBO4DEFOSCO4BAR4" 


NEXT I 


tt, ゼビウス の / 
も ち 漢 ROM 付 き , NEW versiom, 180k Ç らい 処理 スピ ー ド UP 高速 演算 な ん て 


(リス ト は FM-7 よ り ) 


話 は 変わ っ て NEC の PC-100 と PC-9801F が 『 


(ヒロ トン ・ 


ウォ ー ズ の や り た い 14 才 の 少年 の 夢 を 見 守っ て くれ る 人 が いる か どう か , 中 森 明菜 と 森尾 由美 の FUN の 2403 和 飛田 直子 の 席 の と な り に いる 男の子 ) 


РС-8001/тКкКП/РС-8801 メー ソリ ンク. シミ ュ レ ーション 


N-BASIC 


ボー リン グ 


BOWILING= 


で 9 そ 


С 


Ku ーー 


一 馬場 洋 


N 
соле NNN 
L 


皆さん こん に ち は / 4 月 に FM-8 ФУ 
ラフ ィ ッ ク 麻 雀 を , PC-8801 に 移植 し て , 
IO に 送っ た の で す が , バ グ が ある こと を 発 
見 し た の で デバ ッ ク し て 再度 送 ろ うと し た 
や さき に , 精彩 グラ フィ ッ ク 麻 雀 が 発表 さ 
れ そ の 結果 発送 を 断念 … 

その 後 5 箇 月 オリジナル の プロ グラ ム 
を 一 本 完成 させ た の て 発 家 し ます . プロ グ 
ラム 名 は , ボー リン グ ・ シ ミュ レー ショ ン (1 
人 前 に 格好 の よい 名 前 で す が , シミ ュ レ ー 
ыды ыы 


25Aowe 


オォ オール BASIC な の で , リス ト を 見 て 各自 
で 解析 し て くだ さい. 


方 法 


リス ト を よく 見 て 間違い の な いよ うに 入 
с: 


Ө ао» 


RUN す る と 画面 が 消え て 数 秒 後 に タイ ト 
ル が 表示 きれ ます . そし て , [キー を 押す 
と 次 に 移り , レー ン が 表示 され 中 央 に ^PL 
АҮЕН” と 表示 る れ ま す . ここ で は プレ イ 
する 人 数 (1 一 4 人 ) を 入力 し て くだ さい . 

人 数 の 入力 が 済む と , 1 レー ン か ら 順 に 
投球 が 始ま り ま す (1, 3 レー ン は デモ デ 


レイ ). 自 分 が ゲー ム で きる レー ン は 2 レー 
さい 先 良 く ス ペア 『!? 


Ух, の ぎじ REEDED 
イ の 仕方 が 少し 違う の で 説明 し ます . 

1 人 の と き は , 1 レー ン の デモ プレ イィ 後 
に 直接 投球 待ち の 状態 に な り ま す . 

2 人 以上 の と き は , 投球 待ち に 入る 前 に 
“PLAYER 1” >, “PLAYER 4" と いう 
よう に 各 プ レイ ヤー ご と に 表示 が あり ます . 
そし て 投球 待ち に 入る に は [キー を 押し ま 
F 

また だ, 1 人 デレ イ す る と きる は 1 投 ご 
に 1 レーン, 2 レー ン 。 3 レー ンジ 。 1 レー 
ン … と 順 が 回 り ま す が 。 2 人 以上 の と き は 
2 レーン だ け 1 フレ ー ム 行ない (た と えば 3 
人 の と き は , 2 レー ン に 順 が 回 っ て きだ と 
き に 一 度 に 3 フレ ー ム 行ない ます ), дау: 
シー ト も 各 プ レイ ヤー ご と に 変わ り ま す . 

投球 待ち の 状態 に な る と , 中 央 に ヾ PO- 
МЕН” と 表示 され る の で , ボー ル を 投げ る 
力 を 入力 し ます . 入力 は テン キー の [で 弱 
い , [gl で 普通 , [で 強い と な り ま す . この 
POWER の 入力 値 に よっ て , この 後 入 力 す 
る 変化 球 の 具合 や ピン の 倒れ 方 も 違っ て き 
まき 

POWER の 入力 が 済む と , “COURSE” と 
表示 きれ る の で , 投げ る 球 の 球 種 を 入力 し 
ます . 入力 は テン “キー の [4 で フッ ク , BE 
スト レー ト , [@|l で バッ クア ッ プ で です. 

COURSE の 入力 が 済む と , こん ど は ボー 
ル の 上 に 〒 印 が 表示 る れ , ボー ル の 投球 開 
始 位置 の 移動 が 可能 と な り ま す . 操作 は テ 
ン ・ キ ー の [1 で 左 , [3| で 右 に 動き , 位置 が 決 
まっ な たら [2 を 押し ます . 

+ t ША Et, POINT” + жа ИС, 
ピン の 前 に e 印 が 表示 きれ ます . この 点 は 
ボー ル の 通過 予定 点 で ,. ボー ル を ころ が し 
だ とき に こ の 点 を ボー ル の 中 心 が 通 過 し て 
いき ます . し か し , 予定 点 で す の で 投球 後 
に 大 きく ズレ た りす る こと も あり ます (Fl 
19» 

な お , この 点 は テン ・ キ ー の [@I で 左 ,[eI で 
右 に 移動 きせ , 位置 が 決ま っ た ら [| キー を 
押し ます . 

以上 の 操作 を 順 が 回 っ て くる だ びに 入力 
L, 10 フ レー ム 投 げ 終 わっ だ ら 3 レーン の 
デモ プレ イ を 最後 に ゲー ム ・ オ ー バ ー に な 
Жаз; 

ゲー ム ・ オ ー バ ー に な る と キー の 入力 
待ち の 状態 に な る の で , も う 一 度 プ レイ し 


た いと き は [キー を 押し た 後に , 再度 RUN 
С Ум, 
まだ , 2 人 以上 の と き は [キー を 押す と 
プレ イヤ ー 全 員 の スコ ア ・ シ ー ト が 表示 る 
れる の で , だ れ が 勝っ た ヵ か 1 目 で わか り ま 
+. この と きも [キー の 入力 待ち に な っ て 
いる の で , 再度 プレ イ す る と き は 一 度 [| キ 
ー を 押し て RUN し て くだ る さい . 
ШІ ボー ル の プレ 


プレ が 少な か っ た と き 


今回 の プロ グラ ム は ムダ な 処理 を し て い 
る と ころ が 多く あり ます が , スピ ー ド を 必 
要 と する 内 容 の も の で は な い の で 特に 修正 
は し ませ ん で し た 。 この デ ョ ダグ ラ うめ は B 〇 に 
WLING- 2 と 名 付け て あり ます が , た だ -2 
と 付け た の で は な く , BOWLIG-1 と 呼べ る 
も の も ちゃ ん と あり ます . LL, その プ 
ログ ラム は 1 人 で し か ゲー ム が で き な か っ 
だ の で 友達 と 遊ぶ と き な ど は 実に 不満 が 出 
まし た . その 不満 を な くす だめ 配列 を 利用 
し , 多 人 数 処理 を 可能 に し て 完成 し た の が 
この BOWLING- 2 で す . 

(о) 


45 


Ріо 


10 mw МЕС РС-8001 BOWLING SIMULATION 

-2 тшшш 

20 CONSOLE0,25,@,@:WIDTH8@,25:COLORO,@,1 
ІРКІМТСНАФ (12) 

50 PU=1』R1=11R さ =11YO=201UP=1 

49 8051827709: DUTB1 ‚© 

50 PUTA (48, 40) - (64,44) , AO, OR: PUTA (72, 40) 
- (112, 44) „EO, OR: PUT@ (60, 47) -(100,51),Е!1, 
ОВ:РОТ@ (45,54) - (105,58) ,E2, OR: PUTA (105,5 
4)- (109,58) , A9, ОВ:РИТ@‹ 111,54) -(115,58), 
A2, ОВ: WIDTHEO, 25 

60 KW=INKEY き 』RN=RND (1) 』 IFK$ く >CHR$ (13) THE 
Ne 

79 "ШЕШЕН LANE PRINT mamam 

ВӘ PRINTCHR%(12):DUT81,0 

90 LINE(3,1)-(156,1),PSETiLINE(3,19)- (15 
6, 19) ,PSETILINE (3,80) - (156, 80) , PSET: FORI 
=OTOSILINE (3+1#51,1)-(3+1#51, 55) ,РВЕТЕМЕ 
xT 

109 LINE(19,19)-(19,25),PSET:LINE(19,25) 
-(S,35),PSET:LINE(19,25)-(54,25),PSET:LI 
NE810,36)-(3,41),PSET:LINE(9,79)-(46,36) 
„РЕТ 

110 LINE (60,19) – (60,25) ,PSET: LINE (60,25) 
- (23, 79) , PSET』LINE (60, 25) -(99,25) , PBET』 し 
INE(99,19)-(99,25),PSETiLINE(99,25)- (156 
, 79) ,PSETiLINE (39, 79) - (60, 56) , PSETi L INE ( 
120,79)-(99,36) ,PSET 

120 LINE(105,25)-(141,25),PSETILINE(141, 
19)-(141,25) ,PSET:LINE(141,25)-(156,35), 
PSET:LINE(150@,79)-(113,36),PSET:LINE (149 
‚36)-(156,41),РЗЕТ 

150 ҒОКІ-дТ06:1.1МЕ(55%1%9,78)-(55%1%9,79 
),РЗЕТ:МЕХТ 

140 LINE (6,82) - (155,98) „РЕТ, В: 1МЕ (6,90 
)-(153,90),PSETiFORI=@TO20:LINE(13+I*7,8 
2)-(13+I%7,9@),PSET:NEXT:FORI=@TOB:LINE ( 

20%1%14,99)-(20%1%14,98) ,РБЕТ: NEXT 

150 ҒОКІзФТ02:РЦТ8(5%1%51,15)-(21%1ж51,1 
7) „AO, ОВ: NEXT 

160 PUT@(44,13)-(45,17),Al, OR: PUTE (94,13 
)-(98, 17),AZ, ORIPUT@ (145, 15)- (149, 17),A3 
OR 

, 

170 FORI=OTOZIPUT@(16+1*51,5)-(41+1#51,1 

5) , BO, ОВ: МЕХТ 

180 ЕОК1«ӨТ0211.1МЕ(50%1%51,15)-(51%1%51, 
14),PSET,BF:NEXT:WIDTH80 , 25 

190 GET@W(6,82)-(153,98),Z@,G 

200 БЕТӘ (6,82) - (155,98),21,8 

210 БЕТ@ (6,82) - (155,98), 22,6 

220 БЕТ@ (6,82) - (155,98),25,8 

250 PUT@(6 さ , 50) - (97,54) , AB, OR 

240 K%=INKEY%: ІҒКФ»""ТНЕМ242ЕІ БЕРІ. "АВС (К 

$) IFPL く 490RPL >52ТНЕМ240 

250 PL=PL-4B』LINE (65, 50) - (97, 54) ,РКЕВЕТ, 

ВЕ 

260 DIMPP(2,PL),R2(PL),M2(PL),S(PL),81 CP 

し ) ,ЗР (PL), ST (PL) ,ВС(РЬ) , В0 (РЁ) , PI (PL) 

270 ЕОВ1=1 ТОРЕ 1 S2 (1) =41М№ЕХТ 

280 РОВТ=! ТОРЕ: 2 (Г) = 11 МЕХТ 

290 ”ШЫҒЫШ MAIN ( LANE NO.2 ) НШЫ 

300 GOSUB224 の 

510 LINE (10, 56) -( さ , 41) 。PBETILINE(9。79) -( 

46, 36) , PSET 

520 IFM1< >1ТНЕМО08ЦВ1950 

330 R1=R1+1iM1=0 

540 IFRI=STHENR1=11FORI=1TO101P (1) =O1NEX 

TIPUT@(16, 5)- (41,15) , ВФ, OR 

550 5080820501 GOSUB1 9701 GOSUB2010 

360 GOSUBSBO 

570 LINE (39,79) - (40, 36) ,PSETILINE (120,79 

)- (99, 36) , PSET 

580 IFM2 (11) < >1 THENGOSUB1 960 

590 R2(IJ)=R2(IJ)+1:M2(IJ)=@ 

400 ТЕК2 (15) =ЗТНЕМВ2 (13) =1:РР (1, 1J) = の IPP 
(2,12) = の FURI=11TO2 の IP(1) еді NEXTIPUT@ (67 

, 5) - (92,15) , BO, OR 

410 908482050: GOSUB1 9701 GOSUBZ010 

420 IFPL=1THEN49@ 

450 1ЕН2(12)<>2ТНЕМ4ҺӘ 

440 IFGO(IJ)=1@THENGOSUB700 

450 GOSUB700: GOTO370 

460 ТЕВ2 (15) m1THENONIJGOSUBZ180, 2190, 22е 

9,2210 

479 IFIJ=PLTHENIJ=@: GOTO490 

480 GOTO3e@ 

490 GOSUB2300 

500 LINE(150,79)-(113, 36) ,PSETILINE (149, 

36)-(156,41),PSET 

510 IFM さ く >1THENBOBUB196 の 

520 RS=RS+11M さ =O 

550 IFR さ = く THENR さ =1』FORI=21TDSOIP(1) = の NE 

ХТіРОТ8(118,5)-(145,15),В9,0К 

540 605182050: 60318197: GOSUB2 1 の 

550 IFG ロ (1 ) =1 の ANDPL=1THEN266 の 

560 FORI=1TOPLı GO=GO+6O (1) INEXTI IFGO=PL# 

16THEN266@ 

570 GO=O』GOTO さ oo 

580 LN=1:X0=55; IJ=IJ+11 IFPL=1THENIJ=1 

590 IFIJmSTHENIJ=PL』R2(PL ) =21 RETURN 

809 IFPU=1ANDUP= 1THENLN= 1 1 Х0=55 1 GDBUB196 

01005081970: 8080820101 IFPL >1THENPU= の 

610 IFPL=1THEN729 

620 IFBO(1J) «19ТНЕМ700 

630 PUT@(6 さ 。 50) - (97,54) ,48,0Жі0М12807054 

©, 650, 660,670 

640 РОТ (79,57) - (80,1) ,А1,ОК:ВОТОЬВе 

650 PUT@ (78. 57) - (82,61), А2, ОК: ВОТОбВФ. 


OO 


ぼく は いま , PC-8001 か ら FM-7 へ 乗り 換え よう と 思っ て いま す . し か し , 
5125. P.S. あ ん まり 関係 な に けど , MAXWELL コ マー シャ ル の ソフ ィ ー マ ルソン ー は ノー プラ だ そう で す . 


859 РОТа (78, 57) – (82,61) „АЗ, ОК: ВОТОБВе 


470 PUT@ (78,57) – (82,61) 。 4。 0R 

680 K$=INKEY$: IFK$<>CHR$ (15) ТНЕМЫВФ 

690 LINE (63,50) - (97,61) ‚РРЕЗЕТ, BF 

790 IFGO (1J) =10ТНЕМБ2 (I1J) «2: RETURN 

710 "ШЕНШЕ POWER umama 

720 Ү1=01Ү2=01РР=@1 Х=771У=69 

730 РИТФ(Х,Ү)-(85,75),81,0Ж 

740 PUT@(6b, 50) – (94,54) , B3, OR 

750 K$=INKEY$: IFK$="7"THENPO=1 1 G0T0790 
780 ТЕК В"ТНЕМРО=21: 60107909 

779 IFK き ="9"THENPD= さ 』 8070790 

780 RN=RND(1) 』 BUTO75 の 

790 605182140 

вов 'mammam COURSE Mmmm 

819 PUT@ (25,50) - (97,54) , B4, OR 

820 K$=INKEY$: IFK$="4" THENQ=-(RND(1) *.5+ 
・ さ ) 1 GOTOBe 

850 ІҒКФ= "5" ТНЕМО«ә: GOTOB6@ 

B40 IFK$="6"THENQ=RND (1) *. 5+. 3: 80Т0850 
850 RN=RND ( 1) ı G0T0820 

860 Рита (78, 64) - (82, 66) , Ab, OR 

870 K$=INKEY$: IFK$="1"THENIFX-1>49THENGO 
$08910: X=X-1 1 GDBUB92 の 

880 IFK$=" さ "THENIFX+1 く 1 の 5THENGOSUB91 の 1X= 
х+1:60508920 

890 1ЕК®="2"ТНЕМВОЗИВ21 40: 6070930 
RN=RND (1) i G0T0870 

910 РОТЕ СХ, ү) (X+6, ¥Y+6) , B2, AND: RETURN 
920 РиТФ(Х,Ү)-(Х%6,Ү%6),В1,0К: RETURN 

959 РИТ%8(78,54)-(82,55),А7,АМО 

940 ' ШЕШИНЕ POINT mamam 

950 PUT@(66, 50) - (94,54) , B5, OR 

960 X1=77:PSET(X1+3, 40) 

970 K$=INKEY%: IFK$="0"THENIFX1-1>59THENP 
ВЕЗЕТ (X1+3, 40)1X1=X1-11PSET (X1+3; 40) 

980 IFK$=","THENIFX1+1<94THENPRESET (X1+3 
, 40) 1Х1=Х1+11РЗЕТ (Х1+5, 40) 

990 IFK%$=", "ТНЕМРВЕЗЕТ (Х1+5, 40) 150808214 
@1Х2=Х1-Х100=Х2/50:Е0ОВ1=010999: NEXT: GOTO 
1020 

1000 RN=RND (1) 1807097е 

1010 "ШЕШШ BALL CONTROL mE 

1020 XX=XiQB=RND(1 ) ж. 21 IFRND (1) +, 2>QBTHE 
NQB=QB*-1 

1030 QB=QB*PO 

1040 РИТФ(Х,Ү)-(Х%6,Ү%6), B2, AND 

1050 FORY=66TO3S@STEP-PO:XX=XX+QQ+QB:IFY<C 
27THENXX=XX+Q*(4-P0) 

1060 PUT@(X,Y+PO)-(X+6, Y+PO+6) , B2, AND 
1070 PUT@(XX,Y)-(XX+6,Y+ë),B1,OR 

1080 IFPOINT(S3,42)=-10RPOINT (106, 42) =ー1 
ORPOINT (56, 57) =-10RPOINT (103, 37)=-1THENP 
UT@(XX,Y)-(XX+6,Y+é),B2,ANDi GOSUB1 4401 RE 
TURN 

1090 X=XXıNEXT:Y=Y+PO:PUT@(XX, Y)-(XX+6,Y 
+6) , B2, AND 

1100 Y=Y-21 X=X+QQ+QB: IFY く 27THENX=X+Qw (4- 
РО) 

1110 PUT@(X,Y)-(X+6,Y+6), B1, OR 

1120 IFPOINT (59, 52) =-1ОВРОТМТ (100, 52) =-1 
ORPOINT (61,29) =-1ОВРОТНТ (98, 29) =ー1THENPU 
TAIX, ү) -(х+6,ү+6) , B2, АМО: 605081460: RETUR 
N 

1150 IFY<28THENY1=Y1+1:GO0SUB1180 

1140 PUT@W(X,Y)-(X+é,Y+é),B2,AND 

1150 IFY=26THENBUSBUB 1 4601 RETURN 

1160 80701100 

1179 "ШЫҒЫН PIN SIMULATE ШНЫШ 

1180 FORI=1TOY1:Y2=Y2+1iYY=Y2+LN*1%@íIFP( 
ҮҮ) =1ТНЕМ1 250 

1190 ZmINT(RND(1) #3) 』 ONLN+1GOTO2520, 1200 
‚2560 

1200 IFPOINT (XP (YY) ,YP(YY) ) =-1АМОРОТМТ (X 
P (YY) +3, УР (YY) ) =-1THENP (ҮҮ) =1: Y3=@: GOSUB 
14301 IFY2>6THEN12 さ OELSEY さ =O』 603181450: ОМ 
Y260T01240, 1280, 1280, 1450, 1450, 1450 

1210 ТЕРО1МТ (XP (YY) „УР (YY) ) =-1THENP(YY) = 
11 Y3=01 605181450: IFY2>6THEN12 さ oOELBEY さ = の 
60831814309: ONYZGOTO1 250, 1300, 1520, 1340, 13 
BÒ, 1240 

1220 ІҒРОІМТ (ХР (YY) +5, YP (YY) ) =-1ТНЕМР (YY 
) =1 1 Y3=01 GBDSUB14 さ の IFY2>6THEN12 さ OELBEY さ = 
01 GOSUB1 4301 ONY2GOTO1240, 1310, 1330, 1370, 
1599, 1400 

1250 МЕХТ: RETURN 

1240 P(YY+4)=1 1 Y3=41 6081814509: GOTO1 230 
1250 P(YY+2)=11 Y3=21 GOSUB1 4301P (YY+5) =11 
Y3=51 GOSUB1 4301 IFZ=1THENP (YY+9)=1 1 Y3=91 G 
OSUB1430: GOTO1 230ELSE 1 230 

1260 P(YY+1)=1:Y3=1:GOSUB143@:P (YY+3)=11 
Y3=3iG0SUB143@r:IFZ=1THENP(YY+6)=1liY3=6íG 
08МВ1450:80701250Е1.5Е1250 

1270 Р(ҮҮ+2) «11 Y3=2iGOSUB143@:P (ҮҮ+5) =11 
Ү5ж5і BUSUB 1 430: 60101250 

1280 P(YY+6) =11Y さ =6』BOSUB14 さ の 』 80101259 
1290 P(YY+ さ ) =1』Y さ = さ 1 603081 4 さ の 1P(YY+7) =11 
Y さ =71 805181450: 60101250 

1500 P(YY+ さ ) =11Y さ = さ 』 BOBUB14 さ の +P(YY+7) =11 
Y さ =71 60808145091 1FZ=1THENP (YY+8)=1:Y3=8iG 
OSUB1 430: GOTO1230ELSE1230 

1310 Р(ҮҮ+2)=1з YS=21 GOSUB1 4301P (YY+5) =11 
Y3=5: 605814350: 00701252 

1320 P(YY+3)=1iY3=3:GOSUB143@:P(YY+7)=1l:i 
Y3=7: GOSUB1 430: GOTO1 230 

1330 P(YY+2) =11Y さ =2』BOSUB14 さ の 1P(YY+5) =1 1 
Y さ =5』 608181450: 1FZ=1THENP(YY+4) =11 Y3=41 G 


BOWLING- 2 BASIC リ Z F Везер И 


OSUB1 430: GOTO1 230ELSE1230 

1540 P(YY+4) =1』Y さ =4』GUSUB14 さ の IFZ=1THENO 
NPOGOTO1230, 1550, 1360 

1550 Р(ҮҮ+5) =11 Y3=5ı GOSUB1 4301 80701250 
1360 P(YY+5) =11У5=5 1 GOSUB1 4301P (YY+6) = 11 
Y3=61 603181450: 60101256 

1570 P(YY+ く ) =11Y さ = さ 』GDSUB14 さ の 1 60101250 
1580 P (YY+4)=11 Y3=41 GOSUB1 4301 ІҒ2=1ТНЕМР 
(YY+5) =11Y さ =S』 GOSUB1 430: GOTO1 2SOELSE 1 230 
1590 P(YY+ く ) =11Y さ = さ 』 GOSUB1 4301 IFZ=1THENP 
(YY+2) =1』Y さ =21GBOSUB14 さ の 』 ВОТО1 23 の ELSE 1230 
1409 P (YY+3)=1:Y3=3:GOSUB143@:IFZ=1THENO 
NPOGOTO1 230, 1410, 1420 

1419 Р(ҮҮ%2)е11Ү53-21008М81450:080701250 
1420 Р(ҮҮ+2) =11Ү3=218080В14301Р(ҮҮ+1) =11 
Y3=1 1ı GOSUB1 43100701230 

1430 Y4=Y3+YYILINE (PX (Y4) ,PY (¥4) – (PX (Y4 
)+3,PY (Y4) +7) , PRESET, BF 

1440 Y3=0: Y4=01 RETURN 

1450 'mamamm SCORE mamam 

1460 FORI=11TO20:PI (13) =Р1 (1J) +P (1) NEXT 
1470 S1 (11) =51 (13) +11 M2 (IJ) =1 

1480 805081960: GOSUB2050 

1490 ТЕВ2 (13) =2ТНЕМ! 540 

1500 РР(1,13) =Р1 (13) 1РГ (13) = の 

1510 IFPP (1, 1J) *OTHENGOSUB21 101 9B= さ 』 GOBU 
В15801КЕТИЯМ 

1520 IFPP (1, 13) =10THENGOSUB21 501 60318209 
©: 508082160157 (15) =ВТ (13) +1181 (IJ) =81 (IJ 
) +11 SB=1 1805081580: R2 (1J) «21 RETURN 

1550 SB=PP (1, 1J) +41 GOSUB1 5801 RETURN 

1540 РР(2,12)еРІ(120)-РР(1,100аРІ(1203-0 
1550 IFPP (2, 1J) =OTHENGOSUB21 20: SB=4: GOSU 
B1580: RETURN 

1560 IFPP (1, 1J) +PP (2, IJ)=10THENGOSUB2100 
ı SP (1J) =1 1 SB=2ı 603081580: RETURN 

1570 SB=PP (2, 1J) +4: 603081580: RETURN 

1589 IFS1 (1J) >18ТНЕМ8(12)«8(12) +71 BOTO16 
ее 

1590 8(13)=81 (1J) #7 

1690 ONSBGOTO1610, 120, 1650, 1640, 1650,16 
60,1670, 1680, 1690, 1700, 1710, 1720, 1750 
1610 РИТФ(Б(12),83)-(8(12)%5,89),Е5,0К:48 
0701749 

1620 РИТФ(8112),85)-(8(12)%5,89),Е4,ШКі8 
0101749 

1630 PUT@(S(1J),83)-(S(IJ):5,89),E5,OR:G 
0701740 

1640 РОТӘ (8 (17), 55) – (8011) +5,89) ,ЕБ,ОК:В 
0TQ174o 

1850 FU「W(B(1J) 。BS) -(S(1J) +5。B9) ,C1, ORIG 
0101749 

1569 Рита(8(127),85)-(8(12)%5,89),С2,0К:8 
0701740 

1670 PUT@(B(1J) 。B3) -(S(1J) +5,89) , C3, ORIG 
0701740 

1580 PUT@W(S(1J),83)-(S(IJ)+5,89),C4,0RiíG 
0701740 

1690 PUT@(S(IJ),83)-(S(1J) +5,89), C5, ORG 
01701740 

1799 PUT@(S(IJ),83)-(8(1J) +5,89), Cb, ОВ: В 
0701740 

1710 РИТФ(8(12),85)-(8(12) +5,89) ,C7,ORIG 
0701740 

1720 РИТФ(8442),83)-(8(12)%5,89) , C8, ORIG 
0701740 

1730 РИТФ(8(12),83)-(8(12)%5,89) ,С9, ОВ: 8 
0701740 

1740 IFSP (13) =1ANDR2(1J) =1THENSC (IJ) =8C( 
IJ) +10+PP (1, 1J) SP (1J) =0: GOSUB1810 

1750 IFST (1J) =2АМОРР (1, 1J)<10THENSC (IJ) = 
8С (1J) +20+РР (1, 13) 187 (1J) =11BOSUB1B1 の 
1760 ТЕВТ (13) =ЗТНЕМЗС (12) =8С (13) +5091 ВТ (1 
J) =21 GOSUB1810 

1770 IFR2(1J)=1THENRETURN 

1780 IFST(1J)=1THENSC(IJ)=SC(IJ)+1@+PP(1 
,1J)+PP(2,1J):iST(IJ)=@:GOSUB1810 

1790 IFBO(1J) =1OTHENRETURN 

1800 IFSP (11) <>1ТНЕМВС (15) =SC(1J) +РР (1,1 
J) +PP (2, IJ) ELSERETURN 

1819 GO(IJ)=GO(IJ)+11iS2(IJ)=S2(1J)+4íS3= 
INT (SC (1J) /100) 』 IFB さ >OTHENSBeB さ 1 9088184 
° 


1820 82(12)-82(12)%4184-8С(1.)/190-83184 
=INT(S4*10+.@1) т IFS3>OORS4 > の THENBB=54』 ロ ロ 
SUB1849 

1850 82(1J) =S2(1J)+41S5=INT (BC(1TJ)/19)18 
6=(SC(1J)/1@)-S5:S7=INT(Sé*1@0+.1):8SS=S7: 
GOSUB1840: S2 (1J) =82 (1J) +2: RETURN 

1840 ONSS+1GOTO1850, 1860, 1870, 1880, 1890, 
1900, 1910, 1920, 1930, 1940 

1850 Р(Т8(52(12),92)-(682(12) +2, 96) 。 DO。 OR 
1 RETURN 

1860 PUT@W@(S2(1J),92)-(S2(1J)+2,96),D1,OR 
1 RETURN 

1870 PUT@(52(1J), 92)-(82(1J)+2, 94) ,D2, OR 
1 RETURN 

1880 РИТ8(82(12),92)-(82(10)%2,96),03,0Я 
1 RETURN 

1899 PUT@(S2(1J),92)-(82(1J)+2,96),D4, OR 
1 RETURN 

1900 PUT@W@(S2(1J),92)-(S2(1J)+2,96),D5,0R 
1 RETURN 

1910 PUT@(S2(IJ),92)-(52(1J) +2,96) , D6, OR 
3 RETURN 

1920 PUT@(S2(1J),92)-(S2(1J)+2,96),D7,OR 
1 RETURN 


2 年 間 使っ て きた し , ソフ ト も 120 本 を 超え た し …, 皆 さき ん, E 


(М & Y) 


1930 PUT@(S2(1J),92)-(S2(1J)+2, 96) „08,08 
1 RETURN 

1940 PUT@(S2(1J),92)-(82(1J) +2, 96) ,D9, OR 
1RETURN 

1950 ‘mms PIN SETTER ME 

1960 LINE (X0+49, \0+15) - (XƏ, YO) ,PSET, BF: R 
ETURN 

1970 LINE (ХӘ, YO) - (X0+49, YO+15) , PRESET, BF 
sı ONLN+1GOTO1 980, 1990, 2090 

1980 LINE (19,19)-(19, 25) ,PSETILINE (19,25 
)-(3, 35) ,PSETILINE (19,25) - (54,25) ,PSET1 I 
FR1=2THENLINE (50, 16) - (51,17) ,PSET, BF КЕТ 
URNELSEL INE (50, 16) - (51, 17) , PRESET, ВЕ: КЕТ 
URN 

1999 LINE (40, 19)- (60,25) ,PSETILINE (60, 25 
) - (25,79) ,PSETILINE (60, 25) - (99, 25) „РЕТІ 
LINE (99,19) - (99,25) 。PSET』LINE (99,25) - (13 
6,79) ,„PSETIIFR2(1J) «2ТНЕМІ ІМЕ(101,163-(1 
@2,17),PSET,BF:RETURNELSELINE(101,16)- (1 
02, 17) , PRESET , ВЕ: RETURN 

2000 LINE (105, 25)- (141, 25) ,PSETILINE (141 
‚19)-(141,25),РВЕТЕСТМЕ (141,25) - (156, 35) 
。PBET』IFRSm2THENLINE (152, 16) — (153, 17) , PS 
ET,BF:RETURNELSELINE (152, 16) - (153,17) ,PR 
ESET, ВР: RETURN 

2010 FORI= (10+ №10) ТО (1+. №10) ЗТЕР-111Е 
P (1) =ОТНЕМРИТ@ (PX (1) ,РУ(Т) ) - (РХ(1)+5,РУ( 
1) +7) , AS, ORı 003082050 

202% МЕХТ: RETURN 

2050 PUT き (PX(I) ,РҮ(1) ) - (РХ(1)+3,РУ (1) +7) 
„АЗ, ОКІЦІМЕ (РХ СІ) ,РУ(1)-1)-(РХ (ТГ) РУ (1) + 
2) ,PRESETILINE (PX (1) ,РУ(1)-1) -(РХ(1)+5,Р 
Y (1-1) 。PRESETILINE(PX (1) +5, PY (1) -1) - (PX 
(1)43, PY (1+2) , PRESET: RETURN 

2040 "аат MASKING UNIT mmm 

2050 FORI=1+LN*10T010+LN*10 

2060 1ЕР(1)=1ТНЕМЕТМЕ (MX (1) , MY (1) 0= (MX (I 
)+1,MY (1) +1) „PRESET , BF 

2970 NEXTIRETURN 

2080 ” ШИ COMMENT MS 

2990 PUTA (43, 50) - (97,54) 。 Bé, ОВ: GOTO2130 
2100 PUT@ (66, 50) - (94,54) , B7, ОВ: GOTO2130 
2110 PUT@ (65,50) - (97, 54) , B8, ОВ: GOT02130 
2129 РТВ (69,50) - (91,54) , B9, OR1G0T02130 
2130 FDRI=OTO2999』NEXTI 90882149: RETURN 
2140 LINE (65,50) - (97,54) , PRESET, BF 1 RETUR 
N 

2150 PUT0W(24+LN*51,5)-(33+LN#51,14),E7,0 
RI RETURN 

2160 LINE (24+LN#51, 5) -(SS+LN*S1, 14) ,PRES 
ET, ВЕ: RETURN 

2170 ’ MEE SCORE SHEET MEE 

2180 IFPL>1THENGET@ (6,82) - (153,78), 20,0: 
GOSUB22201 PUTA (6, 82) - (153, 98) , 21, ORI RETU 
RNELSEPU=1 1 RETURN 

2190 ІЕРІ.>2ТНЕМВЕТ8(6,82)-(155,98),21,0і 
80582220: PUTA (6, 82) - (153, 98) , 22,081 RETU 
АМЕСЗЕВЕТ@ (6,82) - (155,98), 21,0: 808182220 
1PUT@ (64, 82)- (153, 98) , 20, ОР: PU= 11 RETURN 
2200 ТЕРЕ>ЗТНЕМВЕТ@ (6,82) - (153, 98) ,Z2,01 
GOSUB2220: PUTA (6, 82) - (153, 98) , Z3, ORIRETU 
RNELSEGET@ (4, 82) - (153, 98) , 22, Gi G0SUB2220 
ıPUT@ (6,82) - (155,98), 20, OR1PU=1 1 RETURN 
2210 IFPL=4THENGET@ (4, 82) – (155,98) ,Z3, 61 
GOSUB2220: PUTA (6,82) – (153, 98) 。 Z0, OR: PU=1 
1 RETURN 

2220 LINE (4,82) - (153, 98) , PRESET, BF iRETUR 
N 

2230 mmm LANE NO. 1 ШЕННЕН 

2240 LN=O』 X0=4i Y1=01 У2=0:РР=@ 

2250 PO=INT (RND (1) #5) +1 

2260 IFPU™=1ANDUP=1 THENGOSUB1 9401 GOSUB197 
@:GOSUB201@ 

2270 Е0В1=01019991 МЕХТ 

2280 X=3: Y=541 Y5=511 11=1: 603182550: RETUR 
м 

2290 'mmmmm LANE NO. 3 mmamm 

2500 LN=2: Хӧт1001Ү1=01Ү2=0:РР=Ә 

2510 PO=INT (КМО (1) #3) +1 

2520 IFPU= 1ANDUP= 1 THENPU= の 』 UP= の GSUB 196 
©: GOSUB1 970: GOSUB2010 

2550 FORI=OTD1999iNEXT 

2540 X=150:Y=54:Y5=108: 11=21: GOSUB2350:R 
ETURN 

2550 FORI=IITO11+91 IFP (I) =OTHENQO=QG (1) # 
2ELSENEXT 

2560 XX=X:QB=RND(1)*.5:IFRND(1)*.5>QBTHE 
NQB=QBw-1 

2370 XY=INT((QB+QQ) *17+X) UNLN+ 1G0BUB さ 37 
©, 10, 33801 FORI =0T06: READYX, Y1, Y2, PS 

2580 IFYX<=XYTHEN2400 

2390 NEXT 

2400 FDRY=54TDSOBTEP-2』 XX=XX+QQ+QB 

2410 PUT@(X,Y+2)—(X+6,Y+8), B2, AND 

2429 PUT@ (XX, ¥= (XX+6, Y+6) , B1, OR 

2450 X=XX:NEKTiY=Y+2iPUT@(XX,Y)-(XX+éó,Y+ 
6) ,В2, AND 

2440 YaY-2: XmX+QQ+QB 


2450 PUT@(X, Y= (X+6, Y+6) ,B1, OR 
2460 IFPOINT (Y5, 24) =-1THENYY=1OIP(YY) =11 
IFLN=2THENYY=271P (YY) =1 ı GOSUB1 4301 G0SUB2 
6001 RETURNELSEGOSUB 1 450: 603182600: RETURN 

IFPOINT (Y5, 30) =-1 THENGOSUB2600: RETU 


IFY<PSTHENY1=Y1+1』GOBUB1 180 
PUT@ (X, ¥= (X+6, Y+6) , B2, AND 
IFY=26THENGDSBUB26 の の 』RETURN 
60702440 
ІҒРОІМТ (XP (YY) , YP (YY) )=—1ANDPOINT (X 

P (YY) +5, YP (YY) ) =-1ТНЕМР (YY) =1 1 Y3=@: GOSUB 

14301 IFY2>6THEN1230ELSEY3=0: GOSUB1 450: ОМ 

Ү280701249, 1280, 1290, 1430, 1240, 124% 

2550 IFPOINT (XP (YY) , YP (ҮҮ) ) =-1ТНЕМР (YY) = 

11 Y3=01 GOSUB1 4501 IFY2>6THEN12 さ OELBEY さ = の r 

GOSUB1 4301 ONY2GOT01250, 1300, 1520, 1340, 13 

ве, 1240 

2540 ІҒРОІМТ (XP (ҮҮ) +5, YP (YY) ) =-1ТНЕМР (YY 

) =1i Y3=01 BGOSUB1 4301 IFY2>6THEN12 さ OELSEY さ = 

@iBDSUB1 4301 ONY2GOTO1260, 1310, 1550, 1570, 

1590, 1570 

2550 NEXT RETURN 

2560 IFPOINT (XP (ҮҮ), YP (ҮҮ) ) =-1ANDPOINT(X 

P (YY) +3, YP (YY) ) =-1ТНЕМР (YY) =1 1 Y3=@: GOSUB 

14301: IFY2>6THEN1230ELSEY3=@: G0SUB143@: ОМ 

У260Т0124%, 1270, 1280, 1570, 1370, 1430 

2570 IFPOINT (XP (YY) +3, ҮР (ҮҮ) ) =-1ТНЕМР (YY 

) =11 Y3=01 GOSUB1 4301 IFY2>6THEN123OELBEY さ = 

©: GOSUB1 430: ONY2GOTO1 260, 1310, 1330, 1370, 

1370, 1400 

2580 IFPOINT (XP (YY) , YP (YY) ) =-1ТНЕМР (YY) = 

11 Y3=01 GOSUB1 4301 IFY2>6THEN1 23OELSEY3=01 

6080814501 ONY2GOTO1 250, 1500, 1520, 1240,15 

80, 1240 

2590 NEXT:RETURN 

2600 Е0В1=11Т011+9: РР=РР+Р (1) 1МЕХТ 


2610 605481969; 6054820501: IFR1 >OTHENM1 =1E. 


LSEM3=1 
2829 ONLN+1GOTO2630, 10, 2640 
2650 IFR1=1ANDPP=10THENR1=21 BOSUB2150: F0 
RI=OTO1999』NEXTIGOBUB2169』RETURNELSERETU 
RN 
2640 IFR さ =1ANDPP=16THENR さ =2』 808182150: FO 
В1«0701999: МЕХТі В08ИВ2 1 691 RETURNELBERETU 
RN 
2650 'mammam GAME OVER mummm 
2660 PUT0(69,50)-(91,54),E8,ORiPUT@(69,5 
7)-(91,61),E9,0R 
2670 K$=INKEY$: IFK$< >CHR% (13) THEN267@ 
2680 IFPL=1THEN275@ 
269@ PRINTCHRS (12) 』DUTB1 , 01 ONPLGOT02730, 
2720,2710, 2700 
2700 PUT@ (4, 74)- (40,78) , АВ, ОК: РОТ@ (48, 74 
) - (52,78) ,A4, ORIPUT@ (6, B0) - (155,96), 25,0 
R 
2710 PUT@(6,50)-(40,54) , AB, OR: PUTA (48,50 
) - (52,54) ‚АЗ, ORt PUTE(6, 56) - (153,72) ,Z2,0 
R 
2729 РШТ@ (6, 26) – (40,50) , AB, OR: PUTE(48, 26 
)-(52, 30) , A2, ОВ:РИТ@ (6, 52) - (155, 48) , Z1,0 
R 
2750 PUT@ (4, 2)- (40,6) , AB, ORIPUT@ (49, 2) - ( 
50,6) 。 A1, ORIPUTA (6,8) – (153, 24) , Z0, OR1WID 
THEO, 25 5 
2740 K%=INKEY%: IFK%< >CHRS (15) ТНЕМ2740 
2750 PRINTCHR$(12)』END 
2750 'WmmRR DIMENSION БЕНЕН 
2770 DEFINTA-E 
2780 DIMAQ(6),A1(1),02(2),A3(2),A4(2),A5 
(2) 。6(1) ,A7 (1) 。AB(11) „A9 (2) 
2790 DIMBO (18), B1 (4),В2(4),В5(10),В4 (11) 
В5(10),В6(11),87(10),88(11),В9(8) 
2800 БІМСІ(5),С2(5),С3(53),С4(5),С5(3),С6 
(5),С7(5),С8(5),С9(3) 
2810 DIMD0(1),D1(1),D2(1),D3(1),D4(1),D5 
(1),D6(1),D7(1),DB(1),D9(1) 
2820 DIME0(13),E1(13),E2(19),E3(3),E4(3) 
,E5(3),E6(3),E7(7),E8(8),E9(8) 
2850 DIMP (30) ,PX (30) , PY (30) „MX (30) , MY (30 
) , XP (30) , YP (30) , QQ (30) 
2840 DIMZO(147),Z1(147),Z2(147),Z3(147), 
14(147),25(147),26(147),27(147),28(147), 
19(147» 
2850 'mmmmm DATA ІМ mamam 
2860 FORI=ƏOTOé:READAQ(I):NEXT 
2870 ЕОК1-ОТ011КЕАрА1(1),686(1),А7(194МЕХ 
т 
2880 РОВ1=0ТО2: ВЕАРА2 (1) „A3 (1) , A4 (1), ASC 
1) iNEXT 
2899 FORI=OTO1 1ı READAS (1) 1 МЕХТ 
2900 FORI=OTOZ21READA? (1) 1 NEXT 
РОЯ 1=©ТО18: READBO (I) 』NEXT 
РОВ 1 =©ТО4: READB1 (1) , B2 (1) NEXT 
FORI=OTO10:READBS (1) , B5 (1) , B7 (1) :МЕ 


FORI=OTO111READB4 (1) , B6 (1), B8(1) NE 


piQ 


BOWLING- 2 BASIC リ スト 


2950 FORI=OTQBIREADB(』) 1 МЕХТ 

2950 РОВ1=©ТОЗ: ВЕАОС! (1),С2(1),С3(1),С4 ‹ 
1),С5(12,С6(1),С7(1),СӨ(1),СФСІЗіМЕХТ 
2979 FORI=ƏTOl1:READDO(I),D1(I),D2(I),D3( 
1),04(1),05(1),06(1),07(1),08(1),09(10аМ 
EXT 

2980 ҒОКІ=0ТО131 ВЕАРЕФ (1) ,Е1 (1) 1МЕХТ 
2990 FORI=OTO19: READEZ(I) 1МЕХТ 

3000 FORI= の TOS』 READE さ (1』) ,E4 (1) 。E5(1) 。E6( 
I) NEXT 

5010 FORI=OTO7』READE7(I)』NEXT 

3020 FORI=OTOB』READEB(I) , E9 (1) ı1 NEXT 

зезе FORI=1TOSO』 ВЕАОРХ , РУзРХ (1) =PXsPY (I) 
=PY:NEXT 

5040 FORI=1TO3@:READMX,MY:MX(I)=MX:MY(I) 
=MY: NEXT 

3050 FORI=1TO3@:READXP,YPiXP(I)=XP:YP (1) 
=YP: NEXT 

5050 FORI=1T030:P (1) «ӨіМЕХТ 

3070 FORI=1TO30: READOQ: QQ (1) =QQ: NEXT 
3@8@ RETURN 

3090 ° mE DATA M 

3100 РАТАВ5, -6191, 8558, 20310, -32054, 5202 
4,14 

3110 DATA10,15,15,-341,-28193,@ 

3120 РАТА25, 25,25, 32, 12844, -19922, -23220 
‚-2458, 497, 252,145, 28671 

3150 ОАТА175, -8115,-8580, -52117, 2600, 509 
@,-12752, -52015,9184,4758, 4476, 26097 
5140 ОАТА25, 51744,0 

3150 DATA2B6。771 , さ B4 さ 。 3084, 12,0, 3084, 123 
00,12336, 0, 0,12336, -16384, 192,0, 0, 192,0, 
3 

3160 DATA49, 49, -B420, 0, -1,0,29175,0,0,0 
3170 DATA145, 145, 145, 21391, -7281 , -7202,1 
6189, 16196, 16188, -21878, -30582, -23928, 15 
400, 15497, 14376, -2735, 20755, -2993, 8380, 8 
337, 10300, -30038, 12834, -29960, 14352, 1435 
4,1264, -24B6, 17486, -2479, 1,0,1 

3180 DATA175, 175, 175, 5006, -2082, -29798, -8 
b43, -11976, -8323, -23921 , -30705, 8715, 2600 
26760,2178, 4162, 17282, 598%, -28859, -1530 
©,-15543, -23821 , 8432, -23821 , 10792, 8354, B 
328, -8032, -5942, -7550 , 20024, -26352, 1081, 
31990, -749, -6671 

3190 DATA115, -7279,-29191, 16904, 14405,67 
50,6176, -12487,3 

3200 DATA42, 42,42, 42,42, 42,42, 42,42, -320 
00,1920, 1920, 7344, 10112, 10112, 1920, 10112 
, 10112, 2080, -32135, -28551 , 4217, -28552, -2 
8040, 4161, -28039, -28551,2,7,7,4,7,7,4,7, 
7 

3210 РАТА!5,15,15,15,15,15,15,15,15,15,- 
1169, 7363, -3097, -1561 , -13843, -1585, -1073 
, 18727, -1041 , -1553 

3220 ОАТА205, 205,911,21591,-29128, 19973, 
-25965, -23580, -50712,2728,-50558, 10632, - 
16068, 20796, 17639, 4117, 2321 , -28843, B226, 
10914,8842,-19936, 14554, 14584, -7296, -619 
6, 1080, 7748 

3250 DATA295。 5022, -32443, 14835,3150, 1165 
6,8714, -30590, 17518, 20820, 4368, 21572, 873 
7,-32118, 8335, -862, -28560, 17907 , -7292, 68 
3240 DATA42, 42, 42, 42, -799,-29644, 10112, 0 
,-1,-17181,-28056,120,-484,-1,7,0 

5250 DATA100, 5843, 3276, 12559, -16192, 1306 
8, 3843,12 

3260 DATA115, 115, 5022, -2994, 8445, 10429, 1 
7114, 25098, 21785, 15636, -1489, 21039, -8030 
‚-7550,-11965, 24336,7, 6 

3270 DATA26, 27, 25, 25, 33,25, 24, 23, 32,23, 4 
@,23,23,21,31,21,39,21,47,21 

5280 ОАТА78,27,74,25,82,25,70,25,78,25,8 
4, 23,66, 21,74, 21,82,21, 90,1 

3290 DATA130,27,123,25,131, 25,1164, 25, 1294 
,25,152,25,109,21,117,21,125,21,133,21 
3300 DATA2B。 14,24,11,52,11,20,8,28, В, 56, 
8,16,5,24,5,52,5,40,5 

5510 ОАТА?9, 14,75, 11,85, 11,71,8, 79,8, 67, 
8,7,5,75,5,85,5,91,5 

5520 DATA130,14,126,11,134,11, 122,8, 130, 
8,158,8,118,5,125,5,134,5,142,5 

5530 DATAZ6, 28,25,26, 33, 26,24, 24,32,24, 4 
0, 24,23,22, 31,22, 59,22, 47,22 

5540 DATA7B。 28,74, 25,82,24,70,24,78,24,8 
8,24,66,22,74,22,82,22,90,22 

5550 ПАТА130, 28, 123,26, 131,26, 116,24,124 
124,132,24, 109,22, 117,22, 125,22, 133,22 
3560 DATA.82,.74,1,.67,.91,1.15,.6,.83,1 
.06,1.29,0,0,0,0,0,0,0,0,0,0 
54,-1.05;-.81,-.57,-1.19,-.96, 
3370 RESTORE337@:RETURN:DATA43,3,6,22,38 
‚2,5,24,55,1,1,26,27,0,0,28,25,1,1,26, 20 
,2,3,24,18,5,6,22 

5580 RESTORESSSOIRETURN: DATA132, 3, 6, 22,1 
30,2,5,24,127,1,1,26,125,0,0,28,118,1,1, 
26,115,2,5,24,106,3,6,22 
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ная 


PC-8801 を 購入 し て 約 半年 に な り ま す . 
この 間 , 種々 の 市 販 ゲ ー ム ソフ ト を 買っ た 
у, 雑誌 に 載っ て いる ゲー ム プ ログ ラム を 
入力 し た り し て ,。 ゲー ム を 楽し み ま し た が , 
現実 に は PC-8801 専 用 の ソフ ト や プロ グラ 
ム は 数 少な く , どう し て も PC-8801 を N-BA 
SIC モ ー ド て 使う 場合 の 方 が 多く な っ て し 
まい ます . 

これ で は せっ か く の PC-8801 独 自 の 機能 

(特に , 美しい カラ ー グ ラフ ィ ッ クス ) を 
充分 に 生か すこ と が で きま せん . それ な ら 
ば と 自分 で 制作 し て みた の が , この ベー ス 
ボー ル ・ ゲ ー ム で す . 

この よう な 理由 で 作っ た ゲー ム な の て で 
ぜひ カラ 二 モ ニタ で 楽 じ ん で くだ さい な 
Б, この ゲー ム は 2 人 用 で す . 


法 じ ゲー ム の 説明 


スガ 


まず 。 リ スト まだ は テー プ ' か ら プ ブロ グラ 
ム を 入力 し ます . リス ト か ら の 場合 , か な 
り 長 い プ ログ ラム な の で , 入力 ミス の な い 
よう に 気 を つけ て くだ さい . テー プ ' か ら の 
入力 は LOAD “CASI : BASE” で 行ない , 
入力 に は 約 4 分 半 か か り ま す . 

入力 が 終了 し た ら RUN で 実行 きせ ます . 
まず , タイ トル が 出 て キー 操作 説明 と チー 
っ 名 入力 の 後 野球 場 の 画面 が 描か れ ま す . 
これ が 終わ る と , いよ いよ プレ イボ ー ル に 
な り ま す . 

キー に よる 入力 は , チー ム 名 の 入力 を 除 
き 。 す べ て キャ ピタ ル ・ キ ー を 使っ て くだ 
8, ピッ チャ ー の 投球 に は 2 つの キー を 
使い ます 。 まず , [ター[ 引 で ュー ス を 選び , 
次 に 一 [|] で 球 種 を 選ん で くだ さい . 外野 
手 の 移動 は [4],[e@] で , バッ ター の スイ ング 


4 対 3 で PiO チ ー ム が リー ド 


5 ーー 


13 [В] CU 3 時 ラ ン ナ ー の タッ チア ッ プ は [T 
で それ ぞ れ 行ない ます . 

試合 中 に は 両 応援 団 の 応援 合戦 も あり ま 
+. 試合 は 9 回 まで で , 試合 が 終了 する と 
ゲー ム ・ セ キッ ト の 表示 と 勝ち チー ム の 表示 
Dik, 負け た チー ム の 応援 旗 は 降ろ きれ て 
EE AE 

50, エラ ー。 ダブ ル ・ プ レー。 Ша 
な どの 楽し い 要 素 も 含ま れ て いま す . また , 
内 野手 の 送球 も 見 も の で す . 


プロ グラ ム の 説明 


本 プロ グラ ム は オー ル BASIC で 書か れ て 
いま す . プ ログ ラム 中 に は 多数 の REM 廊 を 


使っ て お り . ま た ., 変 数 名 や ラベ ル 名 は 長く 
な る の を 承知 の 上 で わか りや すい 名 前 を 使 
っ て いま す . その た め プ ログ ラム の 解析 は 
楽 だ と 思い ます . 行 番号 と その 内 容 は 大 き 
く 分 ける と 以下 の と お り で す . 


100--520 タイ トル と キー 操作 説明 
1000—1110 | チー ム 名 の 入力 
1500—2700 | 野球 場 の 画面 
3000—9250 | ゲー ム ・ ル ー チ ン 

10000- 12270 | サブ ルー チン ・ エ リア 
20000-21030| デー タ ・ エ リア 


主 な 変数 名 と その 内 容 を 表 1 に, サブ ル 
ー チ ン の ラベ ル 名 と その 内 容 を 表 2 に 示し 
37; 


ЖІ 主 な 変数 と その 内 容 


РТЕАМ $ 
ВТЕАМ $ 
CATCHER 0% 
РІТСНЕВ 0 % 
ВАТТЕН0% 
FIELDER 0% 
FFLDRUN 0 % А 
SFLDRUN 0 % р 28k 
TFLDRUN 0 % BEE 
HRUNNER 0 % - жа 
BALL 0 % 
CATCHER 1 % 
FIELDER 1 % 野 手 
BATTER | %-ВАТТЕН4% | バッ ター 
PITCHER 1 % ビッ チャ ー 
BALL 1% Яя 一 ル 
| PFLAG 1 22, PFLAG 2 % 
BFLAG 1 %, BFLAG 2% 


INNING 


Ж (в) 


ー18 の 値 を と る . 


BALLX、 BALLY 
BALLANGLE 
MAXBALLDIST 
FRUNNER 
SRUNNER ` 
TRUNNER ; зак ” 
HRUNNER жак ” 


打球 の 角度 
打球 の 距離 


28k ” 


FRUNNER 0 


Ж (P) の チー ム 名 
W (в) の チー ム 名 
キャ ッ チ ャ ー が いな い 場 合 の グラ ンド 背景 の グラ フィ ッ ク ・ バ パターン 


| ボー ル の X, Y 座標 


1 左上 の 野手 , ランナー が いな い 場 合 の グラ ンド 背景 の グラ フィ ッ ク ・ バ ター ン 


ボー ル が な い 場 合 の グラ ンド 背景 の グラ フィ ッ ク ・ バ ター ン 
キャ ッ チ ャ ー の グラ フィ ッ ク ・ パ ター ン 


Ж (P) の 旗 の グ ゲラ フィック ・ バ ター ン 


п 


1 回 の 表 , 裏 を それ ぞ れ 1 イニ ング と し た と き の 回 数 で 1 試合 9 回 表 , 裏 で 1 


1 塁 上 に ラン ナー が いる と き 1, いな いと き 0 の 値 を と る 


打球 処理 の 際 , 次 に 1 塁 に ラン ナー が 進む と き 1 , そ う で な いと き 0 の 値 を と る 


HIT ヒッ ト の 種類 (1… シ ング ル , 2… 2 ペース, 3… 3 ベー ス , 4 … ホ ー ム ラン ) 


CATCH 
9… ラ イト ) 

INFOM $ 

FLAG $ 

Сі, CD, CO 

РІ-Р4 


カラ ー 指 定 の 変数 


捕 球 し た 野球 の 種類 (1-18, 3-38, 7-07 F, 8… セ ンタ ー, 


スコ アボ ー ド に 表示 する イン フォ メー ショ ン 
族 を 振る チー ム (P… 紫 , В.) 


グラ フィ ッ ク 画 面 上 の 座標 。 変数 


と PC-6001 で EXEC &H1B4B を 実行 する と 。 カセ ッ ト の モー ター が 動く . EXEC &HIB49 を 実行 する に カモ ッ ト の モー ター が 止ま り ま す . 


(必殺 仕事 な めく じ ) 


kus 
] 
| 


表 2 サブ ルー チン の ラベ ル 名 と その 内 容 
| 時 間 を お く ル ー プ ・ ル ー 


チン 


グラ フィ ッ ク 画 面 を 描く た め の ル ー チ ン 


スト ライ ク , ボー ル , アウ トカ ウン ト を スコ ア ・ ボ ー ド に 表示 する ルー チン 
イン フォ メー ショ ン を スコ ア ・ ボ ー ド に 表示 する ルー チン 


応援 団 の 旗 振り ルー チン 


スコ アボ ー ド に 得点 を 表示 する ルー チン . ホー ム ・ ベ ー ス に 戻っ た ラン ナー も 


表示 
1. 2, 
チェ ンジ の ルー チン 
外野 手 の 移動 ルー チン 


3 左上 の ラン ナー を 表示 する ルー チン 


移動 し た 外野 手 を 初期 位置 に 戻す ルー チン 
ベー ス 上 を ラン ナー が 移動 する ルー チン 
1 還 上 の 内 野手 を 描く ルー チン 


28 
32 


盗塁 の 処理 を 行なう ルー チン 


内 野手 の 送球 を 描く ルー 


O HHHH 244 44444444 444444 ы AAJ 

29 "ж 

30 '* 

40 '+ 

5”. 

69 '+ 

61 '+ 

62 "ж 

70 "иекте кк кк кы 

100 "жена как ТАРЫ К セリ メイ жы. 

22222444 

110 FOR 1-0 ТО 7:COLOR=(I,I):NEXT I:WIDT 

H 40, 25: CONSOLE 0, 25,0, 1: SCREEN 0,0:С15 

3 

111 GOSUB *SOUND2 

112 LOCATE 8, 5: СОБОР 1:PRINT" è 

660060609090 "11 ОСАТЕ 8,6:PRINT 

ATE 29,6іРКІМТ"ФФФ" 

115 LOCATE 8,7:COLOR 1:РКІМТ"ФФ "s: COL 

"у: COLOR 1:PR 

INT" @@";LOCATE 20,151COLOR 4:PRINT"by"J 

СООК é:PRINT" 657 ルミコ" 

114 LOCATE 8,8:COLOR 1iPRINT"eee"aLUCATE 
29,8: РКІМТ"ФФФ"11 ОСАТЕ В, 9: РАТМТ" ФФФ%Ф%Ф 

【 ス ユエ メメ スエ ユエ エバ メメ バエ ナメ 2 

115 LOCATE 9,23:COLOR 21PRINT" [上 リターン] キー 

уе 29-b uga" . 

116 А®=ТМКЕУ®: ТЕ АФ=СНКФ (15) THEN 117 EL 

БЕ LOCATE 9,23:PRINT 5РС (21) : ВОТО 115 

117 8050В *SOUND1: LOCATE 9,25: РАТМТ SPC( 

21):FOR LOOP=© ТО 5001: МЕХТ LOOP:CLS 1 

119 GOSUB *SOUND1 

120 COLOR 6:1 ОСАТЕ 11,0:PRINT"99 マモ リノ + 

= У97 ww"'sCOLOR 5 

150 PRINT" m~ ص‎ 
=ч” 

140 PRINT" 
19 n° 4n72" 

15@ PRINT" ' Wasa 4 
m 

160 PRINT" t* wsr- 4 r ey p= 

2“ 

170 PRINT" ' 
トー スロ ー ホ "ーー ル " 

180 PRINT" 1 

2" 

190 PRINT" 

уак” 

200 PRINT" 


っ" 


210 PRINT" 
+ーー ソ ゅ キュ ウ “ 
220 PRINT" 
2" 


=з 77-4 
Бу Е97 А2 


1985292108 


OR さ 』PRINT "ベー ス ホ ーー ル 7-4 


コー スーー !7 9477 18 マン ナカ 


паа 
[ер кы > 
№3934 カーフ" スト レー ト Р 
1 rm шы س‎ 


ーー レッ ーー ニー て) 


250 PRINT" 


э" 


テン 


240 PRINT" 4Т7Уу3 14 ビーー で セリ № 
== 
250 РКІМТ" 
зн 
260 PRINT 
270 COLOR 6』LOCATE 19,15:РАТМТ"®® 29777 
7 キー уот ww'aCOLOR 4 
280 PRINT" 
299 PRINT" NT w2ー 

し て ピア 
399 PRINT" 
519 PRINT" 
520 PRINT" ラン ナー 
ETO" 
550 PRINT" 
500 LOCATE 10, 23ICOLOR 24PRINT"EB] +- 7" 
t スス ミ マ スリ " 
510 A$=INKEY$: IF A$="S" THEN 520 ELSE LO 
САТЕ 19,2 さ 』FRINT 6РС(19):8070 500 
520 GOSUB *SOUND1:LOCATE 10, 23:PRINT SPC 
(19) FOR LOOP= ТО 50ді МЕХТ LUOPICLB 1 
1000 "жининин ннн チ ー ム メイ ノ 239087 жж 
22552211122 
1040 GOSUB *SOUND1:LOCATE 8,4:COLOR 51:1“ 
PUT" で ソコ ウ *-¿ N "УРТЕЙАМ®: РТЕАМ® =ГЕРТ® (PTE 
Ам, 4) 
1050 LOCATE 8,7:COLOR біРБІМТ РТЕАМӨ):С0О 
LDR SiPRINT" サン N"$f1COLOR ЗірРКІМТ" 02276" 
ııCOLOR SIPRINT" / ユニ フォ ー ム 774" 
1060 GOSUB *SOUND1:LOCATE 8,13: INPUT "コウ コ 
9 9-4 ñ "$ BTEAMS: ВТЕАМ® еі ЕҒТ9 (ВТЕАМ9, 4) 
1970 LOCATE 8,16:COLOR бІРКІМТ ВТЕАМФ::С 
OLOR SiPRINT" 9:5 "Ji COLOR 1зРБКІМТ" 74" 
WaCOLOR ЗіІРКІМТ" / 227-4 F2" 
1080 LOCATE 6,2 さ 』COLOR 21РКІМТ "217° 
“АЛ” (CY OF 693) フリ 
1100 A$=INKEY$: IF А%="Ү" THEN 1110 ELSE 
IF A$="N" THEN GOSUB *SOUND1:CLS 1:GOTO 
1000 ELSE LOCATE 6,2 さ 』PRINT SPC (28) : GOTO 

1080 

1119 GOSUB *SOUND1:LOCATE 6』2 さ 』PRINT SPC 
(28) :FOR LDOP=O ТО 500:МЕХТ LOOPICLS 1 
1500 "жининин PPID“ а? / カカ "メン жж 
222222222224 
1505 "ТФіоу”аз / カー メン 1 (уул?) 
1510 LINE(9,9) - (659, 199) ‚4, ВРАНТОТН 80,2 
SıLOCATE 43,3:COLOR 71PRINT" ス コレ マッ テ ネ !" 
1520 "スコ アホ "ーー ト ^ 
1550 LINE(200,0)-(200, 32) ‚ OsLINE(440, ©)- 
(449, さ 2) , 9 
1550 "アナ ウン サー К カメ ラマ ン ノ 793 
1560 СІНСІ.Е(29,176),7,9іСІКСІЕ(119,176), 
7,0:СІБСІЕ(010,178),7,9 
1600 "ソノ クタ 
1610 C1=0: RESTORE 201001 GOSUB *DRAW1 
1790 'pPfÍa92U 8? / カー メン 2 (リン カフ ノ ナカ 7 RY 


レー . 


に つゆ 


44.7 


この ゲー ム で は エラ ー, Ш, ホー ムラ 
м, ヒッ ト の 種類 , 投球 の 変化 , 打球 の 角 
度 や 距離 . 外野 手 の 移動 , 内 野手 の 捕 球 と 
送球 な ど , さる ま ざま な 要素 が か ら み 合っ て 
ゲー ム を 面白 くし て いま す . 

これ ら の 要素 は , まっ た く の 乱 数 で 決定 さ 
れる も の か ら , 種々 の 状況 を 考慮 し た 計算 
結果 に より 決定 され る も の まで 複雑 で す . 
前 述 し た よう に 本 プロ グラ ム の 解析 は , 
か な りや きる し いと 思い ます . 上 の よう な 要 
素 を 変更 する こと に より 自分 な が なり の ベー ス 
ボー ル ・ ゲ ー ム を 作っ て みる の も 面白 いと 


с?т. BO 
6 対 5 で PiO チ ー ム の さよ な ら 勝 ち 


AT 
C1=5: C2=0: RESTORE 20300: GOSUB *PAIN 


・ ペ リコ フ * ター 
РАІМТ(109,19),6,91С1-21КЕ8ТОКЕ 2055 

Ф: GOSUB *PAINT3 

1890 "7% 

1810 ТИ Е%=СНА$ (&HAA) +CHRS (&HAA) +CHR$ (&H 
AA) 1 TILE$=TILE$+CHR% (&H5S) +CHR$ (&H55) +CH 
R$ (&H55) 

1820 C1=@:RESTORE 20400: GOSUB жРАІМТІ 
1850 C1=1:RESTORE 20410: GOSUB *PAINT3 
1840 С!=4:ВЕЗТОВЕ 20420:GOSUB *PAINT3 
1859 C1=3:RESTORE 20430: GOSUB *PAINT3 
1869 C1=6: RESTORE 20440: GOSUB *PAINT3 
1990 "スコ アホ "ー ト ~ 

1919 LINE (201,0)-(439, 31), 7, BILINE (214,0 
)-(452,24),7,В 

1915 TILE%=CHR% (НО) +CHRS (&HAA) +CHRS (НА 
A): TILE%$=TILE%+CHR% (НО) +CHRS (&Н55) +CHR$ 
(&H55) 

1920 РАІМТ(220,12),Т11Е%,7:РАІМТ(520, 28) 
,9,7 

1930 FOR 1=8 ТО 16 STEP B:LINE(214,1)-(4 
52,1),71МЕХТ 1:ҒОН 1=248 ТО 592 STEP 161 

КІМЕ(1,9)-(1,24),71МЕХТ I 

1940 COLOR 5:10САТЕ 27,0:PRINT"TEAM 1 2 
24567 в тота" 

1950 COLOR 3:LOCATE 31-LEN(PTEAM%),1:PRI 

МТ PTEAM%:COLOR 1110САТЕ さ 1-LEN(BTEAN) 
21PRINT ВТЕАМ9 

1960 LOCATE 27, さ 』COLOR 61PRINT"B"jiCOLOR 
7:PRINT"t "LOCATE 32,3:COLOR 4:РАТМТ"В* 
SiCOLOR 7:РА1МТ": "LOCATE 38,3:COLOR 2:Р 

RINT"O"j:COLOR 7:PRINT"i" 

2000 "カフ キャ グセ 

2019 TILEW=CHR$(&HCO) +CHR% (&HSF ) +CHR$ (ЫН 
3): TILE$=TILE$+CHR$ (kH3) +СНА® (ЕНЕС) +CHR 
$ (HCC) 』TILEW=TILE$+CHRW(&HC) +CHRS (&НЕЗ) 
+СНВ® (&H さ さ ) 』 TILE$=TILE$+CHR$ (&Н5О) +CHRS ( 
&HCF) +CHRS (kHCC) 

2020 C1=0ı RESTORE 20500:GOSUB *PAINTI 

2050 TILE%=CHR% (&HCO) +CHRS (&HSF ) +CHR$ (LH 

33): TILE%$=TILE%+CHR% (&H3O) +CHRS (&HCF) «СН 

RW (&HCC) 1 TILE*$=TILE$+CHR% (kHC) +CHRS (kHF 3 
) +CHR9 (&H さ く ) 1 TILE$=TILE$+CHR% (kH3) +CHR% ( 

&HFC) +CHR% (&НСС) 

2040 С1=0:КЕВТОКЕ 205101 GOSUB wPAINT1 
2100 "フェ ンス 

2119 TILEW=CHR$(&HCC) +CHR% (УНО) +CHRS (&H3 
3) 』 TILES=TILES+CHRS (НУУ) +CHR$ (НӨ) +CHR$ 
(&HCC) 

2120 РАІМТ(220,40),ТІЕ%,0 

2150 C1=0:RESTORE 29550:GOSUB wDRAM1 

2200 "747 T IIIN К ファ ウ M ソ ツー フン 


49 


p. eN 


piO 


ベー ス ボ ー ル ゲー ム BASIC リ スト 


2210 TILE*$=CHR$ (&HO) +CHRS (ЫНАА) +CHRS (&HO 
) ITILE$=TILE$+CHR$(&HO ) +CHRS (&Н55 ) +СНА® ( 


3460 PUT (292, 168) , ВАТТЕКОХ , РЅЕТ 
5470 CIRCLE (504, 170), 2,6:РАІМТ (304,170), 
6,6:С1=СО; RESTORE 20990: GOSUB #DRAWI:PAI 
МТ (304, 174) , СО, СО: ІМЕ (292, 168) - (299,172 
) 。6』 GET (292,148) - (328, 189), ВАТТЕК1% 

5480 PUT (292, 168) ‚ ВАТТЕВОХ, РБЕТ 

5490 CIRCLE (3504, 170) ‚2,6: РАПМТ (504, 170), 
6,6іСі-СОі RESTORE 209901: GOSUB *DRAWI1:PAI 
МТ (504, 174) ‚СО, COIL INE (507,172) - (312, 179 
), 61 СЕТ (292, 168) - (328, 180), BATTER2X 

5500 PUT (292, 168) , BATTEROX。PSET 

5510 CIRCLE (504,170), 2,6:РАІМТ (504,170), 
6,6:С1=С0: RESTORE 20990: GOSUB *DRAW1:PAI 
NT (304, 174) ‚СО, COr LINE (307,172) - (328,172 
) 6: GET (292, 168) - (528, 180) 。 BATTERS 

5520 PUT (292, 1 6 日 ) , BATTEROX。 PSET 

5550 CIRCLE (504, 179) ‚2, 6: PAINT (304,170), 
6,6:С1=СО: RESTORE 209901: BOSUB #DRAW1 1 РАІ 
NT (304,174) , CO, COı LINE (307,172)- (510,168 
) 6: GET (292, 168) - (528, 180), BATTER4X 

$550 °1 yp ノ ルー チン 

3560 ‘NAF / eur 

3570 «МЕХТВАТТЕН 

3575 IF ІММІМӨ«18 AND BTOTALSCORE >PTOTAL 
SCORE THEN *GAMESET 

3580 IF OUTCOUNT=3 THEN GOSUB #CHANGE ı GO 
SUB *DISPSCDRE : OUTCOUNT=O: STRIKECOUNT =O: 
BALLCOUNT=©: GOSUB #D1I SPCOUNT: GOTO 9000 
3590 HRUNNER=0: STRIKECOUNT =ð: BALLCOUNT=@ 
+ GOSUB *DISPCOUNT 


2 С1=@:РЕЗТОРЕ 20700: ВОЗЫВ #PAINTI 
IIR Fy FANS 

C1=7ıRESTORE 207501 GOSUB *DRAW1 
C1=71C2=71RESTORE 207601 8080В #PAIN 


"アナウンサー К カメラ マン К YII к マイ フト h25 
Сі-діС2«0і RESTORE 20800: GOSUB wPAIN 


PAINT (30, 190) ‚2, О; РАПМТ (116, 190) ‚5, 
の PAINT (610, 190) „6, 01°’ 4922 

2340 С1=6:С2=0: RESTORE 20810: ВОЗИВ wPAIN 
T2』 97E 

2550 С1=7:С2=0:КЕЗТОКЕ 29829: GOSUB *PAIN 
T2i'na5 

2360 Cl=3:RESTORE 20830, GOSUB *DRAMW1:'UM 
K 


2579 Cl=1:RESTORE 208401 GOSUB wDRAM1i"NH 
K 

2500 °Т?Ф270" в? / カー メン $ 
2510 “лотуту / リグ 

2520 DIM PFLAG0X(192),FFLAG1Z(192),PFLAG 
2%(192) , BFLAGOZ (192) , BFLAB1X(192) , BFLAG2 
% (192) 

2550 Cl=@:RESTORE 20900: GOSUB *DRAW1 
2540 С1=6:С2=0: RESTORE 209101 GOSUB *PAIN 
T2 

2550 GET (553, 24 ) - (600, 44) , PFLAGOX: БЕТ (25 


(лхо ソウ 9 ヨウ ) 


.28)-(72,48), 。BFLAGOX 3600 "オナ リー の" シャ 
2560 Cl=@:RESTORE 20920: GOSUB *DRAM1 3605 wSAMEBATTER 
2570 РАІМТ(580,20),5,0:РАІ1МТ(49,49),1,0 5610 "ヒッ チャ ー / уат? 1492 


2580 GET (553, 24) - (600, 44) ,PFLAG1 %1 GET (25 
„ 28) - (72,48) , BFLAB1% 

2590 PUT (553, 24) ,PFLAGOX, PBET iPUT (25, 28) 
» BFLAGOX, PSET 

2600 Cl=@:RESTORE 209301 GOSUB *DRAW1 
2610 РАІМТ(580,20),5,0іРА|ІМТ(40,40),1,0 
2820 GET(553,24)-(600,44),PFLAG2X:GET (25 
„ 28) – (72,48) , BFLAB2X 

2700 LOCATE 43, SIPRINT SPC(11) 

3000 "жака кк 77-2 ルー チー жиекке 
2522224 

5010 "ショ キ セ ッ チイ 

5015 FO=VAL (LEFTS (TIMES, 2) ) +VAL (MIDS (TIM 
Е%,4,2)) +VAL (RIGHTS (TIMES, 2) ) : RANDOMIZE 
Fo 

5020 DIM SCORE (18) 

3030 DIM CATCHERGX( さ 6) , САТСНЕК17 (56) ,FIE 
LDEROZ4 (61) 。FIELDER1X(61 ) 。FFLDRUNOX(61 ) ,8 
FLDRUNO (61) ,TFLDRUNOX (61) 。HRUNNERGX (61) 
5040 DIM BATTEROX(199) , BATTER1% (100) „ВАТ 
ТЕВ2% (100) , BATTER さ ん ( 199) 。 ВАТТЕК4%(100) 
3050 DIM PITCHEROX(75) 。PITCHER1X(75) 。 BAL 
LOX (6) , BALL1% (6) 

5060 PTUTALSCORE=9』 ВТОТАЕЗСОКЕ=© 

5970 GET(312, 182) - (327, 192) ,。CATCHEROX』 ВЕ 
T(460, 110) - (476, 122) ,F IELDEROX 

3080 GET (444, 128) - (460,140) ,FFLDRUNOX: ВЕ 
T (312,90) - (528,102) , SFLDRUNOZ: GET (180,12 
8) - (196,140) 。TFLDRUNGX 

5090 GET (292,18) – (528,180) , BATTEROX: ВЕТ 
(312,111) - (328, 126) 。PITCHER の X 

5100 ВЕТ (512,14) - (328, 176) , HRUNNEROX 
5200 "1/2 4127" / қ-%у 

5210 FOR INNING=1 TO 18 

3212 IF INNING=18 AND BTOTALSCORE>PTOTAL 
SCORE THEN COLOR 1』LOCATE 48,2iPRINT"x"I 
GOTO *GAMESET 

5215 GOSUB *TIMING:GOSUB #TIMING:GOSUB ж 
SOUNDZ 

3220 OUTCOUNT=01 SCORE ( INNING) «Өл FRUNNER= 
©: SRUNNER=0: TRUNNER=@: GOSUB *DISPRUNNER 
3230 LOCATE 26,2-((INNING-1) MOD 2):PRIN 
T" “і(ОСАТЕ 26,2-(INNING MOD 2):COLOR 5: 
PRINT"e@" 

5240 IF (INNING MOD 2)=1 THEN CO=3:CD=1 
CO=1:CD=3 

ФРУ / уат ハイ チ 

PUT (312, 182) , САТСНЕКОХ , PSET 

CIRCLE (320, 184) ,2,0: PAINT ($20, 184), 


3615 PUT (312, 111), Р1ТСНЕА1%, РЗЕТЕРОТ (512 
‚ 125) , BALL1%, PSET 

3825 ‘Nn / ショ キハ イチ 

3630 PUT (292, 168) , BATTER1%, PSET 

3750 "ハラ フ リ 

5760 IF OUTCOUNT=@ AND BTRIKECOUNT=G AND 
BALLCOUNT=O АМО FRUNNER= の AND SRUNNER=@ 
АМО TRUNNER=O AND SCORE (INNING) =@ THEN 
3785 ELSE 5800 

3765 IF (INNING MOD 63-1 THEN 3770 ELSE 
IF (INNING MOD 6)=2 THEN 3790 ELSE 3800 
3770 LOCATE 43, 3: COLOR 7:РАІМТ"Л" NTL "J 
COLOR さ :PRINT PTEAMS: FLAGS="P": GOSUB #F 
LAGMOVE:GOSUB #TIMINGı LOCATE 45, 3: РКІМТ 
SPC (11) 1 LOCATE 45, SICOLOR 71PRINT" マ ケル ナ 
"$ COLOR 1:РАТМТ BTEAMS:FLAG$="B" 1 GOSUB 
*FLAGMOVE:GOSUB *TIMING: LOCATE 43,3:PRIN 
Т SPC(11): 

3780 IF INNING=1 THEN GOSUB #TIMING: GOSU 
В *TIMING:GOSUB #SOUND1 : LOCATE 43, 5: COLO 
R 7IPRINT" フ ッ レ ー ホ ーー も !! "160808 #TIMING: 608 
UB *TIMING:LOCATE 43,3:PRINT SPC(11):GOT 
0 5800 ELSE 5800 

5790 LOCATE 43,3:COLOR 7:РАІМТ"Л" о, "J 
s COLOR 11PRINT BTEAMS:FLAGS="B"1GOSUB жҒ 
LAGMOVE:GOSUB *TIMING:LOCATE 43, St РКІМТ 
ВРС (11) LOCATE 43,3:COLOR 7іРБІМТ"?787 
"$ COLOR さ IPRINT PTEAMS:FLAGS="P" s; GOSUB 
*FLABMOVE:GOSUB *TIMING:LOCATE 43,3:PRIN 
T SPC(11) 

3800 ”һ0Ф39 (に * ッ チャ ー) 

5805 GOSUB «SOUND1 

5810 COURBE$=INKEY$』IF COURSE$="7" THEN 
BALLX= さ 1 1 ELSE IF COURSE$="8" THEN BALLX 
= さ 19 ELSE IF СОМЯ5ЕФе"9" THEN BALLXm さ 27 
ELSE 5810 

5820 PUT(312, 111), Р1ТСНЕВФ%,РЗЕТ 

5850 CIRCLE (520, 116),2,6:РА1МТ (320,116), 
6, 61С1 =СО: RESTORE 210101 GOSUB *DRAW1:PAI 
NT (320, 120) , CD, CD: PUT (520, 111), BALL1%, PS 
ЕТ 

5840 ТҮРЕФ«ІМКЕҮӨі TYPE=VAL(TYPE%):IF TYP 
Е<1 ОК TYPE>6 THEN 5840 ELSE IF ТҮРЕ<4 Т 
НЕМ BALLSPEED=3 ELSE BALLSPEED=1.5 

5850 IF ТҮРЕ=1 DR TYPE=4 THEN BALLDIF=-1 
ELSE IF ТҮРЕ=2 OR ТУРЕ=5 THEN BALLDIF=@ 
ELSE BALLDIF=1 

5860 PUT(312, 111),PITCHEROZ, PSET 

5870 CIRCLE(320, 116),2,6:PAINT (320,116), 

6,61С1=СО: RESTORE 210201 GOSUB *DRAW1:PAI 
NT (320, 120) , CD, CD 

3900 "トウ キュ ウ (79) 

5905 ВАТТЕКМОЧЕ=е 

5910 FOR BALLY=127 ТО 181 STEP BALLSPEED 
3920 IF BALLY>163 THEN BALLX=BALLX+BALLD 
IF# (КМО (1) #5) #BALLSPEED/1.5 

3930 IF BALLX<307 THEN BALLX=3@7 ELSE IF 
BALLX>33@ THEN BALLX=33@ 

3940 IF BALLY=175 THEN IF BALLX>=31@ AND 
BALLX<=327 THEN JUDGE=1 ELSE JUDGE=@ 
395@ GET(BALLX,BALLY)-(BALLX+3,BALLY+1), 
BALLO%X:PUT (BALLX, BALLY) , BALL1%, PSET FOR 
100Р=@ ТО 26』NEXT LOOP:PUT(BALLX, BALLY), 
ВАШ ӘХ, PSET 

5960 ОМ ВАТТЕКМОУЕ GOTO 3980, 5990, 4000 
5970 ВАТТЕРМОУЕ® =1МКЕУ®: IF BATTERMOVE$=" 
В" THEN ВАТТЕВМОУЕ=1 : PUT (292, 168) , BATTER 
2%,РВЕТ ELSE 4000 

3975 IF BALLX>=311 AND BALLX く = さ 26 AND ВА 
LLY>=166 AND BALLY く m174 THEN 4500 ELSE 4 

eee 

5980 PUT (292, 148) , BATTER さ %。PSETI ВАТТЕВМО 

УЕ=2: GOTO 4000 

3999 PUT (292, 168) , ВАТТЕВАХ, РЗЕТ: ВАТТЕКМО 

VE= さ 


C1=CD:RESTORE 20940: GOSUB *DRAW1:iPA 
INT (320, 188) , CD, СО: ВЕТ (312, 182) - (527,192 
) , САТСНЕВ 1% 

3500 "туз / уат ы» 

5295 PUT (460,110) 。FIELDERGOX。 PSET 

5510 CIRCLE (468,112), 2,6:РАІМТ (468,112), 
5,6 

$520 Ci=CD: RESTORE 20950: GOSUB *DRAW1:PA 
INT (468, 116) ‚СО, СО: GET (460, 110) - (476,122 
),FIELDER1X 

5550 PUT(380,90),FIELDER1X,PSET:PUT(244, 
90) ‚ FIELDER1%, РЗЕТ: РОТ (164, 110) , FIELDER1 
4, РЗЕТ: РОТ (120, 68) , FIELDER1%, PSET: PUT (31 
2,54) 。FIELDER1X。PSET』 PUT (504, 6 日 ) 。FIELDER 
1%,РВЕТ 

5550 'Бебнур- / uvat NAF 1 

3560 РИТ (512,111) 。PITCHERGX。 PSET 

3370 СІКСІЕ(520,116),2,6:РА1ІМТ(2320,116), 
6,61C1=CD:RESTORE 21000: GOSUB *DRAW1:PAI 
NT(320,120),CD,CD:GET(312,111)- (328,126) 
.РІТСНЕК1% 

$380 FOR P1= さ 12 TO 315:FOR P2=123 ТО 124 
АРБЕТ(РІ,Р2),біМЕХТ P2。P1』BET( さ 12。12 く ) 一 ( 
315, 124), ВАШ іХ 
5450 "Ns クー / スプ トリ 


А (な る べく PC-6001mkII の を た くさ ん ) を 載せ て くだ さい . 


4000 NEXT BALLY 

4100 "キャ wm チャ ー / тті? 

4110 P】=BALLX-61IF (РІ MOD 2)=1 THEN Р1= 

Р1-1 

4120 PUT (312,182) , CATCHEROZ, PSET:t PUT (P1, 
182),CATCHER1X,PSETiGOSUB #TIMING: PUT (РІ 
»182),САТСНЕКӨ%,РВЕТ: PUT (512, 182) , CATCHE 

R1%,PSET 

4125 F7=RKND(1)』IF Ғ7<.2 AND FRUNNER=1 АМ 

D SRUNNER=@ AND STRIKECDUNT く 2 AND BALLCO 

UNT<3 THEN GOSUB *STEAL 

4127 IF OUTCOUNT=3 THEN PUT(292,168),BAT 

TEROX。 PSET』 GOTO *NEXTBATTER 

4150 IF BATTERMDVE=O AND JUDGE=O THEN ВА 

LLCUUNT=BALLCDUNT+ 1 : INFOM$=" 4" -4 ! " s GOSUB 
#DISPINFOM ELSE STRIKECOUNT=STRIKECOUNT 

+1: INFOM$= "スト ライ 42! "1: GOSUB *DISPINFOM 

4150 IF STRIKECOUNT<3 AND BALLCOUNT<4 ТН 

ЕМ GOSUB *DISFCOUNT:GOTO *SAMEBATTER 

4160 IF STRIKECOUNT=3 THEN DUTCDUNT=DUTC 

OUNT+1』 GOSUB wSUUND 1 』 ІМҒОМФ=" "7 アウ ト ! 

"1 GOSUB #DISPINFOMı PUT (292, 168) 。 BATTEROX 

„ PSETr GOTO wNEXTBATTER 

4170 IF BALLCOUNT=4 THEN GOSUB *SOUNDI:I 

NFOMS='" 787 ホーー ル ! "GODSUB #DISP INF OM: PUT (2 

92,168) , BATTER の OX。 PSET 

4180 IF FRUNNER=O THEN FRUNNER= 1 : GUSUB ж 

DISPRUNNER』 GOTO wNEXTBATTER 

4190 IF SRUNNER=O THEN SRUNNER=1』GOSUB * 

DISPRUNNER : GOTO wNEXTBATTER 

4200 IF TRUNNER= の THEN TRUNNER= 1 : GUSUB ж 

DISPRUNNER』 GOTO *NEXTBATTER 

4210 HRUNNER= 1 : GOSUB wDISPRUNNER』 GOSUB ж 

DISPSCORE : GOTO wNEXTBATTER 

4300 "クー キュ ウ ショ リ (NIM h Fa) 

4310 FOR SDUND=G ТО 1: ВЕЕР (1) : ВЕЕР (0) 』 МЕ 
XT SOUND 

4520 PUT (292,168) , BATTER さ XPSET 

4550 IF BALLY く 169 THEN Е1=-1 ELSE IF BAL 

LY く 172 THEN F1=O ELSE F1=1 

4540 IF BALLX く < さ 17 THEN F2=.5 ELSE IF BAL 

LX く 321 THEN F2=O ELSE Ғ2=-.5 

4550 F さ =F1+F2+BALLDIF。25』F さ =F さ / 。 251 BALL 

ANBLE=F さ *w 1 の +(15-RND( 1 ) * さ 9) 

4555 PUT (292, 168) , BATTER4%, PSET 

4550 IF ABS(BALLANGLE ) >68 THEN MAXBALLDI 

8Та%95:0070 4450 

4570 F4=RND(1): IF BALLSPEED=1.5 AND F4>= 
.975 THEN MAXBALLDIST=125: GOTO 4450 ELSE 
IF BALLSPEED=3 AND F4>=.967 THEN MAXBAL 

LDIST=125:60T0 4450 

4580 FS=.42wABB(BALLANBLE +47. 1 ёч. 45#A 

BS (BALLANGLE) +56. 5: MAXBALLDIST=F5+RND (1) 

*(F6é-F5):GOTO 4450 

4450 "2" キュ ウ уа) (99 / 23° 

4460 LFLDX=12@:LFLDY=é8:CFLDX=3S12:RFLDX= 

594: RFLDY=68: BALLSPEED1=4+2#RND (1) 

4470 FOR BALLDIST=@ TO MAXBALLDIST STEP 
BALLSPEED1 

4480 BALLX=BALLX+BALLSPEED1wSIN(BALLANGL 

E* さ 。14159/1BO) #4: BALLY=BALLY-BALLSPEED1 + 

COS (BALLANGLE* さ 。 14159/180) #2 

4490 IF INP (0) =&HBF THEN FLDDIFXm4iFLDDI 

FY=.75』 GUSUB *FIELDERMOVE 

4500 IF INP(O) =&HEF THEN FLDDIFX=-4』FLDD 
IFY=-.75:G0SUB *FIELDERMOVE 

4510 IF MAXBALLDIST=12Š THEN 4610 

4520 IF BALLX>=158 АМО BALLX く =1 昌 6 AND ВА 

LLY>=107 AND BALLY く =12S THEN «САТСНВҮЗ 
4550 IF BALLX>=23 日 AND BALLX く =266 АМО 

LLY>=B7 АМО BALLY く =1O5 THEN «САТСНВҮ4 
4540 IF BALLX>= さ 74 AND BQLLX く <=492 AND 

LLY>=B7 AND BALLY く =1O5 THEN «САТСНВҮ2 
4550 IF BALLX>=454 AND BALLX く <=4B2 АМО 
LLY>=107 AND BALLY く =125 THEN «САТСНВҮ1 
4550 IF BRLLX>=BO AND BALLX く <=1O4 AND BAL 
(Ү>-126 AND BALLY く <=142 THEN CATCH= さ 』 GOTO 
*FAULOUT 

4570 IF BALLX>=5 さ 6 AND BALLX<=56@ AND ВА 
LLY>=126 AND BALLY く m142 THEN CATCH=11BOT 
O *FAULOUT 

4580 IF BALLX>=LFLDX АМО BALLX く mLFLDX+16 
AND BALLY>=LFLDY АМО BALLY く <mLFLDY+12 ТН 
ЕМ CATCH=7』 GOTO «САТСНВҮІ СК 

4590 IF BALLX>=CFLDX AND BALLX<=CFLDX+16 
AND BALLY>=54 AND BALLY<=éé THEN CATCH= 
8:GOTO *CATCHBYLCR 

4600 IF BALLX>=RFLDX АМО BALLX<=RFLDX+16 
AND BALLY>=RFLDY АМО BALLY く <mRFLDY+12 TH 
EN CATCH=9: GOTO *CATCHBYLCR 

4610 IF BALLX>=@ AND BALLX く =6 さ 6 AND BALL 
Y>= の AND BALLY<=19H THEN 4660 

4620 ТЕ BALLX<O THEN IF BALLY<82 THEN HI 
T=4:GOTO #НІТАМОНОМЕКОМ ELSE #FAULSAFE 
4650 IF BALLX>6 さ 6 THEN IF BALLY<82 THEN 
HIT=41 GOTO #HITANDHOMERUN ELSE «ҒАШ БАҒЕ 
4640 IF BALLY く の THEN HIT=4:GOTO wHITANDH 
UMERUN 

4650 IF BALLY>198 THEN *FAULSAFE 

4660 GET(BALLX, BALLY) (BALLX+ さ 。 BALLY+1 ) 。 
ВАШ. ӨХ: PUT (BALLX。 BALLY) , BALL1%。PSETIFOR 
LOOP=@ ТО 551МЕХТ і ООР: PUT (BALLX, BALLY), 
BALLOX, PSET 

4670 NEXT BALLDIST 

4680 "ヒッ ト 7 Pw 

4690 IF MAXBALLDIST>(F6ー(F6-F5) /10) THEN 
Н1Те3 ELSE IF MAXBALLDIST>(F6-(F6é-F5)*3 
/10) THEN HIT=2 ELSE HIT=1 


BA 


BA 


BA 


ра жж) С БШ # Ж. 私 は 他社 の マイ コン 雑誌 の よう に , レベ ル の 低い 雑誌 に な っ て ほし く あ り ませ ん . 内 容 の ある , ゲー 


(ボツ で も が まん の お し ん だ まし ーー い ) 


4700 GOTO *HITANDHOMERUN 

4750 "ヒット / уау 

4760 #HITANDHOMERUN 

4770 IF HIT=4 THEN INFUM 和 = リー ムラ ン !!!" EL 

ЗЕ IF HIT= く THEN INFOM$="3 №49“ ELSE 
IF HIT=2 THEN ІМҒОМФ="2 8477 !!“ ELSE І 

NF OM 77% ЕК!" 

4775 GOSUB *SOUND1:GOSUB «DISPINFOM 

4780 FRUNNERO=1l:PUT(292,168),BATTEROZ,PS 

ET:GOSUB *BASERUNNING 

4800 IF HIT=1 THEN 4840 

4859 IF (INNING MOD 2)=1 THEN FLAGS="P"ı 

GOSUB *FLAGMOVE ELSE FLAG%$="B"s:GOSUB *FL 

AGMOVE 

4840 GOSUB жҒІЕІ ПЕНМОУЕФ: GOTO *NEXTBATTE 

в 

4900 "ファ ウル で セーフ 

4910 wFAULSAFE 

4920 GOSUB #SOUND1:INFOM$S=" 7774" 1 GOSUB ж 

DISPINFOM 

4930 IF STRIKECOUNT<2 THEN STRIKECOUNT=S 

TRIKECOUNT+1:GOSUB *DISPCOUNT 

4940 GOSUB *FIELDERMOVEQ:GOTO #SAMEBATTE 

R 

5000 "ファ ウル アウト 

5010 «ҒА ОПТ 

5020 IF CATCH=1 THEN P1=46O』P2=1 1 の 』P さ =54 

@.Р4= 1 251 INFUN$=" 1 ルイ 254" ELSE Pl=164:P2 

=110:Р5=84:Р4=1 25: ІМҒОМФ» "584 294" 

5030 PUT (P1,P2) ,FIELDEROZ, PSETIPUT (P3,P4 

),РІТСНЕК1%,РБЕТ 

5040 GOSUB *SOUND1:GOSUB «DISPINFOM 

5050 PUT (P3,P4) ,PITCHERO%, PSETIPUT (P1,P2 

),FIELDER1Z,PSET 

5040 OUTCOUNT=OUTCOUNT+ 11 PUT (292, 168) , BA 

TTEROX。 PSET』 GOSUB *FIELDERMOVEQ:GOTO «МЕ 

XTBATTER 

S100 "の" イヤ リュ / AM? 

5110 *CATCHBYLCR 

5115 F7=RND(1):IF Ғ7<.2 THEN *FIELDERERR 

OR 

5120 IF TRUNNER=1 AND OUTCOUNT< Z2 AND BAL 

LANGLE>=@ THEN #TOUCHUP 

5125 IF CATCH=7 THEN INFUN$m" レ フト 734" EL 

SE IF CATCH=B THEN INFUM$=" で ンタ ラー 224" ELS 

E INFDN@$=" ラ イト 254" 

5136 GOSUB #SOUND1:GOSUB «DISPINFOM 

5140 OUTCOUNT=OUTCOUNT+1 : PUT (292, 168) , BA 

TTEROZ, PSETı GOSUB #FIELDERMOVEO: GOTO *NE 

XTBATTER 

5145 ”74%747% 

5147 «ТОЦСНЦР 

5150 FOR LOOP=0 ТО 75: ñ%=INKEY%:IF ñ$="T 

" THEN 5155 ELSE NEXT LOOPs:GOTO 5125 

5155 HRUNNER=1: TRUNNER= の 1 GOSUB *DISPRUNN 

ER 

5160 GOSUB #SOUND1 з ІМҒОМФ-"74%742% 

GOSUB *DISPINFOM:GOSUB *DISPSCORE 

5200 OUTCOUNT=OUTCOUNT+1;PUT(292,168),BA 

TTEROX, PSET』 GOSUB *РТЕСОЕРМОУЕФ: GOTO *NE 

ХТВАТТЕВ 

5250 "カカ "イヤ シュ / エラ ー 

5260 *FIELDERERROR 

5270 GOSUB «SOUND1: INFUM$=" エ ラー 

В *DISPINFOM:F7=RND(1) 

5280 IF Ғ7<.8 THEN HIT=1:GOTO *HITANDHOM 

ERUN ELSE Н1Т=2: GOTO *HITANDHDMERUN 

5500 "747 794 

5510 wCATCHFLYBY 12 さ 4 

5520 GOSUB *SOUND1:GOSUB «DISPINFOM 

5550 OUTCOUNT=OUTCOUNT+1 : PUT (292, 168) , BA 

TTERO%, PSET』 GOSUB *#F IELDERMOVEO: GOTO «МЕ 

XTBATTER 

5400 "1%4 ЖФі? 

5410 «САТСНВҮ1 

5420 F7=RND(1):IF Ғ7<.5 THEN INFUM$=" 1 ルイ 
794" GOTO *CATCHFLYBY1234 

5430 PUT (292,168) , BATTER の OX , РВЕТ 

5440 GOSUB #SOUND1: ІМҒОМФ= "104 2° О" 10080 

В #DISPINFOM 

5450 IF OUTCOUNT<Z AND TRUNNER=1 AND SRU 

NNER=1 AND FRUNNER=1 THEN 5700 

5500 "1 ルイ 7-7 

5510 PUT (444,128) ,。FFLDRUN の OX ,PSET』 PUT (460 

110), ЕТЕСОЕЯ ОХ, PSET: GOSUB wDISPFFLDONBA 

SE 

5520 GOSUE *SOUND1』 1М70М8="1%4 アウト 

SUB *DISPINFON 

5550 PUT (444,128) ,FFLDRUNOZ,PSETı PUT (460 

„, 110), FIELDER1Z, РЗЕТ 

5542 OUTCOUNT=OUTCOUNT+1: IF OUTCOUNT=3 Т 

НЕМ GOSUB *F IELDERMOVEO: GOTO #NEXTBATTER 

5550 IF TRUNNER=O AND SRUNNER=1 THEN TRU 

NNER= 1 1 SRUNNER=@ 

5560 IF SRUNNER=ọ AND FRUNNER=1 THEN SRU 

NNER=1 

5570 FRUNNER= の O』 GOSUB *DISPRUNNER:GOSUB ж 

ҒІЕІ.ПЕКМОУЕФ: GOTO *NEXTBATTER 

5700 "ホフ ルイ ソウ キュ ウ 

5710 P1=452:P2=114:P3=519:P4=181:STP=23: 

GOSUB #THROWBALL 

5720 GOSUB wSDUUND1』INFUM@= "RNA 

OSUB «DISPINFOM 

5730 GOSUB *DISPRUNNER 

5740 OUTCOUNT=OUTCOUNT+ 1 1 GOSUB wFIELDERM 

OVEO: GOTO *NEXTBATTER 

6000 ”2%4 RPI 

6010 «САТСНВҮ2 


ape 


t! t! "r GOSU 


'"160 


To "e 


6020 F7=RND(1):IF Ғ7<.5 THEN ІМЕОМФ-"284 
734"1 GOTO *CATCHFLYBY1234 

6030 PUT (292, 168) , BATTEROX, PSET 

8040 GOSUB *SDUND1』 INFOMS=" 244 2" О": GOSU 
В *DISPINFOM 

6050 IF OUTCOUNT<2 АМО FRUNNER=1 THEN 63 
оо 

8100 "シン 2 ファ レー (184 YIN 

8119 PUT (444, 128) 。FFLDRUN の X。PSET』 PUT (460 
„, 110) 。FIELDEROX。PSET』 GOSUB wDIBPFFLDONBA 
SE 

6120 Рі-400:Р2«94:Р3-4261Р4-152:87Ре-10:0 
OSUB *THROWBALL 

6150 GOSUB #SOUND1 i INFOMS=" 144 アワ ウト 
SUB *DISPINFOM 

6140 PUT (444, 128) 。FFLDRUNOX。PSET』 PUT (460 
,110),ҒІЕ(ПЕБ1%,РВЕТ 

&15@ OUTCOUNT=OUTCOUNT+1』 IF OUTCOUNT=3 Т 
НЕМ GOSUB «FIELDERMOVEQ: GOTO *NEXTBATTER 
6160 FRUNNERO=0:HIT=1 s GOSUB *BASERUNNING 
1 GOSUB *FIELDERMOVEQ:GOTO *NEXTBATTER 
8500 ”7-2-% ファ レー (2ー1 ル イ У0%29) 

8519 PUT (312, 90) , SFLDRUN®X, PSET』 PUT (244, 
90) 。FIELDEROX。 РВЕТ: GOSUB wDIBPSFLDONBASE 
6320 P1= さ 721P2=941P さ = ささ 21P4=941BTP=5』 BOS 
UB *THROWBALL 

&33@ GOSUB #SOUND1 ı 1МЕОМ%="2%4 
SUB «DISPINFOM | 

8549 PUT (444, 128) ,FFLDRUNOZ, РВЕТЕРИТ (460 
, 110) F IELDERO%, РВЕТ: GOSUB *DISPFFLDONBA 
SE { 
8550 Рі-3321Р2-94:Р3-436:Р4е15218ТРе1618 
OSUB *THROWBALL 

5550 GOSUB *SOUND1 : INFOMS=" 104 
SUB *DISPINFOM 

&37@ PUT (312, 90) , SFLDRUNGX, PSET: PUT (244, 
90) , FIELDER1%, РЕТ 

6580 PUT (444, 128) ,FFLDRUNGX, РЗЕТЕРИТ (450 
,11@) ,ЕТЕСОЕВ1%, РЗЕТ 

8399 IF (INNING MOD 2)=1 THEN FLAG%="B'I 
GOSUB *FLAGMOVE ELSE FLAG$="P"» GOSUB *FL 
AGMOVE 

6400 OUTCOUNT=OUTCOUNT +2: IF OUTCOUNT=3 Т 
НЕМ GOSUB *FIELDERMOVEQ:GOTO *NEXTBATTER 
6410 FRUNNERO=0: FRUNNER=0:1HIT=1 1 GOSUB жВ 
ASERUNNING 

6420 GOSUB #FIELDERMOVEO:GOTO *NEXTBATTE 


"ава 


юк ! "160 


72 ! "1080 


R 

7000 "5%4 At? 

7010 «САТСНВҮЗ 

7020 F7=RND(1):IF Ғ7<.5 THEN INFUM を =" さ ルイ 
754 "160Т0 *CATCEHFLYBY 1234 

7930 PUT (292, 168) 。 BATTEROX。PSET 

7040 GOSUB *SOUND11 ІМҒОМФЯ"544 2" О" 1 GOSU 

В *DISPINFOM 

7050 IF OUTCOUNT<2 AND TRUNNER=1 AND SRU 

NNER=1 AND FRUNNER=1 THEN 7200 

7060 IF FRUNNER=1 AND SRUNNER=1 THEN 750 

° 

7109 "144 ソウ キュ ウ 

7110 PUT (444, 128) 。FFLDRUNOX PSET:PUT (460 
,11@) 。FIELDEROX。 PSET』 GOSUB *DISPFFLDONBA 
БЕ 

7129 PF1m1B4』P2=1141P さ =4 さ 6』P4=1 さ 218TP= さ 21 

GOBUB *THROMBALL 

7150 GOBUB wBOUND1i INFOMN$="18&4 アウ ト 

SUB *DISPINFOM 

7140 PUT (444, 128) ,。FFLDRUNOX。 PSET』 PUT (460 
, 110) ,FIELDER1%。PSET 

7150 OUTCOUNT=OUTCOUNT+1: IF OUTCOUNT=3 Т 
НЕМ GOSUB *#F IELDERMOVEO: GOTO *NEXTBATTER 
7160 IF SRUNNER=@ AND FRUNNER=1 THEN SRU 
NNER=1 

7170 FRUNNER=@i GUSUB #DISPRUNNER 

7180 GOSUB *FIELDERMOVEQ:UUTO *NEXTBATTE 
R 

7200 "ホーム ソウ キュ ウ 

7219 Р1=184:Р2-1 , 4: Р5=519:Р4=191: ЗТР=25: 
бОЗУВ *IlisOWBALL 

7229 LUSUB #SOUND1:INFOM$=" #44 アウ ト 
OSUB *DISPINFOM 

7259 GOSUB *DISPRUNNER 

7240 DUTCOUNT=DUTCOUNT +1 1 GOSUB *FIELDERM 
OVEO: БОТО «МЕХТВАТТЕН 

7300 ' 344 ¥ 

7310 РОТ (180, 128) , TFLDRUNOX, PSET:PUT (164 
110), FIELDER, PSET:GOSUB *DISPTFLDONBA 
SE 

7320 GOSUB *SOUND1 ı1 INFUN$=" さ ルイ アウ ト 
SUB «DISPINFOM 

7350 PUT (180,128) , TFLDRUNO%, PSETs PUT (164 
, 110), ,FIELDER1X,PSET 

7340 OUTCOUNT=OUTCOUNT+11 IF DUTCOUNT= さ T 
НЕМ GOSUB *FIELDERMOVEQ:GOTO #NEXTBATTER 
7350 FRUNNER® 1 ı SRUNNER=1 ı TRUNNER=O:» GOSUB 
#DISPRUNNER 

7369 GOSUB *FIELDERMOVE の 1 GOTO *NEXTBATTE 
R 

7500 "уа-һ / #27 

7510 «САТСНВҮ4 

7520 F7=RND(1):IF F7 く 。 さ THEN ІМҒОМФ= 
b 254":і00Т0 *CATCHFLYBY1234 

7550 PUT (292, 168) , BATTEROX』PSET 

7540 GOSUB *SOUND1:INFOM$= ー ト 270":808 

UB #DISPINFOM 

7550 IF ОМТСООМТ<2 AND FRUNNER=1 THEN 78 

оо 

7890 "シン プール ファ レー (184 792939) 


!"aB0 


ШЫ: 


!" GO 


DO 
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7610 PUT (444, 128) 。FFLDRUNOX。 PSET』PUT (460 
, 110) 。FIELDEROX,PSET』 GOSUB *DISPFFLDONBA 
ЗЕ 

7620 Р1=264:Р2=94:Р5=456:Р4=1$2: 5ТР=25: В 
OSUB *THROWBALL 

7630 GOSUB #SOUND1 s: INFOM$=" 144 
SUB *DISPINFOM 

7640 PUT(444,128),FFLDRUN0Z,PSET:PUT (460 
„, 110) ,FIELDER1Z,PSET 

7650 OUTCOUNT=OUTCOUNT+1: IF OUTCOUNT=3 Т 
НЕМ GOSUB wFIELDERMUVE の 』 GOTO *NEXTBATTER 
760 FRUNNERO=0: HI T=1: GOSUB *BASERUNNING 
: GOSUB *FIELDERMOVEO: GOTO *NEXTBATTER 
7800 PTE ファ レー (2-1 ルイ ソウ キュ ウ ) 

7810 PUT (312, 90) 。BFLDRUNGX , PSET: PUT (580, 
90) ,F IELDEROX, PSET:GOSUB *DISPSFLDONBASE 
7820 P1=264:P2=94:P3=304: P4294: STP=51 GOS 
UB #THROWBALL 

7850 GOSUB #SOUND1 : INFUM$="2 ル イ アウ ト 
SUB wDISPINFON 

7840 PUT (444, 128) ,FFLDRUNOZ, PSET』 PUT (460 
„ 110) ,FIELDEROZ,PSET: GOSUB *DISPFFLDONBA 
БЕ 

7850 Р1=55$2:Р2=94; Р5;=456: Р4=1 $2: 5ТР=16: 6 
OSUB *THROWBALL 

7850 GOSUB *SOUND1:INFOM% =" 1 ルイ 
SUB *DISPINFOM 

7879 PUT (312, 90) , SFLDRUNOX, PSET PUT (580, 
90) , FIELDER1%, PSET 

7880 PUT (444, 128) ,FFLDRUNOZ, PSET: PUT (420 
110),FIELDER1%,PSET 

7890 IF (INNING MOD 2)=1 THEN FLAGS="B"s 
GOSUB #FLAGMOVE ELSE FLAG%$="P"sGOSUB *FL 
AGMOVE 

7900 OUTCOUNT=OUTCOUNT+2: IF OUTCOUNT=3 Т 
НЕМ GOSUB *FIELDERMOVEQ:GOTO *NEXTBATTER 
7910 FRUNNERO=O: FRUNNER=O1 HI T= 11 GOSUB #B 
ASERUNNING 

7929 GOSUB *F IELDERMOVEO: GOTO #NEXTBATTE 
R 

9000 NEXT INNING 

9100 «ЗАМЕБЕТ 

9110 GOUBUB #8BOUND2:GOSUB wTIMINGIGOBUB * 
BOUNDZ 

9120 INFOM$="7"-4 tyh 
м 

9150 GOSUB #SOUNDZ: GOSUB 
BOUND2 

9149 IF PTOTALSCORE >BTUTALSCURE THEN 917 
° 


70 !" 5 GO 


2801 


ок 1360 


! "» GOSUB *DISPINFO 


*TIMING:GOSUB ж 


9150 IF BTOTALSCORE >PTOTALSCORE THEN 918 
° 

9160 COLOR 7sLOCATE 4 さ 。 さ 』PRINT "9 カイ ヒキ ワケ 
!"» GOTO 9200 

9179 LOCATE 43, SICOLOR ЗіІРБІМТ РТЕАМӨ:С 
OLOR 7:РКІМТ" / カチ !"r1PUT (25, 28) , BFLAGOX 
 PSET: FLAG$S="P": GOSUB *FLAGMOVE:GOSUB жҒ 

LAGMOVE : GOTO, 9200 

9180 LOCATE 43,3: COLOR 1:РАТМТ ВТЕАМ® у :С 

OLOR 7』PRINT" / ЛУ !"rPUT (555, 24) ,PFLAGO 
4, РЗЕТЕРЬАВ $ =" В" 1 GOSUB *FLAGMOVE:GOSUB ж 

FLAGMOVE: GOTO 9200 

9200 FOR LOOP=0 ТО 3000:NEXT LOOP: LOCATE 
43, S:PRINT SPC (11): GOSUB *SOUND1 

9210 LOCATE 43,3:PRINT"replay* -(R1" 

9220 А%=ІМКЕҮФІ ІР A$="R" THEN GOSUB *SOU 
ND1:RUN ELSE IF A$="E" THEN GOSUB «SOUND 
1ıCLS さ 』END ELSE GOSUB #TIMINGILOCATE 45 
,ЗаРБІМТ SPC (11) :6080В *TIMING 

9250 LOCATE 4 さ 。 さ 』PRINT "end・・・・・[E]" 

9250 A$=INKEY$; IF A$="R" THEN GOSUB ж501) 

ND1:RUN ELSE IF A$="E" THEN GUSUB *SOUND 
1:CLS 5:ЕМО ELSE GOSUB #TIMING: LOCATE 43 
,ЗаРКІМТ SPC (11): GOSUD *TIMING:GOTO 9210 
10000 ennui 97%-ЯУу エリ ア жы. 
metnen 

10010 #TIMING 

10020 FOR LOOP=O TO 3S@Q:NEXT LOOP: RETURN 
10100 *SOUND1 

10110 FOR SOUND=@ ТО 201: ВЕЕР (1) 1 МЕХТ SOU 

ND: ВЕЕР (0) t RETURN 

10200 *SOUND2 

19210 GOSUB *SOUND1:FOR SOUND=@ ТО 20: МЕ 
XT SOUND:GOSUB #5SOUND1:RETURN 

10300 #SOUNDI 

10310 FOR SOUND=9 ТО 50: BEEP (1) 』 BEEP (0) 1 
NEXT SOUND: RETURN 

10400 *DRAW1 

10410 READ P1,P2,P3,P4 

10420 (ІМЕ(РІ,Р2)-(Р5,Р4),С1 

19450 Рі«РЗіР2«Р4:КЕАр Р5,Р4 

10440 IF Р5--1 AND P4=-1 THEN RETURN ELS 

E IF PZ=0 AND P4=0 THEN 10410 ELSE 10420 
19500 жРАІМТІ 

10510 READ P1,P2:IF Pl=-1 AND Р2е-1 THEN 
RETURN 

10520 РАІМТІРІ,Р2),ТІ(Е9,С1:00Т70 19510 
19600 жРАІМТ2 

19610 READ P1,P2:IF Pl=-1 AND Р2=-1 THEN 
RETURN 

10620 РАІМТІРІ,Р2),С1,С2:00Т70 10610 
19700 жРАІМТЗ 

10710 READ Р1,Р2:1Ғ Pl=-1 AND P2=-1 THEN 
RETURN 

19720 LINE(P1,P2)-(P1+2,P2+1),C1,BF:GOTO 
19710 

10800 *DISPCOUNT 

10819 IF STRIKECOUNT=@ THEN LOCATE 29, 5: 


51 


Рю 
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PRINT SPC(2) ELSE COLOR 6:LOCATE 29, さ 』PR 
INT STRINGS (STRIKECOUNT , "Ө") 
10820 IF BALLCOUNT=O THEN LOCATE 54, 3:РА 
INT SPC( さ ) ELSE COLOR 4:LOCATE 54,5іРКІМ 
Т STRING? (BALLCDUNT "®") 
10850 IF ОУТСОУМТ=@ THEN LOCATE 40,5іРКІ 
NT SPC(2) ELSE COLOR 2』LOCATE 49,3』PRINT 
STRINGS (ОЦТСОЦМТ, “@" ) 
10840 RETURN 
10900 *DISPINFOM 
10919 LOCATE 43,3: COLOR 7:РКІМТ INFOM$:G 
OSUB *TIMING:LOCATE 45,5іРКІМТ SPC(11)』R 
ETURN 
11900 *FLAGMOVE 
11010 IF FLAG$="P" THEN 11020 ELSE IF FL 
AG%="B" THEN 11060 ELSE RETURN 
11020 FOR MOVE=0 TO 3 
11950 GOSUB *SOUND1:PUT(553,24),PFLA621, 
PSET 

GOSUB #SOUND1 』 PUT (553, 24) 。PFLAB1%。 


NEXT MOVE: RETURN 
FOR МОУЕзФ TO 3 
GOSUB *SUUND1』 PUT (25, 28) , BFLAG14,P 


GOSUB #SOUND1 1 PUT (25, 28) , BFLAG2X。P 


NEXT MOVE: RETURN 

*DISPSCORE 

SCORE (INNING) «8СОНЕ (INNING) +НКОММЕ 
Ri IF OUTCOUNT=3 THEN 11130 
11120 CIRCLE (320, 166) , 2, 6: PAINT (320,166) 
„6, b1C1=CO:RESTORE 21030: GOSUB wDRAM1』PA 
INT (320, 170) ,CO, CO: GOSUB #SOUND1:FOR LOO 
P=@ ТО 100:NEXT LOOP:PUT (312, 164) , HRUNNE 
ROX, PSET 
11150 IF (INNING MOD 2)=1 THEN P1=INNING 
: PTOTALSCORE=PTOTALSCORE+HRUNNER ELSE P1 
=INNING-1:BTOTALSCORE=BTOTALSCORE+HRUNNE 
R 
11140 COLOR CO:LOCATE 32+P1-LEN(STR% (SCO 
RE(INNING))),2-(INNING MOD 2):PRINT SCOR 
E (INNING) 
11150 COLOR 5:10САТЕ 53-LEN (STR (PTOTALS 
СОКЕ) ), 1:PRINT PTOTALSCORE 
11155 IF INNING=1 THEN GOSUB #TIMINGı ВЕТ 
URN 
11160 COLOR 1:1 ОСАТЕ 5 さ -LEN(STR$ (BTOTALS 
CORE) ), 2:PRINT BTOTALSCORE 
11170 GOSUB #TIMING: RETURN 
11200 *DISPRUNNER 
11210 PUT (444, 128) ,FFLDRUNOX, PSET』 IF FRU 
NNER=1 THEN CIRCLE (452,130), 2。6』PAINT(45 
2,130),6,6:С1=СО: RESTORE 20960: GOSUB *DR 
АН! : РА1МТ' (452, 154) 。 CO, СО 
11220 PUT(312,90),SFLDRUN@Z,PSET:IF BRUN 
NER=1 THEN CIRCLE (520,92), 2,6:РАІМТ (520, 
92),6,6:С1=СО: RESTORE 209701 GOSUB *DRAW1 
tPAINT (320, 96) , СО, СО 
11250 PUT (180, 128) , TFLDRUNOZ, РЅЕТ: IF TRU 
NNER=1 THEN CIRCLE (188, 130), 2,6: РАІМТ (18 
8, 150),6,6:С1=СО: RESTORE 209801 GOSUB *DR 
АН1:РАТМТ (1868, 134) , CQ, CO 
11240 RETURN 
11300 *CHANGE 
11505 GOSUB *SQUND3 
11310 IF INNING く 1B THEN INFOM$="3 アウ ト Ух 
уу" "1 GOSUB #DISPINFOM 
11520 RETURN 
11400 жҒІЕІ ПЕКМОУЕ 
11419 PUT(LFLDX,LFLDY),FIELDEROZ,PSET 
11420 LFLDX=LFLDX+FLDDIFX:LFLDY=LFLDY-FL 
DDIFY:IF LFLDX<56 THEN LFLDX=S6kLFLDY=BO 
ELSE IF LFLDX>184 THEN LFLDX=184:LFLDY= 
56 
11450 PUT(LFLDX。LFLDY) , FIELDER1%, PSET 
11440 PUT(CFLDX, 54) , FIELDERO%, PSET 
11450 CFLDX=CFLDX+FLDDIFX』IF CFLDX<216 Т 
НЕМ CFLDX=216 ELSE IF CFLDX>408 THEN CFL 
DX=498 
11460 PUT (CFLDX, 54) 。FIELDEK1%,PSET 
11479 PUT (RFLDX, RFLDY) , FIELDERO%, PSET 
11480 RFLDX=RFLDX+FLDDIF Xs RFLDY=RFLDY+FL 
DDIFY:IF RFLDX<440 THEN RFLDX=440: RFLDY= 
56 ELSE IF RFLDX>568 THEN RFLDX=568:RFLD 
Y=80 
11499 PUT (RFLDX, RFLDY) , FIELDER1%, PSET 
11509 RETURN 
11600 *FIELDERMOVEQ 
11610 PUT (LFLDX,LFLDY) ,FIELDEROZ, PSET: PU 
T(120, 68) ,FIELDER1%, PSET 
11620 PUT (CFLDX, 54) 。FIELDERGX, PSET』 PUT (3 
12,54),FIELDER1%,PSET 
11650 PUT (RFLDX, RFLDY) , F IELDERO%, PSET』 PU 
T(504, 68) ,FIELDER1%, PSET 
11640 RETURN 
11709 *BASERUNNING 
11710 HITO=HIT 
11720 HRUNNER=TRUNNER: TRUNNEFR=SRUNNER: SR 
UNNER=FRUNNER: FRUNNER=FRUNNERG 
11730 GOSUB #DISPRUNNER: IF HRUNNER=1 THE 
N GOSUB *DISPSCORE 
11740 FRUNNERO=O』HITO=HITGO-1 
11750 IF НІТӘ>Ә THEN 11720 ELSE RETURN 
11800 wDISPFFLDONBASE 
11810 CIRCLE (452,150), 2,6:РАІМТ (452,150) 
‚6, 6:С1=СО: RESTORE 20920: GOSUB #DRAW1 : РА 
INT (452, 134) , CD, CD: RETURN 


11900 *DISPSFLDONBASE 

11910 CIRCLE (320, 92), 2,61РАІМТ (320, 92) ,6 
›6:С1=СО; RESTORE 20970: GOSUB *DRAW1:PAIN 
T (320, 96) , CD, CD: RETURN 

12000 *DISPTFLDONBASE 

12010 CIRCLE (188, 130), 2,6:PAINT (188, 130) 
,6,6іСіеСрі RESTORE 209801 GOSUB #DRAWI ı PA 
INT (188, 134) , CD, CDI RETURN 

12100 *STEAL 

12110 PUT (444, 128) ,FFLDRUNOZ, PSET 

12120 GOSUB #*500М01 : INFUM$= リ トウ ルイ ! ! "1608 
UB *DISPINFOM 

12130 PUT(380,90),FIELDER0Z,FSET:GOSUB ж 
DISPSFLDONBASE 

12140 Р1=319;Р2=181:Р5=319:Р4=104: STP=19 
1GOSUB *THROWBALL 

12150 F7=RND(1):IF F7<.4 THEN INFOM$="24 
4 7ОҺ ! "saFRUNNER=G』 OUTCOUNT=OUTCOUNT+1 E 
LSE INFOM$="244 0-7 '!"SRUNNER=1:FRUNNER 
=0 

12160 GOSUB *SOUND1:GOSUB *DISPINFOM 
12170 PUT (312, 90) , SFLDRUNGX, PSET: PUT (380 
ょ 79) 。FIELDER1%,PSET 

12180 GOSUB wDISPRUNNER 

12199 RETURN 

12200 #THROWBALL 

12210 BALLDIFX=(P さ ーP1 ) /STP』 BALLDIFY= (P4- 
Р2) /8ТР 

12259 FOR THROW=@ ТО STP 

12240 BALLX=P1+THROW*BALLDIFXi:BALLY=P2+T 

HROW*BALLDIFY 

12250 GET(BALLX,BALLY)-(BALLX+3,BALLI.Y+1) 
|*BALLƏZiPUT (BALLX, BALLY) , BALL1%, PSET: FOR 
LOOP=© TO 20: МЕХТ LOOP:PUT(BALLX, BALLY) 
„ BALLON, РЗЕТ 

12260 NEXT THROW 

12270 RETURN 

20000 ’ииииииииининиих 9-7 エリ ア е нн. 

жена» 

20100 DATA ©, 50,40,20,200,20,0,0,440,20, 
600, 20,639, 50,0, 91 #195" в9 / h'4539 ノ リリ 
カ 2 セ ン 

20110 DATA 9,82,8,72,109,44,200,252,440,5 
2, 540,44,652,72,639,62,0, ©: PPF h フェ 
IR ノ 994 ノ (91 

20120 DATA ©, 100,8, 90, 100,62, 200, 50,440, 

50, 540, 62, 632,90,639, 100,0, 01’ 71:х ト 7-5 

ок ノ IM ノ セン 

20159 DATA ©, 110,20,130, 126, 176, $320, 199, 

520, 170,620, 150,639, 110,0, 91 "カン キャ 2 で キト 7 
ェ ン ス ノ IM 2 №2 

20140 БАТА 8,90, 180, 140, 520, 180, 460, 140, 

632,90, 0,0, 180, 140, $20, 100, 460, 140,0, Q: 
7592 942 (70) 

20150 DATA 20, 25,20, 10,56,10,56,20,0,0,4 
80, 20, 480, 2,508, 2,508, 20,0,0,528, 20, 528, 
10,572,10,572,20,0,0,608, 22,208, 4, 56,4, 
6Зь,29,0,@1'№174 ノ Ев ノリ フカ 2 セン 

20160 DATA 84,4,116,4,0,0, 100,2, 100, 6,88 
‚6,88, 19,96, 12,112, 12, 120,8, 112,8, 100,6, 
0,0, 120,8, 152,8,0,0, 129,6, 129,10, 06, ©: *уз 
Дар A WIRI 

20170 DATA 12,199,12,184,24,180,0,0, 36,1 

во, 48, 184, 48, 199,0,0, 20, 195,20, 199,0, 0,4 
©, 195, 40, 199,0,0,92, 199,92, 184, 104, 180,0 
ょ の 。 116, 180, 128, 184, 128, 199, 0,0, 100, 195,1 

00, 199,0, 0, 120, 195,120, 199,0, 01” アナ ウン サー / 
2597 ノリ ンカ 2 

20189 DATA 628, 199,628, 184,616,180,0,0,6 
04,180, 592, 184, 592, 199, à, 0, 620, 195, 620, 1 
99,0,0,600, 195, 600, 199,0, 01” カメ ラマ ン / 797" 
ノー リン カフ 

20199 DATA 9,199,12,190,0,0,48,190,92,19 
0,0,0,128, 190,148, 1950, 148, 199,0, 01” 77929 
aS リナ た リッ カウ セッ 

20200 DATA 58, 190,58, 185, 48, 180,52, 178,6 

8, 196, 64,168, 60,186, 60, 190, 0, 0,82, 190,82 
‚185,92, 180,88, 178, 72, 186, 76, 188,80, 186, 

Ве, 190,0, 0: ° アナ ウン サー ノ 942 ノ リン カ 2 セ ン 

20210 DATA 564,199, 564,186, 548,186, 548, 1 
76, 548, 180, 532, 186, 524, 183, 524, 173, 532, 1 
76,548, 176, 548, 170, 588, 170, 600, 176, 6090, 1 

B80, 588, 186, 572, 186, 564,186, 572, 186, 572, 1 

99,-1,-1:”ТУЛЯ2 / YIN? 

20300 DATA 80, 10,520,10,-1,-11'79 / RY? 
29 

29559 DATA 92,8,100,8,-1,-1:"4/27%7- / з 
КИ 920262 ト RIIT S 

20400 DATA 40,14,500,10,540,14,620,10,-1 
өтіп "ЕС 7 9109270 

20410 DATA 24,12, 32, 12,40, 12,48,12, 24,1 
,52,16,49,16,48,16,24,209,-1,-1і 81 / 
Эһ VINICI к RYTI Y 

20420 DATA 484,4, 492,4, 500, 4, 484,8, 492,8 
‚500,8, 484, 12,492, 12,500, 12,484, 16, 492, 1 

6,500, 16,-1,-11:'Е° 0 2 / I ノリ ンカ 2 や ント R 
992" 9 

20430 DATA 536,12,544,12,552,12,560,12,5 

52,16,540,16,548,146,556,16,564,16,-1,-11 
Eh 3 ノ ° / リン カフ セン K RYTI Y 

20440 DATA 612,6,612,10,612,14,612, 18,62 
©,8,620,12,620,16,620,20,628,6,628, 10,62 

8, 14,628, 18,628, 22,-1,-1: 774 / I 7 
リン カワ セン к RITI” Y 

20500 DATA 290, 190,520,50,-1,-1: ’ カン キャ フキ 
2 яутмі 

20510 DATA 100,20,440,190,580,190,-1,-1! 
カン キャ ツキ 7 RITES 


20550 DATA 8,72,8,90,9,0,109,44,100,62,0 
,9,209,52,200,50,9,0,440,32,440,50,9,0,5 
40,44, 540,62,0,0,652,72,652,90,-1,-11’ 7: 
од ノ 9 カイ ノ ту 
20790 DATA 320,140,520,190,-1,-11'74т 7° 
SR" h ファ 79 ル ソト ー ソ / RUY Y 
29750 DATA 9,90, 160, 140, 320, 180,460, 140, 
631,970, 0,0, 180, 140, 520, 100, 460, 140,0, 0, 3 
12, 178,312, 174,328, 174, 528, 178,0, 0,452, 1 
38,444, 140,452, 142,0, 0,312, 102, 320, 104, 3 
28, 102,0, 0, 188, 138, 196, 140, 188, 142,-1,-1 
1"2"5925" / 542 へ トー ス / リッ フカ 2 セン (уп) 
20760 DATA 320, 178,452, 140, 520, 102, 188, 1 
40,-1,-11 "7-2 ) 09770 
20800 БАТА 59,178,110,176,610,176,568,19 
0,540, 178,-1,-11’779:9- в カメ ラマ ン / アウ マト 
カメ ラノ 457" ノ RIY" Ё 
29810 БАТА 6,195,89,195,140,195,-1,-1:79 
JI 7 RIY 
20820 DATA 59,187,81,187,569,189,-1,-11” 
742 h NAS ノノ コリ 2 RYTY 
20850 DATA 53,192,53,196,61,196,61,192,0 
,0,66,196,66,192,70,194,74,192,74,196,0, 
0,79,192,79,196,0,09,87,192,79,194,87,19% 
,9,0,52,192,52,19%,0,0,%2,196,02,192,0,0 
,65,196,65, 192,0,0,75, 192, 75,196, 0,6, 78, 
192,78, 196, -1,-11’'77т / UMK 
20840 DATA 552, 181,552, 175,560, 181, 560, 1 
75,0,0, 564, 175, 564, 181,0,0, 564, 178, 572, 1 
78,0,0, 572, 175, 572,181, 0,0, 576, 175, 576, 1 
91,0,0, 564, 175, 577, 176, 584, 181,0, 01” カメラ 
2 NHK 1 
20850 DATA 555,181,555, 175,0,0, 561, 181,5 
61,175,0,0, 565, 175,565, 181,0,0, 575, 175,5 
73,181, 0,0, 577, 175, 577, 181,-1,-11’ 72% / 
NHK .2 
20900 DATA 548, 46,546,24, 552, 24, 552, 48,0 
,9,20,58,29,28,24,28,24,67,-1,-14 "0774 
ノー リフ カフ セン 
20910 DATA 550,40,22,40,-1,-11’\99" Я / R 
リリ フッ 
20920 DATA 555,24,560,28, 568, 24, 576,28,5 
84,24, 592, 28, 600, 24,600, 40, 592,44, 564,40 
‚576, 44,568, 40, 560,44, 553, 40,0, 0,25, 32,3 
2,28, 40, 32, 48, 28, 56, 32, 64, 28, 72, 52,72, 48B 
164,44,56, 48,48,44, 40, 48, 32,44,25,48,-1, 
дат / VINI 1 
20930 DATA 553, 28,540, 24, 548, 28, 576,24, 5 
84,28, 592, 24, 600, 2B, 600, 44, 592, 40, 584,44 
, 5764,40, 568, 44, 560, 40, 553, 44,0, 0,25, 28,35 
2, 32,40,28, 48, 32, 56, 28, 64, 32,72, 28,72,44 
, 64,48,56, 44,48, 48, 40, 44, 32,48,25,44, 1, 
“1N ノリ ンカ 2 セン 2 
20940 DATA 512,190,512,188,516,186,524,1 
B6, 327, 188, 327, 1970, 312,190,-1,-11” キャ リ チ ャ ー 
ノ 159" ノ リン カフ セン 
20950 DATA 460,118,464,114,472,114,476,1 
18,0,0,464,114,424, 118,460, 122,0,0,472,1 
14,472,118,475,122,0,9,454,118,472,118,- 
1-1’ tua 2 NIT ノリ ンカ 2 セコ 
20950 DATA 444,136,448, 132,456, 132,460,1 
I6, 0, Ò, 448, 132, 448, 140, 0,0, 456, 152,456, 1 
40,0, 0, 448, 136, 456, 136, -1,711144 / Туз 
ト Your 2 n52` ノリ フカ 2 セン 
20970 БАТА 512,98,316,94,524,94,528,98,0 
,0,516,94,316,102,0,0,324,94,524,102,0,0 
‚516,98, 524,98, 19284 2 Туз K ソウ シャ ノ 
97" 2 リン カフ セン 
20980 DATA 180,126,184,152,192,152,196,1 
36,0,0, 184, 132, 184, 140,0, O, 192,152, 192, 1 
49,0,0,184,156, 192,156, -1,-11' 544 / Туз 
ト ソウ シ w / NIT ノリ ンカ 2 セン 
20990 DATA 300, 172,300, 180,0, ©, 300, 172,3 
06, 172, 306, 176, 500, 176, 306, 180, -1,-11’\* 
ャ ター ノ NIT ノ リン カク セン 
21990 DATA 312,122,316,118,324,118,328,1 
22,9,9,5318,218,2510,126,0,0,524,118,524,1 
26,0, 0, 516, 122, 524,122, -1,-1:'Е*жуР- / h 
59° 2 VINI 1 
21010 БАТА 319,112, 512, 116,516, 118,0, 0,5 
24,112, 528, 116, 324,118, 0,0, 516,126, 524, 1 
22, 516,122, 516,118, 524, 116, 524,126, -1,-1 
ュ " ヒ チャー ノ N59" / олово 2 
21020 DATA 516,126,520,122,516,122,316,1 
18, 324,118, 324, 122, 320, 122, 324, 124, 328, 1 
24,0, 0,312, 122,314,118, 524,118, 528, 118, - 
1,1 Esp / 159" ノリ フカ 2 セン 5 
21050 DATA 312,172,316,168, 524,168, 328,1 
72, 0,0, 316,168, 316,176, 0,0, 524,168, 524, 1 
76,0, 0,316, 172, 524,172, -1,-1:°%-4 イン 927 
=- 2 3T 2 YINI 


だ か ら ボ ツ に し な いで よ . 


т) O) P 1. Pio は マイ コン ゲー ム の 本 な の で ビデ オ ゲ ー ム ・ コ ー ナ ー を 作り まし ょ う . 2. 
Ол Ол 3. PC-8001/mkI の アセ ンプ ル ・ リ スト を PC-8801(Nss モ ー ド ) に 移植 する 方 法 な ど を 誰か PiO BOX に 出し て くだ さい . 
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Nso 一 Nsa テ キス ト ・ コ ユン バー タ を 誰か 作っ て く 《 だ さい . 
4. PiO 大 好き 
E 9) 


最近 , Ф < Q) 7- UA A 39 Ў #' — АУ 
延 し て いる 中 に あっ て , この ゲー ム は 非常 
に シン プル な ゴル フ ゲ ー ム で す . と いう の 
も , この プロ グラ ム は 2 年 程 前 , まだ レベ 
ル 3 の ゲー ム が ほとん ど な い ころ , し か た 
な く 自 分 で 改良 を 重ね て 作り 上 げた も の な 
の で す . 

先日 , ひさ し ぶり に 取り 出し て 遊ん だ と 
ср, シン プル さゆ え に か えっ て スリ リン 
HOE, ЖЛ, ちょ よっ と じ た コ ヨ ツ を つら かめ (は 
現実 で は 夢 の ま た 夢 ( ? ) の アン ダー プレ イ 
も 満 誠 で きる と あっ て , 友人 達 に も た い へ 
ん 好評 に な り ま し た . そこ で 遅れ ば せな が 
Db, 多く の ゴル フ 狂 の みな さん に も その 
快感 を 味わっ て も ら お うと 思い , ここ に 発 
表し ます . 


ゲー ム 中 は , テン ・ キ ー 部 分 以外 は 使い ま 
せん の で どなた だ た に も 簡単 に ゲー ム が で きま 


RUN る せる と , まず 使用 クラ ブ の 入力 待 
ち に な り ま す . MI に 従っ て 適当 な クラ ブ 
の キー を 押し [RETURN| キ ー を 押し て くだ さ 
и. 決 に ※ の 長き で パワ ー を 40 回 表示 し て 
きま す の で , タイ ミン ググ 良く [キー を 押し 
TORE 

飛 距 離 は , フル パワ ー の と き で 普通 の ゴル 
ファ ー の 飛 距 離 に 相当 し ます . ボー ル の ラ 
ン も クラ ブ が 長い ほど 多く 転がり ます . Ж 
ホー ル と も 第 1 打 は ティ ー ア ッ プ の 状態 と 
Жо, 多少 (ワン ・ ク ラブ 弱 ) 飛 距 離 ア ッ プ " 
に な り ま す . 

し か し , 逆 に ティ ー ア ッ プ 時 以外 は ドラ 
イ バ ー は 使用 どき ませ ん . まだ , グリ ー ン 

バン カー ショ ッ ト は 慎重 に 


А%УЛ- ショット 


クラ フ の 種類 
ドラ イ バ ー ІМ 
дуз 
Ня. 
4° “ 


он 
6. л 
7: и 

| 8・ n 
9 й 
ピッ チン ダグ 

サン ド ` 


| + © ید مه‎ o ی‎ ьо N — MM 


ォ オー バー の 場合 や 、 タ イミ ング が 悪かっ た だ 
場合 は OB も あり ます . バ ンカ ー に 入っ た 場 
Alk, クラ ブ は S・W に 指定 され ます の で ク 
ラブ は 選べ ませ ん . その まま [キー を 入力 
(37. ウォ ー タ ー ハ ザー ド に 入っ た 場合 
は , ワ ン ・ ペ ナル ティ を 加え ぇ た 状態 で 池 サ イ 
ド か ら 打 ち ま す . パパ ワー 表示 が 残り 10 回 以 
下 に な る と , 赤色 表示 に な り BEEP し ます 
の で 注意 し て くだ きい . 最後 まで キー を 
押 る な い 場 合 は , 40 回 目 に 表示 る れ た パワ 
ー に な り ま す . 以降 , グ ゲ グリーン ・ オ ン す る 
まで 残り 距離 に 合わ せ て 順次 上 記 を 繰り 返 
[CD に JPG 

ë Ç, いよいよ ダリ ー ン ュ オ ン す る と 。 
画面 が 変わ っ て パッ ティ ング に な り ま す . 
クラ ブ は パタ ー に な っ て いま すか ら ,[ 北 | キ 
ー の 入力 の み で す . お お よそ ホー ル ま で の 
距離 ほし. * の 長き (パワ ー) と 同じ と 考え て 
ТЭ くだ SW 7239, FIA 
ワー 表示 は 50 回 で す . 焦ら ず じ っ くり 選 
АЛ, ワン ・ パ ッ ト を ね ら っ て てく ださい. 

途中 で , ギ プア ッ プ の 場合 は [BREAK| キ 
ー を 押し て くだ さい 、。 

以上 の 方 法 で 、 9 ホー ル ま で プレ イ で き 
ます . 再 プ レイ する 場合 は , 表示 に 従っ て 
Y| キ ー の 入力 後 [RETURN| キー を 押し て く 
だ さき さい. 再び 第 1 ホー ル か ら 始 まり ます . 


プロ グラ ム の 説明 

サウ ンド 部 分 以外 は すべ て BASIC で , А 
イン ・ ル シー チン は 320 一 770 行 , 他 の サフ ルー チ 
хь, それ ぞ れ 初め に 説明 きれ て いる の で , 


容易 に 理解 し て いた だ ける と 思い ます . 
コース に 慣れ て アン ダー プレ イカ 続発 (?) 


を ネオ キネ ネネ まま キオ ネネ ネオ ネネ キキ キキ キネ 


27 Y (P 


し たら, 620,1410 行 (ウォ ー タ ー ハ ザー ド ) 
700.1360 行 (バン カー) の ホー ル 数 を 増し 
た り ,1230 行 の OB の 発生 乱数 を 増し た り し 
て くだ さい. また , 根本 的 に ュー ス の 改良 
$ 2540 行 の DATA 廊 の 数 字 を 変え る こと に 
より で きま す . 2 個 ず つ コ ン ビ で , 前 が 距 
離 、 後 が パー の 数 で す . 


5%, まず は シン グル を 目ざし て プレイ 
し て くだ きい 。 バ パー ディ あり , イーグル あ 
0, チッ プイ ン あ り ,。 当然 ホー ルイ ン ワ ン 


(3.951, 80 лга РЕ ЛЕА 


ー ム で も ホー ルイ ン ワ ン の 手ごたえ ぇ は 最高 


みな さん 頑張 っ て くだ さい . 
参考 文献 
1) バレ ベル З BASIC 入 間 ?、 ア スキ ー 出 版 
2) パ “マイ ユン の 旅 ", 学研 
3) `“ 誰 に で も わか る 6809 ア モン ブラ", Н 
本 ソフ ト 色 ハー ド 


CO 


53 


С 


” УНИИ Golf дате #### 
CLEAR 500, &H7CFF 
IF FEEK(&H7DGO) <> &Н1А THEN LOADM 
DEFUSR1=&H7D00 
M1$="4^CEG#BGE7C--" 
M2$="^#B#B#B---^9--6#BBAGFED9--8_C-" 
MI$S=" ^ #B#B#B---9---5#BCDEFGAB--8_C-" 
M4$="2^GG#B9-" 
M5$2"6_C9---" 
109 Mó$="8^C-7¥B-4A-6G-E-C-E-G-5GIA-76-5 
G3A-7G" 
№7%="7С-40-7Е-46-7А-4^С-8\6-А-В-^С" 
M8$=" 6#B-G-E-C-AA-AA-A-G-F-E-D-C-#B# 
“ 
M9%="2 #E7-1wW#B" 
SCREEN ,,1 + WIDTH4Q í NNN=1000 
CLS 1 COLOR 4,1 
LINE(4。2) 一 ( さ 6。22) ," 
LOCATE 5,6 í PRINT" 
ие mm на 
189 LOCATE 5,7 1 
в ива 
190 LOCATE 5,8 т 
и ш w 
200 LOCATE 5,9. 
а км п 
210 LOCATE 5,10: 
в ча 
220 LOCATE 9,111 
230 LOCATE 9,121 
езет 
240 LOCATE 9,124 
в 
250 LOCATE 9,14% 
Г 
269 LOCATE 9,15% 
а 
279 LOCATE 9,164 
. 
280 LOCATE 9,17: PRINT" 
. 
290 M$=USR1 (M18) 
300 LINE(4,2)-(36,22),"&",6,BF а COLOR 7 
‚© š CLS 
е” 
220 "Фен PLAY Әне 
330 Hel а NN=Q а HH=1 
340 SCREEN ,,1 í CLS í MIDTH49 
$50 XXX=0 ; NN=NN+N í COLOR 5,0 : LOCATE 
20,5 : PRINT" @ Score..."NN í LOCATE 20 
»3 1 ZZZ=ZZZ+ZZ а PRINTUSING" ө (Раг 
4.2217 
360 IF HH=1 THEN 580 ELSE 570 
579 LOCATE 15,7: COLOR 6 т PRINT" 9 Bes 
%-5соге... "МММ 
COLOR 6 1 


PRINT" mS HMB BM ma 


PRINT" № поно шыш 


PRINT" SEEMS BSR ru 


PRINT" w ч чч юч 
РКІМТ" 


РАМТ" ж ж 


PRINT" ШЕ шп 


PRINT" ва 


PRINT" зи 


PRINT" ms юш 


v v 


N=1 r CN=1 í ' Jl на 9 r 
READ 2,22 
XXXmXXX+Z 
IF Z=1000 AND ZZ=1GOO THEN 2550 
LINE (XXX+5O。 169) - (ХХХ+50, 175) ‚РЗЕТ, 1 
LOCATE 1,25 』 PRINT"@ Hole"H j 1 М2= 
(577-Z) 1 PRINTUSING" ### Yards "$M 
sıCOLOR 4 í РБІМТИБІМӘ"(ҒағФ)"%272 


PSET(XXX+50,159,7) 
RANDOMIZE РЕЕК (&НҒҒЕФ) 3 
COLOR ё а PRINT" % 7" уа7 " 
IF N=1 THEN 500 ELSE 490 
FOR U=1 TO 4 : LOCATE 28,23 í PRINT 
“ 3 M$=USR1("4“W@B") í LOCATE 
COLOR 3 í PRINTUSING" [ノコ リ ###1" 
%М2 : FOR 1=1 ТО 20 : NEXT : NEXT 
500 LOCATE 2,5 1 COLOR 6 í FRINTUSING "@ 
74 9077 "JN а LOCATE 2,5 1 PRINT" 
"1 LOCATE 2,4,2 』 COLOR 2:1 
МРОТ "ө 2527%-і",АА9% í LOCATE 2,4 í C$=S 
TRING%(35,32) í PRINT C$ 
51@ ” 
520 COLOR 6 』 GOSUB вдә 
530 0=00*$. 14156/180 
540 GOSUB 1100 
550 YYso 
560 FOR T=@ TO DL STEP .15 
X=VO#COS (O) #T 
Y=VO»SIN (O) #T-10#T#T 
IF Т<>29 AND Y<@ THEN YY=YY+1 г 


LOCATE 1, 


28,23 1 


GOTO 
IF YY=2 AND Ү<0 THEN M$=USR1 ("4¥D#B" 


IF Y<@ THEN Y=@ ELSE 6509 
620 IF H=3 ОК H=4 ОК H=B ТНЕМ 650 ELSE 6 
5о 
430 IF (XXX+XX) >=496 AND (XXX+XX)<=527 Т 
НЕМ 640 ELSE 650 
649 GOSUB 5990 1 
650 ХХ=Хж5+50 
“bd IF (XXX+XX) 2549 THEN 1580 
679 PSET(XXX+XX,159-Y) 
680 NEXT 
690 XX=XXX+XX 
700 IF H=1 ОВ H=6 ОК Н=7 ОК H=9 ТНЕМ 710 
ELSE 750 
710 IF 464<=XX AND XX<=495 THEN 720 ELSE 
750 


©) ©) 


Хх=492 í GOTO 740 


リス ト 1 


729 XXX=XX-5G 』 GOSUB 2810 

750 IF XX>=545 THEN 760 

740 XXXmXX-5O í LINE(@,15)-((XXX+75)/16, 

IH" “BF 

750 N=N+1 í М2-550-ХХХ 

769 GOSUB 1460 з ' の ァ リーン 

770 H=H+1 』 GOTO 340 

780 ’ 

790 "ини 737° ишин 

ӨӨӨ IF CN=1 THEN 810 ELSE 850 

810 IF АА%="1" THEN 820 ELSE 050 

820 00-59 . CC%=" ж トド" ライ "一 = 
1040 

850 IF AA$="2" THEN 840 ELSE 850 

849 00=53 ; CC$=" ж 4 Poh" 

О 1040 

850 IF AA$="3" THEN 860 ELSE 

869 00-62 í CC$=" 62 アイ アン 

О 1940 

870 IF AA$="4" THEN 880 ELSE 

880 00=65 í ССӨе" 64 アイ アン 

О 1040 

890 IF AA$="5" THEN 900 ELSE 910 

900 00-67 í CC%=" 4 5 ?472 

0 1040 

919 IF ААФа"6" THEN 920 ELSE 950 

920 00=69 』 CC%=" д ё 7472 

О 1040 

93@ ТЕ AA%="7" THEN 940 ELSE 950 

94@ 00=71 í CC%$=" «7 7472 

Q 1040 

959 IF AA$="8" 

950 00=72 1 

О 1040 

97a IF AA®="9" THEN 980 ELSE 990 

9H0 00-74 í CC®" 49 アイ アフ 

О 1040 

990 IF ААв="+" 


1 GOTO 460 


』 GOTO 


THEN 969 ELSE 970 
СС%=" ж B アイ アソ 


THEN 1000 ELSE 1010 
Ф 695277 


1000 00-76 а СС%=" 
s GOTO 1040 

1010 IF AA$="-" THEN 1020 ELSE 1030 
1020 00=80 : CC$=" 
1 GOTO 1040 

1030 GOTO 500 

1040 FOR T=1 TO 2 : LOCATE ©,5 í PRINT" 

" 


Ф iN" ту“ 


1050 LOCATE 9,5 』 PRINT CC® í FOR U=1 TO 
20 1 NEXT 』 M@=USR1("4 C") 

1060 NEXT 

1070 COLOR é 』 RETURN 

1080 ' 

1090 "иии "リョ 1 Фи» 

1100 GOSUB 5240 : FOR I=1 TO 40 

1119 IF I>=30 THEN 1150 ELSE 1120 

1129 COLOR 7 í GOTO 1140 

1159 ВЕЕР : COLOR 2 

1140 A=INT(RND( 1 ) * さ ら 6) 

1150 LOCATE 2,1 1 PRINT C$ 

1160 E$=STRING$(A,"*") 1 LOCATE 2,1 í PR 
INT E$ 

1179 FOR T=1 TO 26Q 』 МЕХТ 

1180 A$=INKEY$ 

1199 LOCATE 2,1 』 PRINT C$ 

1200 ТЕ A$="#" THEN 1229 

1219 МЕХТ 

1229 COLOR 7 』 GOSUB 3410 

1250 RA=INT(RND(1)*19) í RB=INT(RND(1)*4 
@) s." ÜB. サス の 

124@ IF I=RA OR I=RB ТНЕМ 1250 ELSE 1270 
125а GOSUB 2719 

1260 GOTO 1300 

1270 MS=USR1 ("^#B#B#B") а 
=ñ*0.79 ELSE Уё=Аж*0. 787 
1280 CN=CN+1 』 DL=2.7 
1290 D%=STRING%$(A,"*") ; 
INT D$ 

1500 RETURN 

1310 ' 

1320 °виии 2729-71 ииий 
1330 LOCATE 0,20 1 A1$=STRINGS (40, "") 1 
COLOR 4: PRINT А1% 

1540 LINE (545,19) – (505,161) ,PSET, 4, ВЕ 
1350 LINE (595,150) – (593,159) 。PSET 。7 
1569 IF H=1 ОК H=6 ОК Н=7 ОК H=9 THEN 15 
79 ELSE 1580 

1579 LINE (44,10) – (495, 160) ,РЅЕТ, ё 
1580 LINE (593,159) - (601,151) ,РБЕТ, 2 
1599 LINE - (595,152) ,РЅЕТ, 2 

1400 PAINT (594, 151),2 

1410 IF H=3 ОК Н=4 ОК H=8 THEN 1420 ELSE 
1450 

1429 LINE (496,1609)-(527,189),РБЕТ,5 
1430 RETURN 

1440 ' 

1450 ” 

1460 °#ии 777-2 / ジュ ルイ е 

1470 WIDTH4@ а P=1 
1480 545<=XX 
1490 560<=ХХ 
1500 575 く =XX 


IF №1 THEN VO 


LOCATE 2,1 1 FR 


XX く 56G THEN 1540 
XX く <575 THEN 1550 
XX く 59G THEN 1560 
1510 5%0<-ХХ ХХ<595 ТНЕМ 1570 
1520 595 く =XX XX く <695 THEN 1610 
1550 вӨ5<«ХХ THEN 1580 

1540 GX=37 1 GY=16 1 Gl=1 1 GN=5 1 GSei 
і 8010 1640 

1550 Gx=37 г GY=16 í GI=1 』 BN=12』 GS=1 


画 PiO 読者 アン ケー ト 回 答 よ り . 
P РіО BOX が 少な く な ら な いよ ょ よう に./ 月 刊 誌 に な る の で し た ら 少 々 高 す ず ま す . し か し , 1I/O 誌 み た い に 太 く な りす ぎ な いで くだ さい / 
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1 GOTO 1640 

1569 GX=37 1 GY=16 : GI=1 
1 GOTO 1640 

1570 Р«Ә 1: GX=37 í GY=16 』 GOTO 1860 

1580 CLS í LINE(10,6)-(30,15),"”"e@",2,B 1 

LOCATE 15,10 : PRINT“OB (ファ ラス 2)" 

159@ M%=USR1("7--WB-GG890@GG-7B-#B---") 1 

FOR T=1 ТО 30 1 NEXT í CLS р 

1690 N=N+2 í РБЕТ (ХХХ+560, 159) 1 GOSUB 15 

20 í CN=1 í GOTO 470 

1610 CLS п  GBX=37 h 
ı GS=-1 』 GOTO 1640 

1629 CLS 』 0Х=57 í GY=16 』 GI=35 1 GN=3 

3 1 GS=-1 z P=P+1 s GOTO 1640 

1630 CLS г GX=37 』 GY=16 í GI=35 r GN=2 

5 з GS=-1 』 P=P+1 

1640 GOSUB 2360 

1650 ’ 

1660 HRE 19495207 

1670 GNX=GN*16 

1680 LOCATE 2,1 
72-992" 

1690 LOCATE 2,4 』 COLOR 6 з PRINTUSING"e 
MI- 9° 4002" "JP 

1709 GOSUB 5600 

1719 COLOR 7 

1720 LOCATE (GNX/16),16 í РБІМТ"." 

1750 GOSUB 2219 

1740 FOR Тед ТО РА 

1750 PX=T*16 í PSET(BNX+PX 。 133,7) 

1760 FOR TT=1 ТО 100 í NEXT 

1770 NEXT 

1789 GNX=GNX+PX 

1790 IF 576<=GNX AND GNX<623 THEN 2019 1 
* Cup in 

1800 IF 623<=GNX AND GNX<670 THEN 1629 

1819 IF 679<mBNX АМО ӨМХ<710 THEN 1659 

1820 IF 710<=GNX THEN 1850 ELSE 1840 

1830 P=P+1 і GOTO 1619 

1840 P=P+1 í GOTO 1680 

1850 * 

1869 COLOR ‚1 

1879 FOR T=1 TO 4 г LOCATE 15,3 』 PRINT 

の " 3 M$%=USR1("420C") í LOCATE 15 

,3 1 COLOR 4 1 PRKINT"BREEN ОМ" 』 FOR Y=1 
ТО 50 а NEXT í NEXT 

1880 し INE (5,5) – (634, 45) ,РКЕБЕТ,4,БҒ 

18909 LOCATE 57,16 í COLOR © í PRINT"@" 1 
COLOR 7 5 

1900 (.1ІМЕ(0Х%16%7,6Үж8-45)-(0Х%16%9,08Үж8 

),PSET,7,BF 1 LINE(GX*16+10,GY*8-43)- (GX 

*16+3@,GY*B-39),PSET,2 : LINE-(GX*16+10, 

бүжЕ-26),РБЕТ,2 1 (ІМЕ-(0Х%16%10,8ҮжВ-43 

),РВЕТ,2 1 РАІМТ(0Х%16%15,05Үж8-59),2 

1919 FOR B=22 TO 57 

1920 LOCATE B-1,16 з PRINT" " 

1930 LOCATE В,16 : РКІМТ"." 

1940 FOR T=1 TO 100 』 NEXT 

1950 NEXT 

1960 IF N=1 THEN 1970 ELSE 2010 

1979 M%=USR1(M49) і FOR T=1 ТО 50 』 NEXT 

1980 CLS 』 COLOR ‚1 』 FOR T=2 TO 6 í CLS 
$ M$=USR1("4^W#B") т LINE(19。6) - (50,15), 

“.",Т,В : LOCATE 14,19 : PRINT" HOLE ІМ 

ONE" і FOR I=1 ТО 59 』 NEXT 』 NEXT 

1990 M%=USR1("T32SC3-1CC3CWAFA T C1-wA%5C- 

D-g-F-———=%) 

2000 CLS 』 M$=USR1 (M1$) 』 GOTO 2100 

2010 CLS í COLOR 5,0 з M%=USR1(M4%) : LI 

NE(10,6)-(30,15),"@",6,B : LOCATE 17,10 
1 PRINT"CUP IN" í FOR T=1 TO 1000 』 МЕХ 

T : COLOR 7 

2020 N=N+P 

2030 CLS ; SCREEN。』9 : MIDTH49 』 COLOR 7 

„1 1 PRINT : PRINT : PRINT : PRINT í PRI 

NTUSING " ニー 4xe Score ## ..(Par WW)"IN, 

zz 

2049 IF N=ZZ+1 THEN COLORZ 』 PRINT 

HT e? ғж-- "у 

2050 IF N=ZZ+2 THEN COLOR2 』 PRINT 

NT = Pe epr- ce | 

2060 IF N=ZZ+ さ THEN COLOR2 з PRINT 

мт“ NIT ж" ia өй; 

2070 N=ZZ-1 THEN COLORS 』 PRINT 

L ES: [te A bu 2 

2080 IF N=ZZ-2 THEN COLORS + PRINT 

Ы 4-7% му 

2090 IF N=ZZ THEN COLOR6 з PRINT 

ерсе 4-70: № = А | 

2100 COLOR 7 』 LINE (64, 68) - (602,116) ,PSE 

T,7,B í _ІМЕ (64,84) -(602,84),РВЕТ, ё : LI 

МЕ (24,100) - (402, 100) ,PSET, 6 

2110 LOCATE 5,9 з COLOR 6 1 
Ыг. ЖУ; «ЖЛ о Ва ш 

2120 LOCATE 5,11 í COLOR 2 』 PRINT"Par 
за BE BE AS 5 4” 

2130 LOCATE 5,15. COLOR 5 í 

" í HS(H)=N 

2140 FOR SB=1 TO H 

2150 LOCATE 3#SB+8,13 』 COLOR 5 : PRINTU 

SING"##";HS (58) í COLOR7 

2160 NEXT 

2170 M$=USR1 (MB$) 

2180 FOR T=1 ТО 50209 : NEXT 

2190 RETURN 

2200 ” 


1 GN=2@ і GS=1 


Ву=16 í 01-25 』 GN=B 


1 COLOR 6 1 РКІМТ"Ф е 9- 


PRI 
PRI 
PRI 
PRI 
PRI 


PRI 


PRINT"Hole 


PRINT"Score 


АМ. йя 


419) 


2210 '### 7°37 2 ФИЯ 

2220 FOR 1=1 ТО 59 

2259 IF І>«40 THEN 2240 ELSE 2250 

2240 COLOR 2 : ВЕЕР : GOTO 2260 

2250 COLOR 7 

2260 PA=INT(RND(1 ) #34) 

2270 E$=STRING$ (РА, "*") 1 

КІМТ Е% 

2289 FOR T=1 ТО $00 1 

2290 FA%$=INKEY$ 

2300 LOCATE 2,2 : C$=STRING$ (35,32) 1 Р 

RINT C$ 

2310 IF PA0="*" 

2520 МЕХТ 

2330 COLOR 7 1 

Е-1Ұ%Е-") + COCATE 2,2 

#") а COLOR 7 í PRINTDS 

2549 RETURN 

2350 ° 

2560 ии スワ リー ンジ 2 Фе» 

2370 IF P=1 THEN 2390 ELSE 2580 

2380 LOCATE GX,GY 』 COLOR ©,1 1 
3 COLOR 7 í GOTO 2420 

2390 FOR T=1 TO 4 1 LOCATE 15,3 1 PRINT" 

" í M$=USR1("4^#C") í LOCATE 15 

,3 : COLOR 4,1 』 PRINT"BREEN ОМ" 』 FOR I 

=1 TO 59; NEXT 』 NEXT 

2400 LOCATE BX。BY : COLOR é 1 
COLOR 7 

2410 LINE(GX*16+7,GY#8-43)-(GX*16+9,GY*8 
),PSET,7,BF : LINE(GX*16+10,6Y*8-43)- (GX 
#16+30, GY#8-39) ,PSET,2 : LINE-(GX#16+10, 

GY*8-36),PSET,2 : LINE-(GX*16+10,GY*8-43 
),PSET,2 』 РАІМТ(6Х%16%15,6Үж8-59),2 
2420 FOR B=GI TO GN STEP GS 

2430 LOCATE B-GS,16 : PRINT" " 

2440 LOCATE B,16 í PRINT"." 

2450 FOR T=1 ТО 100 1 NEXT 

2460 МЕХТ 

2470 LINE(GX*16+5,GY#*B-45)-(GX*16+35,GY* 

8) , PRESET, BF 

2480 LOCATE GX,GY 』 COLOR © 
COLOR 7 

2499 COLOR,1 т 
‚ВЕ 

2500 LINE (5,5) - (634,45) ,PRESET, 4, ВЕ 

2510 

2520 

2530 

2540 DATA 0,5, 129,4, 522,4, 207,4, 598,5,14 

9,4,11,5,429,5,80, 4, 1000, 1000 

2550 LOCATE 0,19 

2560 PRINT" Ж. QA. ь 4 шө 

ша аль. 

2570 РКІМТ" 

на 

2580 РКІМТ" № 

шш ш” 
2590 РКІМТ" 

и км. 

2600 PRINT" 

mm a 

2610 M$=USR1 (M7$) 

2620 PRINT 』 PRINT : PRINT 

2659 COLOR7 : INPUT " 4 RE-PLAY--... (Y 

or №", КФ 

2640 IF R$="Y" THEN 2660 ELSE IF Аже "М" 
THEN 2650 ELSE 2850 

2650 END 

2660 CLS в IF МММ>ММ THEN МММеММ 

2670 HH=HH+1 

2680 H=1 』 NN=O 』 222=0 1 

2899 RESTORE : GOTO 550 

2700 ” 

2710 "жин OB ### 

2720 IF I/2=INT(I/2) 

2750 M$=USR1 (М2%) і LINE(12,8)-(28,14)," 

%",2,В : LOCATE 14,11 』 РКІМТ"ОВ (2847Ж 

-№)" í GOTO 2759 

2740 M$=USR1 (M3$) г 

@",2,B 1 

7-4) 

2759 FOR T=1 ТО 1000 і NEXT 

2760 Удздо 』 N=N+1 а DL=@ 

2770 ІМЕ (12,8) – (28,14), " 

2780 RETURN 

2790 ' 

2800 , 

2810 "йәй \ on- нии 


LOCATE 2,2 а Р 


NEXT 


THEN 2330 


GOSUB 3720 』 M%=USR1("3 # 
D$=STRINGS (РА, " 


PRINT "в" 


PRINT"@" т 


РКІМТ"Ө"а 


LINE (0,0) - (639, 50) ,РБЕТ,4 


<. ь 4 
ооо на зона 
mm но ши ваши 
ово не ние 


wasna s mm w v 


ZZ=O í №0 


THEN 27509 ELSE 2740 


1ІМЕ (12,8) ~ (28,14), " 
LOCATE 14,11 í PRINT"DB (2542. 


Ша 


2820 1.ІМЕ(9,15)-((ХХХ%75)/16,19)," ",BF 
+ LOCATE 2,5 : PRINT" Е 
2830 РЗЕТ (ХХХ+50, 159) 

2840 LINE (12,8) – (28,14), "®", 2,B : LOCATE 


15,11 í PRINT"NiN= vash" а M%sUSR1(M56$ 
) 


2850 LOCATE 2,5 1 


PRINT" 


2860 LOCATE 28,23 』 PRINT" 
2870 FOR U=1 TO 3 

2880 FOR I=1 ТО 3@ 』 NEXT 
2899 LOCATE 2,5 』 PRINT" 

2900 LOCATE 2,5 з РБІМТ"Ө サント" 
1 M$=USR1("4wF") 

2910 NEXT 

2920 GOSUB 3100 

2950 0=76#3.14156/180 

2940 YYY=@ 

2950 FOR Тед TO 2.7 STEP Ө.1 
2960 XmVowCOS(O) *Т 

2970 YeVORSIN(O) +Т-10*Т+Т 
2980 IF T<>@ AND Y<@ THEN YYY=YYY+1 』 GO 
ТО 2990 

2999 ТЕ YYY=1 AND Y<@ THEN M@=USR1 ("4¥D# 
8” 

3000 IF YO THEN Y=Q 

3910 XX=X*5+5%@ 

3020 PSET(XXX+XX,159-Y) 

5050 NEXT 

5040 XX=XXX+XX í N=N+Í 

5050 IF XX>496 THEN 5960 ELSE 2810 

5060 LINE(12,8)-(28,14)," ",ВЕ 

3070 RETURN 

зове ' 

J070 ' 

3190 WRN Nin ノ 7" 7а7 #96 

5118 GOSUB 5240 』 FOR I=1 TO 40 

5120 IF I>=3@ THEN ВЕЕР : COLOR 2 

3130 BSA=INT(RND( 1 ) #35) 
5140 E%=STRING%(BSA,"*") 
PRINT E$ 

5150 FOR T=1 TO 27Ө í NEXT 

5160 BSA$=INKEY$ 

5170 LOCATE 2,1 í C$=STRING$ (35,32) : РА 
INT СФ 

3180 IF BSA%0="+*" 
5190 NEXT 

$200 GOSUB 5410 』 M$=USR1 ("3_G-#B9-") а 

LOCATE 2,1 í D$=STRING$ (BSA, "#") 1 PRINT 
D$ 

5210 Vo=BSA*.77 

322@ RETURN 

2250 ' 

3240 °’ т929- 1 

$250 LINE(0,15)-((XXX+75)/16,19)," ",BF 
5269 PSET(XXX+50,159,7) 

$270 LINE(XXX+4B,15@)-(XXX+48,155),PSET, 

5 

5280 LINE(XXX+50,15@)-(XXX+5@,155),PSET, 

5 


xw" 


1 LOCATE 2,1 1 


THEN 5200 


5290 LINE (XXX+45, 152) -(ХХХ+50, 152) ,РВЕТ, 
Lá 
3500 (.ІМЕ(ХХХ%47,156)-(ХХХ%45,159),РБЕТ, 
7 
3310 LINE (XXX+52, 1564) -(XXX+52, 158) ,PSET, 
2 


5520 РБЕТ(ХХХ%54,159,7) а 
©) - (ХХХ+50, 150) ,РЗЕТ,7 
5559 ’ right 

5540 LINE (ХХХ+40, 150) -(ХХХ+45,152),РЗЕТ, 
5 

3350 ' left 

5550 LINE (XXX+52。15 さ ) -(ХХХ+55,152) ,PSET, 
5 

3370 "cl1b 

5580 LINE (XXX+50, 145) - (ХХХ+40, 150) ,PSET, 
7 


LINE(XXX+48,15 


$590 COLOR 7 í RETURN 

3400 ' 

3410 ° %977- 2 

3420 (.11МЕ(0,15)-((ХХХ%75)/16,19)," ",BF 
5450 LINE(XXX+48,150)-(XXX+48,155),PSET, 
5 

3440 LINE (XXX+50, 150) -(XXX+50,155) ,PSET, 
5 

3450 LINE(XXX+47。152)-(XXX+54。152) 。PSET。 
5 4 

5460 (.ІМЕ(ХХХ%47,156)-(ХХХ%47,158),РБЕТ, 
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3470 LINE(XXX+52。156) (XXX+54。159) 。 FSET, 
7 

3480 ' right 

3490 PSET(XXX+46,153,5) 

3500 ' left 

3510 LINE(XXX+55,151)-(XXX+60, 150) 。PSET 。 
5 

5529 ” clb 

5550 LINE(XXX+61,149)—(XXX+50, 145) 。PSET 。 
7 

2549” 

5550 РВЕТ(ХХХ%45,159,704 
©) -(ХХх+50, 150) , FSET, 7 
2569 COLOR 7 RETURN 


LINE (ХХХ+48, 15 


3600 '+»529- Р-1 
3610 LINE(0,10)-((GNX/16)+5,16)," ",ВЕ 
3620 LOCATE GX,GY 』 COLOR © з PRINT"@" 1 
COLOR ө 
3639 GOSUB 5850 
5849 LINE (GNX-1, 101) -(GNX-10, 110) , PSET, 5 
5659 LINE(GNX-2,101)—(GNX-11, 110),PSET, 5 
366@ LINE(GNX-10,111)-(GNX-11,115),PSET, 
7, ВЕ 
2879 LINE (ONX-11, 115) - (GNX-20, 132) ,РБЕТ 
1 PSET (GNX-21,132,6) í ' Crb 
3680 PRESET(GNX+14,100) : ' カク 
3690 LINE(GNX-1,111)-(GNX-12,115),PSET 
5799 RETURN 
3710 ’ 
3720 ’ r377- P-2 
5750 LINE(0,10)-((GNX/16),16)," “,BF 
5749 GOSUB 5850 
5750 LINE (GNX+15, 101) -(GNX+25, 110) ,PSET, 
5 
3760 LINE(GNX+16, 101) - (GNX+24, 110) ,РВЕТ, 
5 
5779 LINE (GNX+25, 111) - (GNX+27, 115) ,PSET, 
7,ВЕ 
3780 LINE (GNX+25, 115)—(GNX+35, 132) 。PSET 
PSET (GNX+36, 132,6) 
FRESET (GNX+1 。 100) 
LINE (GNX+15, 111) - (GNX+25, 115), PSET 
RETURN 


* шш шш = мш ш ж шш шш з шш = шш мш з жп жш ш ш шшш ш 
ы YII 2 
LINE (GNX, 109)-(0МХ%14,111),РЗЕТ,5,В 


LINE (GNX+3, 95) (GNX+10, 99) ,PSET,7,B 
LINE (GNX+3, 95) - (GNX+10, 96) ,PSET, 6, B 


LINE (GNX+0, 110) - (ВМХ-5, 130) ,PSET, 7 
LINE (GNX+1, 110) - (GNX-4, 150) ,PSET,7 
LINE (GNX+2, 110) - (GNX-3, 130) ,PSET,7 
LINE (BNX+ さ 。 110) – (ӨМХ-4, 150) ,PSET, 7 
LINE (BNX+14。1 1 の) 一 (BNX+18。 150) 。 PSET 。 


LINE (BNX+1 さ 。119) 一 (BNX+17。 139) 。PSET 。 
LINE (ӨМХ+12, 110) 一 (BNX+16。1 さ @)*。PSET 。 
LINE (BNX+11。11 の 9) - (GNX+15, 130) 。 PSET 。 


RETURN 

А 

% mummmm 94-7-.,%--һ" шшзшшшышв 
LINE (9,15)-((ХХХФХХ)/16,19)," 
M$=USR1 (М9%) 
PSET(XXX+XX-1,159,5) : PSET(XXX+XX+ 

1,159,5) а PRESET(XXX+XX, 159) 

4020 PSET(XXX+XX-3, 158,5) 』 PSET(XXX+XX+ 

3,158,5) 

4030 FOR T=1 ТО 100 в NEXT 

4040 PRESET (XXX+XX+1 。159) í PRESET (XXX+X 

Х-1,159) 』 PRESET(XXX+XX+ さ 。 158) 』 PRESET 

(XXX+XX- さ 。1 5 日) 

4050 FOR W=1 TO 4 1 LINE(12,8)-(28,14)," 

"BF í М%=03К1 ("4^С") í LINE(12,8)-(28, 

14),"e",1,B í LOCATE 14,11 + PRINT" ウ ォ ー タ ー 

*09ーー ト " "а FOR T=1 ТО 20 』 NEXT 1 NEXT 

4050 FOR Т=1 ТО 2000 』 NEXT 

4979 LINE(12,8)-(28,14)," ",BF 

4080 N=N+1 

409@ RETURN 


"BF 


スト 2 Golf Game マシ ン 語 リス ОИ 


7000 26 ЕВ 39 97 84 FF E4 C9 CO АВ BE 7E F1 D7 18 B4 
7DEG Ад 49 40 7E 79 62 50 52 45 50 77 6A 08 58 4E 22 
7DFG 1E 3D 35 2Ғ 2С 27 20 ІС 39 $$ %6 2А 25 05 өө ое 


SUM: Bo 82 A? 17 ВЕ 15 Bo 07 F2 ЗЕ 49 OE ЕВ 48 E6 60 
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ڪڪ 


官製 ハガキ に 左下 の シー ル を 貼り , ӨтімӨкеө 
年 齢 @ 職 業 ま た は 学年 ゅ 希望 の ソソ フト ウェ ア 名 称 (S 
回 紹介 し た ソフ ト の 中 か ら 1 つ だ け ) を ハッ キリ と 記 
入 し て , 1 月 8 日 (消印 有効 ) まで に 『PiO プ レ ゼ ン 


за 


ュー コーー ゴ ーー 1 3 


— КСС nh TIn ТЕЛЕ ПА #*—*—— Аы س‎ 


6 本や コシ シッ ス テム と , スト ドラ ッ ド ラジ オー に で タビ 
ユー ター セン ター の ご 協力 に より の , 抽選 で 30 名 ( 各 5 名 ず 
2) の 読者 の 方 に ゲーム ・ ソ フト を プレ ゼン ト し ます / 


ト ・ コ ー ナ ー』 宛 に 送っ て くだ さい . な お , 当選 発表 
は PiO No.4 号 で 行ない ます . 
注 : 応募 シー ル の 貼っ て な い ハ ガキ は 無効 に な り ま す . 


(① ペ ナン トレ ー ス 
PC-8001/mkII/PC-8801(N-BASIC) 
5, 1 点差 で 迎え だ た 9 回 裏 。 2 死 2 
3 還 で バッ ター は 掛 布 , 対す る ピッ チャ ー 
は 江川 .。 こ の ピン チ に バッ テリ ー は どう 攻 
め る で きか , 一 方 ベン チ の 作戦 は ? すべ て 
は あな だ た の 頭脳 に か か っ て いる メメ 
(光栄 マイ コン シス テム ) Ұ4,500 


анете 


PC-6001/mkII( 要 ROM/RAM カ ー ト リッ ジ 
砂漠 の 中 の アド ベン チャ ー は 謎 の メッ セ 
ー ジ か ら 始 まっ た . 
悪漢 ども と の 戦い 美 少 女 と の 出合 い , 
HRD, 森 を 抜け 、 海 を 渡り 。 クフ王 
の 秘密 を 追い 求め る 壮大 な アド ベン チャ ー 
の 旅 / 隠 され た 財宝 は どこ に ? そし て , Z 
の 宝 と は いっ だ い 何 か ? 
(スト ラッ ト フ ォ ー ド ) Ұ4,800 


Оз 
юе 


| Q (O) ©) 画 PiO 読者 アン ケー ト 回 答 よ り . 
(2) | Ол лла. も 良い と 思う . 1 号 は か な り 良 い 内 容 と な っ て いた と 思う . 


プレ セント |56 


FM-7 

エジプト 最大 を 誇る クフ王 の ビ ピラミッド. 
ここ に は 募 大 な 財宝 が 眠っ て いる . も し こ 
の 財宝 の 山 を 探し 当て る こと が で きた D, 
たちまち 大 富豪 びき さあ, この 宝探し に あ 
な だ は どう 挑む か / 
(光栄 マイ コン シス テム ) Ұ4,500 


— ашау ` 

⑤ ピ ラミ ッ ド の 謎 
X1( 要 G-RAM) 

神秘 に 満ち た ピラ ミッ ド は に 今 も 眠る 宝 を 
求め て 出発 し た 調査 隊 が 消息 を 断っ た . い 
っ だ た だい , ピラ ミッ ド に は どの よう な 秘密 が 
ある の か 2 消え た 調査 隊 は ? ピラ ミッド に 
思 き る れ た だ 財宝 は どこ に ? 

ЗИМЕ ЧЕН ИСКЕ $ 
ッ ド の 中 で , あな た だ は 宝 を 探し , 調査 隊 を 
無事 に 救出 し な けれ ば な ら な い . 
(スト ラッ ト フ ォ ー ド ) ж4,800 


728 key 4573 


③ 信 長 の 野望 


PC-8801 

全国 各地 を 猛 将 が 割拠 する 戦国 時 代 、 ж 
星 の ご と く 出 現し , 天下 統一 と いう 誰 も が 
夢み 果 せ な か っ た 野望 を 胸 に , 戦国 の 世に 
戦い を 挑む 時 代 の 革命 児 , 織田 信長 . さあ 
A, Pp あな た は 「『 信 長 の 野望 」』 を 実現 で きる か . 
(光栄 マイ コン シス テム ) Ұ4,500 


⑤ ム 一 大 陸 の 謎 


FM-7/8 
豪華 客船 の 中 で 知り 合っ た 考古 学者 の 老 


Хо, ムー 大 陸 の 秘密 を 聞か され だ た あな 
た だ は, 船 の 難破 に より 謎 の 小島 に 打ち 上 げ 
от, ЗОИ ЛӘ 1; CC 2 sb 
の 秘密 を 解く 鐘 が ある の か ? 

(スト ラッ ト フ ォ ー ド ) \4.800 


Жж”. ЮЖ 


Q 


FM-7 


BASIC 


PLANET 


昨年 の 暮れ に FM-7 を 購入 し , 
と 構っ て いる うち に , 一 つ 簡 単 な ゲ ー ム で 


いろ いろ 


も 作っ て みよ うか と 思い 立ち , 作っ て みた 
の が ここ に 紹介 する 『PLANET LANDER: 
TE. 

この ゲー ム は , 未知 の 星系 を 調査 し に 来 
た マザー シッ プ (母船 ) か ら 発進 し た 着陸 
船 (シッ プ ) を 操り , 着陸 ポイ ント に 難 着 
陸 を し , か つ , エネ ルギー の ある うち に ま 
=, マザー シッ プ に 帰還 する も の で す . 次 
々 と (全部 で 4 つの 惑星 が あり ます ) 惑星 
の 調査 を 行なっ て , 4 つの 惑星 すべ て の 調 
査 を 完了 し て くだ さい . 


7n? ラム の 説明 


プロ グラ ム 自 体 は , オー ル BASIC で 書か 
WU C v. 2 Tt, ステ ー ト メン ト を 
多用 し て いる た め , か なり 見 に くい か も し 
れ ま せん (ゴメ ン ナ さい ). 

ST, 本 ゲー ム で は 操作 の た め に キー を 
9 個人 使っ て いま す が , これ を INKEY$( あ 
る い は , PEEK で 直接 コー ド を 読み 込む ) 
を 使っ て IF 文 で 処理 する と , か な り の スピ 
ー ド ・ ダ ウン を 招き ます 。 

そこ で , ファ ンク ショ ン ・ キ ー 割 り 込 み 
を 利用 する こと に より 。 スピ ー ド ・ ア ッ プ ジ 
ОО а ЭЖ まだ シッ シン SS. bs 
っ だ か どう か の 判定 は . その ポイ ント に 色 
が ある か (つま b, 空白 の 岩場 か が 。 それ と 
も 色 の 付い た 着陸 ポイ ント か )) て 調べ て い 
52. 

を そして, 着陸 の 判定 は シッ プ の 2 ЖОМ 
の 先端 の ポイ ント が , 空白 (岩場 ) で な け 
れ ば そこ の ポイ ント を GET@A で 読み 込み , 
共に 同じ 色 の ポイ ント で あれ ば 着陸 と みな 


マル チ ・ 


maaa PLANET LANDER BASIC リ スト 


10 CLBIMIDTH49。254DIN FX(41) 7. (25) 。F1X( 
50) ,K1% (2) 。L1%(2) 1 МХ=1 0001 /%=-$2768 1 UU% 
=1281 SH%=5: HCA=O: DD=01 UU=0: СА=@ 

20 DIM GX (1000), XCOX(3) , YCOX (3) , HX1% (5), 
HX2% (5) ,HY% (5) , HCO% (5) 

50 FORI=Ə@TO41:READFZX(I):NEXT 

49 FORI=0T0471 READF1% (1) 1 МЕХТ 

50 возувьее 

60 LINE ‹©@, 191) - (659, 199) ‚РЗЕТ, 5, ВЕ: ЗУМВО 
| (27, 192) , "SCORE", 2, 1, Ôr SYMBOL (250,192), 
"5Н1Р",2, 1,0 

70 A=0; DX=01B%=0: M/=1 000: BUSUB749 

Ва 2/-0 

90 XAZ=RND(1)*320+89 

100 SHUND ら 。 150: SOUND7, 621 500М08, 16: SOUND 
12, 1: SHUND1 1 100: SOUND13, 14 


E eP A 


ANDER 


フント ンク ンー 


(5722, 

し か し , 降下 スピ ー ド が ,。 ある 値 以上 で 
ある と 前 述 の 着陸 の 条件 に 合っ て いて も 爆 
発し て し まい ます 。 さら に 、。 背景 に つい て 


で す が , 最初 か ら フ ル ・ グ ラフ ィ ッ ク を 目 
指し て いた の で , デー タ 数 を どの よう に 減 
ら す か 悩み まし た が , 結局 短い 横線 ( 横 4 
ドッ ト の LINE 文 ) で 行なう よう に ご ま か 
すこ と に し まじ だ 。 これ に より 。 ужом 
を 引く の に デー タ は 1 つ で すん で いま す . 


先 の 説明 で 示し た よう に , オー ル BASIC 
の プロ グラ ム で す が , DATA 文 が 多い の で 
リス ト を よく 見 て , 間違い の な いよ うに 入 
カカ し て くだ る さい. 


ゲー ム の 説明 


あな た は , CES HÊ а, 
た 着陸 船 (シッ プ ) を , 表 1 に 示す 9 つの 
キー で 操作 し な が ら , 着陸 ポイ ント に 無事 
着陸 きせ て くだ きい 。 すると, K2 CRF 
よう に 各 ポ イン ト の 色 に よっ て , 得点 が 得 


表 1 操作 キー 


上 昇 用 補助 ロケ ッ ト 

上 昇 用 メイ ン ・ ロ ケッ ト 

上 昇 用 補助 メイン ・ ロ ケッ ト 停 止 

左 方 向 補助 ロケ ッ ト 

左 方 向 メ イン ・ ロ ケッ ト 

右 方 向 補助 ロケ ッ ト 

右 方 向 メ イン ・ ロ ケッ ト 

左右 補助 メイ ン ・ ロ ケッ ト 停 止 
| 帰還 用 発射 スイ ッ チ 


110 FOR1=JZTOXAX BTEP15 

129 FORIIm1TO2IBYMBOL (1,0), " 2--",4,1,4,, 
ХОК SYMBOL (1, 8), " d—a", 2, 1,3, , XOR: SYMB 
OL(1,16)," —",4,1,4, , XOR: SYMBOL (1+32, 20 
"№, 2,1, 5, , XOR: NEXTII 

130 ХАУ/жІіМЕХТІ: 60808560 

140 SYMBOL (XA, 0)," m", 4, 1,4, , XOR: ВУМВО 
L(XRZ,8), "а —a",2, 1,3, , ХОР: SYMBOL (ХАХ- 
14,16), "5 7", 4,1,4, , ХОР: SYMBOL (ХА%+16,2 
03,44 PF", 2,1,5, , XOR: X1Z2=XAZ+32: X2%=X1%+ 
321 X%=XA%+3B: Y4=1 31 PUT@A (ХИ, YZ)- (XZ+15, Y 
4+13) ‚РИ, XOR: PUTEA (ХА, Y%)-(X4+15,Y4+13), 
FZ, XOR: YXmYX+1 

150 SQUND9, 9: BUND1 1 , Ф: SOUNDS, の 

169 SOUNDé, ©! SDUND7, 151 IFXZ>6000RXZ<=8TH 
EN3S8ƏELSEIFYZ<=BTHENSS8ƏELSEIFYXZ<12THENIF 


表 2 ポイ ント の 得点 


着陸 ポイ ント の 色 


られ ます . 

同様 に し て , 数 箇所 の 着陸 ポイ ン 
次 々 に 移動 し て , 得点 を 稼い で くだ きい (た 
だ し , マザー シッ プ へ 帰還 する エネ ルギー 
в). 

そし て , マザー シッ プ ' へ の 帰還 方 法 で す 
が ,[PF8] キ ー を 押す と シッ プ ' が ジャ ンプ し 
ます か ら , 上 昇 ロ ケッ ト を ふか し て 上 昇 し , 
シッ プ ' が 発進 し な 元 の 位置 に 来る と 帰還 完 
了 と な り , ボー ナス 50 点 が 得 ら れ , KDE 
面 へ と 移り ます . LDL, シッ プ ' が 画面 か 
ら は みだし だ たり , 岩場 に が つか つっ た り , Ж 
тите と き の 速 度 が 速 や す ぎ だ たり する 

‚ 爆発 し て し まい ます 。 


ЕЗ 2 = 
最後 に 
な ん と /。 この プロ グラ ム を 投稿 し て か 
ら 半 年 後に PiO 用 に 原稿 を 書く こと に な り , 
か な り 焦 り ま し た . も うほ と ん どこ の ブロ グ 
ラム の こと は 忘れ て し まっ て いて , 思い 出す 


の に か な り の 時 間 が か か り ま し た だ た . や は り , 

ノー ト な ど に 書き 写し て 置く よう に し な け 

れ ば いけ ませ ん ね / Q 
(о) 


X1% く XXRNDX2X>XXTHEN さ 19 

170 MZ=MZ-AB8S8(BZ)+DiXZ=XXZ+BZ: Y4=Y4+A+DIF 
7 (20) =MZ(2O) 1FX(21 ) =MX(21) 1FX(24) mMZ(24) 
1FX(25) =W% (25) PUTGA(X%, Y%)-(X%+15, YX+13 
) „Fh, XƏORiLOCATE27, 25: РАТМТ USING"### өс 
УНИИ "ТАРУХУМХ Г 

180 А=А+. 5+0: В%=РОТМТ (ХХ, У%+9 ) 1 НХ=РОІМТ ( 
XZ+15,YZ+9)i ТА=РОТМТ (XX+19。YX) 』 IFGZ=-10R 
HZ=-10RTZ=-1THEN25@ELSEKX=POINT(XZ,YZ+15 
)sL4=POINT (X%+15, YX+13) 』 IFKX=GANDLX=OTHE 
NIFMZ< =OTHENZSOELSEPUTGEA (XZ, ҮЛ) ~ (Х%+15,У 
%+1 さ ) „Рл, XOR: 60T016@ELSEGOSUB580r:GOTO190 
190 IFAm> さ THEN2BOELBEGETGA(XX』。YX+1 さ ) – (ХИ 
|, YZ+13) „КІЛ, BIHETWA(X%+15。YX+1 さ ) - (XXZ+15, 
YX+1 さ ) 。L1%。 08: ВОТО200 

290 RX=(UXZRNDK1X(O) ) /UX+(UXANDK1X(1) ) /UX 
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Рю 


PLANET LANDER BASIC! АР 


1 KEY (1) ОМ: KEY (2) ОМ KEY (9) ОМ: KEY (4) ONI KEY 
(5) ОМ: RETURN 
580 KEY(6) БТОР!КЕҮ(7)8ТОР: KEY (10) ВТОР: КЕ 
Y (3) ЗТОРЕКЕУ (1) STOP: КЕҮ (2) ВТОР: KEY (4) STO 
PIKEY(5) ТОР: RETURN 
590 KEY (5) ОРРЕКЕУ (7) ОРЕ1КЕУ (10) ОРЕ КЕҮ (3 
) ОРЕ 1 КЕҮ (1) OFF КЕҮ(2) ОҒҒа KEY (9) ОРР:КЕУ (4 
)OFFiKEY (5) OFFIKEY (8) OFF 1 KEY (9) OFF1RETUR 
N 
600 "タイ トル ルー チン 
610 MIDTHBGO,25』LINE (0,0) 一 (BO。25) 。" 還 "5,B 
ı LINE (100, 40) – (500, 140) 。PSET 1, 。BFiLINE (1 
00,40) -(500,140),РЗЕТ, ё, В, SYMBOL (150,50) 
‚ "PLANET", 5, 4, 71 SYMBOL (146,49), "PLANET", 
5,4, 2: SYMBOL (200, 100) , "LANDER", 5,4,7: ВУМ 
BOL (196,99), "LANDER", 5, 4,2 
620 SYMBOL (500,145), "Written by Mountain 
Book", 1,1, 411 ОСАТЕЗе, 201 COLORS: PRINT" t'Y 
メイ h" ヒ リ ョ ヨウ テ * дл?" 1 ОСАТЕ40, 211 COLOR7: PRIN 
Т"УЕЗ HIT スペ *- ス Ф-" 11 ОСАТЕ40, 221 РКІМТ "МО 
HIT ret*-" 
6530 QQ%=INKEY%:IF QQ%=" “THENé640ELSEIFQQ 
%=CHR% (13) THENWIDTH40, 25』CLBiRETURNELBE6 
зе 
640 СЕВзЕТМЕ (20,5) - (70,15) ‚РВЕТ, é6, BFILIN 
Е(80,5)-(159,15),РВЕТ,6,ВҒа( ІМЕ(140,5)-( 
199,15),РБЕТ,6,ВҒі( ІМЕ(250,5)-(515,15),Р 
ВЕТ, 6, BFILINE (26, 35) - (70,45) ,РВЕТ, 6,BFIL 
INE (80, 55) - (150,45) ,РЗЕТ, 6, ВЕ: LINE (140,3 
5)-(190, 45) ‚РВЕТ, 6, BF LINE (200, $5) - (250, 
45),РЗЕТ, 6, ВЕ 
650 LINE (240, 55) – (510,45) 。PSET 6, ВР: ЗУМВ 
OL (21,7), "РЕФ", 2, 1, O1 SYMBOL (81,7), "РЕ7", 
2,1, O1 SYMBOL (141,7), "PFE", 2, 1, O1 SYMBOL (2 
51,7), "PF10", 2, 1, @1 SYMBOL (21,57), "PF1",2 
‚1, Or SYMBOL (81,57), "РҒ2",2, 1,0: SYMBOL (14 
1, 37), "PFI", 2,1, 91 SYMBOL (201,57), "PF4",2 
,1,0 
669 SYMBOL (261,57), "PFS", 2,1, Or LOCATE17, 
101 COLORG: РКІМТ"Ф- YOY" sLOCATEO, 21 COLORS 
SPRINT" о" воа? о" вооа? (му? 


#4+ (UUZANDK1% (0) ) /UU4#21 8X= (UXANDL 17 (0)) 
7UX+(UXANDL1%X(1 ) ) /UX*4+(UUXANDL 1% (0) ) /UU 
%w2 ョ IFRX く >BXTHEN2B9 

210 PLAY"vBt25514"iPLAY"s13m50"” 

220 PLAY"14o4ccddeedrBeegqaag" 

250 CA=CQ+RX+1 の 1 GBDSUB519』 60518550: LOCATE 
7, 25: СОСОК7 : РАТМТУЗ1 МВ "ВНИИ "У CAJ IFMX 
<=OTHENGOSUB4 1OoELBEIFCA=>1OooTHENIFUU=GT 
НЕМЗНУ=8Н% +11 UU= 1: ОСАТЕ22, 25: PRINTUSING 
"A" BHX) 

240 KEY (8) ОМ: ОМКЕУ (日 ) GUBUBS49』 IFPX=1THEN 
PUTOA (ХУ, YZ) - (X%+15, Y%+13) ,F%, XOR: PX=OIR 
=0: YZ=YZ-71r GOSUBS6OIKEY (8) ОҒҒа GOTO160ELS 
EG0T0240 

250 BEEP11:B%=0; BEEPO: D{=0ı A=01 60348510: 6 
OSUBSSO:PUTGA (ХУ, ҮЛ) (XX+15, YZ+13) , FX, ХО 
В: 808085901: SDUND7, «НЕС: SOUNDB, 15: SOUND9 , 
15411 

2650 A=A+.9iYZ=YZ+A:PUT@W@A(XX,YX)-(XZ+15,Y 
+15), РХ, XURiL1%=PDINT (XX。YX+1 さ ) 』K1X=POI 
NT (X4+15, YZ+13) 』 SOUNDO, 1: SDUND2。 1 1SOUND1 
s O1 SOUNDS, 11 IFK1Z=@0RL 1 = の GTHENPUT き A (ХХ, Y 
X)-(XZ+15,YZ+13),FZ, XOR: 1=1+2: 60102609 
279 I=@,SOUND7,L&HFFiGOTO280 

280 SOUND9,9』 SDUND19。 の 』PUT@A(XX。YX) = (XZ+ 
15, Y4+13) , F4, XORIPUTQA (X%-15, ¥Y4+2) 一 (XX+1 
6,Ү7%9),Ғ17, XOR: GOSUB290: РИТФА(ХХ-15,Ү%% 
2)-(Х%%16,Ү7%9),Ғ1%, XOR: IFBHX=GTHEN4 1 6EL 
BEMX= 10001 X ん =XAX+ さ 91YX=1 さ 』A=O1NX=OI GOSUB 
5101 808085901: 60818560: GOTO1 60 

299 SOUNDS, 161 SOUND7 , 55: SOUNDé, éX: SOUND 1 
1, O1 SOUND12, 25: SOUND1 3, 9: FORJ=OTO1 0001 МЕ 
XT 

300 SOUND7 , “НЕЕ: I=@: SH{=SH4-1 ı1 LOCATE22, 2 
SiPRINTUSING"#" § SHX} 1 RETURN 

510 508085901: SOUND7 , НЕЕ: BUUND19。 の 1B0UND 
9, ФІ РОТВА (X4, УХ) -(X%+15, ҮХ+15) „РУ, XORI J= 
ХА РИТ@А (X4, У%) - (Х%+15,У%+15),РХ, XORI SO 
UND, 159: SOUND7 , 621 SOUND8, 161 SOUND12, 11 8 
00М011,100:800М015,14 

529 SYMBOL (ХАХ,0)," -",4,1,4,, ХОК: ВУМВО 


(ХА, 8), "4. -ы",2,1,5,,Х0К: SYMBOL (ХА ВТОР" :11_ОСАТЕе, 31 COLOR7 i PRINT" >? 
14,15),"^ -",4,1,4, , XORI SYMBOL (XAZ+16, 2 94 244%" 

ё), "ч ғ",2,1,5,,Х0К 470 LOCATE®, 61 COLORS: PRINT" 07 Е 
550 FORI=J T0600 BTEP15 ай. к sr STOP" 11.ОСАТЕӨ, 71 COL 
340 FORII=1TO2:SYMBOL(I,@)," ~" ,4,1,4,, OR7s PRINT" уа? ”4 уа? に la 


XOR: SYMBOL (1, B) , "4k", 2,1, 3, , XORI SYMB 
OL (1,14), " —",4,1,4, , XOR: SYMBOL (1+32, 20 
), "WwW", 2,1,5, , XORINEXTIL 

550 МЕХТІ: SOUNDO, ©: SDUND1 1 , ө: SOUNDB, 9:80 
818510180808550: DD=DD+1』 IFDD=4THEN370ELS 
EIFCA=>199OTHENIFUU=OTHENSHX=SHX+ 1 1 UU=1 1 
BOTD さ 69ELSE さ 6OELSE さ 6@ 

560 СА=СА+50 1 LOCATE7 , 25』PRINTUS TNG 
##" I СА; 1807070 

579 SYMBOL (153, 51),"=54 ПуУаО",4,2,718ҮМ 
BOL (150,30), "224 ЛоЈа?", 4,2, 110010410 
580 808085101 605085501 А=01 МИ=@1 808085901 
SOUNDO, 40: SDUND7 621 SOUNDS, 1 61 SOUND12, 11 
SOUND13,14 

590 ЕОК1=©ТО1 51 РОТ@А (ХХ, УХ) - (Х%+15, У+15 
) „Е, XOR: SYMBOL (X%-4, У%+20) , "SOS", 2,1,2, 
, XOR: FORJ=OTO3O1 NEXTJ 1 PUT@ACXZ, YZ)— (XZ+1 
5,Ү7%15),Ғ%,ХОКіМЕХТІ1ҒОЖ I=@TO1@@Q:NEXT 
402 SOUND7 , &HFF 1 SOUND12, Өз SOUND13, Oi BHX= 
SHZ-1:LOCATE22, 25: PRINTUSING"#" $ SH, 1 IFS 
HX=OTHEN4 1 ФЕСВЕМХ =1 0001 X%=XAX+ さ 91YX=1 さ 』 I 
ш0і.діҒОНІв0Т02000:МЕХТі BSUB569』 807016 


68@ PUT@A(100,10@)-(115,113),FZ,PSET:LOC 

ATE29。1 さ 』PRINT"BHIP 5 *."ı SYMBOL (50, 170) 
, "HIT гей %-",2,1,6 

690 SYMBOL (400,0), "tll С934%%",2,1,711. 

ОСАТЕ45, 2: РАТМТ" Ж" Еу NS ja リン シク SHIP? PF? 

- 9 アヤ ウリ" ョ LHCATE45。 さ 』 PRINT "チャ ワリ 2 カノ ウナ и" 

ус テ ャ フリ ウッ テ 29-94, "11 ОСАТЕ45, 4: РКІМТ"7?7 
リフ シレ 2 ナラ)" POINT カカ" チャ フリ フ テ テ ン ノ " ョ LOCATE45。51 

PRINT" イロ = ヨリ カサ ン リ マス 。" 

700 ГОСАТЕ45, 6+ PRINT "チャ ゃ フリフ 25 РЕВ 7-7 
オリ һмтууу?"а(0САТЕ45,7іРКІМТ"Ж” Еу = ФЛУУ? 
2774.":40С4ТЕ45,8:РКІМТ"ФЛУ スル ト 系 "セン h 
> priom Ü ды ":LOCATE45,9iPRINT"*?7 
99 N" va = АМ 9592, "iLUCATE45。1 の 6』PRINT "4 

メン 909 h` シュ ウリ ョ ウ スル ト " ョ LOCATE45。111PRINT" 

GAME OVER 7-2.“ 

719 LOCATE45,12:PRINT"SHIP л 5 f a24 7/7 
マス 。 "1_ОСАТЕ45, 153 PRINT"SHIP n° メン ЛЭ ñ 
ミ テ "ルト SOS ヲ JWw シ ン シ テ " ョ LUCATE45。141PRINT "ショ ウ 
メリ YIR e "ILUCATE45。 1ЗіРКІМТ"У/у7 79544 SH 
IPN" Rtu 79 Лоо シマ ス 。 "11 ОСАТЕ45, 16: PRIN 
T" カ "メン h° NIM オキ ニ 50 POINT カサ ンジ マ ス 。" 

720 LOCATE45。17』PRINT "СОКЕ Л“ 1000 POIN 
T9 コ エ M ト SHIP hn`"íiLOCATE45,18:PRINT"1 № 7 
* う ス サレ マス 。 "11. ОСАТЕ45, 19』PRINT "エネ ルキ "ーー N“ 0 
= 74759 う ゅ カレ マス 。 "1 SYMBOL (400, 189), "ケン トウ 9 
キラ イシ マス 。" 2 15 

752 8010650 

740 "жж“ "Ху サフ セイ е 

750 LINE(0,@)-(639, 190) ,PSET, 0, BF: I=@ 
760 LINE (450, 184) – (639,191) ,PSET,5,BF18Y 
MBOL (451,185), "У. Y. E.",2,1,@rLOCATE1 
$, 25』 COLORTI PRINT"©"§ s LOCATE27, 25: PRINT" 

© © @" tLOCATE22, 251 PRINTUSING"#" 

18Н%1 

779 READ Y1X 

789 РЕАОХСОХ (1) ,ҮСОХ (1) 11ІҒ ХСО% (1) =-1ТНЕ 
МТ =01: В0Т0790Е1 .8Е1»1%1:0070780 

799 КЕАРНХ17 (1) „НҮХ (1) ,НХ27 (1) 。HCEOX (Тат 

F НХІХ (Т) =-1ТНЕМТ =ð: ВОТОВОФЕСВЕТ = I +11 ВОТ 
0790 

800 READ GX(I): IFGX(1)=-1THENB1@ELSEI=I+ 
1: GOTO0800 

810 І=0 

820 1ІҒ8%(1)--2ТНЕМҮ1%-Ү1%%111е-1%1:007082 
@ELSE IFBX( 1 ) =ー1THEN Y1X=491Y2X=1 昌 IX1X=O 
1 X2%= ム 6 さり 9』 COXm41 1=OIBUTUB4 の 9 ELBEB さ 9 

850 LINE (09% (Т),У1%) - (97 (1) +4, Ү17) ,РЗЕТ, 4 
11=1+1160т0820 

840 РАІМТ ‹ХСОХ (1), ҮСОХ (1) ) „5,4, 51 1=1+181 
FXCOZ (1) =-1THENI=OIBUTHBSGELBEB49 

850 ШІМЕ (НХ1Х (1), НҮХ (1) +10) ~ (НХ27 (1) 。HYX 
(1) +12) ,PSET, НСО? (1), ВЕР: 1=1 +1: IFHX1% (1) = 
-1ТНЕМІжФ: ВОТОВЬФЕСВЕВ 5 © 

860 RETURN 

870 DATA е, кНеғғе, &H1DB8, 6н1816, &HSFFC。 の 9 
,kH07EQ, &HO7EG, КНІҒЕВ, &H7FFE , LH381C, &H10 
OB, &H2004, кН4004 

вве DATA %Н95С0,0,9,0,0,0,0,0,0,0,0,0,0, 
° 


° 

419 GOSUBS90: SOUND7 , &HFF ı SOUND10, Өз SOUND 
9, OLINE (160,80) - (460, 130) , PSET, O0, BF 

420 ІҒНСА<СА THENHCA=CA 

430 LOCATE14,11:COLOR2:PRINT"GAME DVER"I 
LOCATE14, 13: COLORS: РАТМТ"НТ-ЗСОВЕ" s COLO 
ВУ: PRINTHCA: LOCATE17, 14: COLORS: PRINT" SCO 
RE"j s COLOR7: РАТМТСА 

440 LOCATE12,20: РАТМТ"КЕРЬАУ hit ス 2N*- ス 
*-"*LOCATE18,21:PRINT"END Ef—" 

450 АА%=1МКЕҮ®: IFAA$=" a" THENCLS: ЕМОЕСЗЕТ 
FAA%=" "THEN440ELSE450 

460 RESTORE?3O: BHXm51 GOSUBS 1 01 808485501 С 
nmOin=OIN DD=9』 60348560: LOCATE7 , 25: CO 
LORS: PRINT" ШЫҒЫНЫН" 111. ОСАТЕ22, 25: PRINT" 
"f r GOTO7O 

470 B⁄=-2:W% (20) =&HOO1C 1 WZ (21) =O, SOUND10 
„10: RETURN 

480 BX=ー4』 MX ん (2 の ) =KHOO1C1 МХ (21) =&HOO1C1 SO 
ЧМ010, 111 RETURN 

490 BX=2íWX(20)=LH3800:WX(21)=@rSOUND10, 
101 RETURN 

500 BX=4』WX(2O) =&HSBOO1 MX(21 ) «КН5800:800/ 
М019,11:КЕТИКМ 

510 В%=0: W% (20) = の Oi W% (21) «Өз SOUND1 0, O1 RET 
URN 

520 D=-.6rWX(24)=LH0180:WZ (25) =&HO1 801 SO 
UND9, 19: RETURN 

550 D=-11W4 (24) =&HO7EOi MX(25) =&HOZ2CO: SOU 
NDF, 12i RETURN 

540 PZ=1íRETURN 

550 D=0: W% (24) =O: MX(25) = の O1 SOUND? , Өз RETUR 
N 

560 KEY (4) ОМ: КЕҮ (7) ОМ: KEY (10) ОМ: KEY (5) ОМ 
1КЕҮ (1) ON: KEY (2) ОМ: KEY (9) ON: KEY (4) NiKEY 
(5) ОМ: ОМКЕҮ (7) 90848550: ОМКЕҮ (10) G0SUB55@ 
1 ОМКЕҮ (6) 808085201 ОМКЕҮ (5) 60848490: ОМКЕҮ 
(1) 60508470: ОМКЕҮ (2) GOSUB480: ОМКЕУ (4) 808 
0вВ500: ОМКЕҮ (5) GOSUBS1 01 RETURN 

579 KEY(6) ОМ KEY (7) ONi KEY (19) ОМ: KEY (3) ОМ 


890 DATA O, KHOFFO, &KH1 DBO, &H1818, &HSFFC。& 
HOFFO, ©, 0, KHIFFO, O, O, &H1008, &H2004, &H400 


4 
902 ПАТА0,0,0,0,0,0,%Н1,-8090,%Н1Ғ,-2948 
„, H7, B192, &H1FFF,-128,&H7F, -512 
910 БАТАҺН8З,-22512,%Н5В,-9728,%Н195Ғ,-і 
924, KHEFF , 48, КНВЕҒ, ~32, =1, =1, MHSFFE, &H7 
FFC, &H3F80, &H1FFC 
920 DATAO, 0,0, 0, 0,0, 0, 0,0, 0,0, O, кні, -800 
©, &H7, -8192 
950 DATA 50 
940 DATA 1,179, -1,0 
950 ОАТА!1В,87,144,1,274,96, 512,5, 465,15 
4,504,6,157,160,205,7,-1,0,0,0 
940 ПАТА-2,-2,-2,-2,595,-2,590,400,-2,58 
5,605, -2, 585, 610, -2, 585, 615, -2, 585, 615, - 
2,580, 620, -2, 580, 620, -2, 575, 620, -2,0,575 
,625,-2,5, 10,575, 625, -2, 15,20 
970 DATA 575,625, -2, 25,565,570, 630, -2, 30 
‚ 35, 560, 630, -2, 40, 45, 560, 635, -2, 50, 560, - 
2,55,555, -2, 60, 560, -2, 65,70, 565, -2, 75, 57 
©, -2, 75,565, -2, 80, 550,555, 560 
980 DATA-2, 80, 335,545, -2, 80, 550, 540, 540, 
-2, 85, 105,525, 345, 530, 535, -2,90, 100, 110, 
325, 345,525, -2, 95, 110, 525, 345, 520, -2,110 
‚526, 345, 350,515, -2, 105, 320, 350,510, -2 
990 DATA 105,525, 350,510, -2, 110,325,350, 
370,510,525, 530, -2, 110, 325, 355, 365, 375,5 
10,520,535, -2, 110, 320, 355, 565, 380,510,51 
5, 540, -2, 115, 320, 560, 380, 545, -2, 115, 320, 
380,550 
1000 DATA-2, 110, 520, 385,550, -2, 110,315,3 
90,550, -2, 110, 310, 375, 550, -2, 1 10, 305, 400 
‚550,-2,105, 510,515, 320, 400, 550, -2, 105, 3 
20,395,545, -2, 110,315, 395,545, -2, 110,315 
‚ 400 
1010 БАТА 540,-2,110,115,120, 125, 150, 155 
‚140, 145, 150, 515,400, 540, -2, 150, 520, 405, 
535, -2, 140, 150, 520,405, 535, -2, 135, 145, 52 
©,400,550,-2, 150, 525, 400,525, -2, 125, 130, 
325, 400 
1020 DATA 525, -2, 125, 320, 405, 530, -2, 125, 
320,410,415, 530, -2, 120, 315,415,530, -2,11 
5,270,275,280, 285,290, 275, 500, 305,310,41 
5,530, -2, 105, 110, 265, 415,535, -2, 105, 260, 
415,535 
1050 DATA-2, 110,260, 420,530, -2, 110,260, 4 
15,525, -2, 105, 260, 415, 520, -2, 105, 255,415 
520, -2, 105,255, 420,520, -2, 110, 250, 420,5 
20, -2, 110,250, 415,525, -2, 105, 255, 415, 525 
-2 
, 
1940 DATA 100, 2640, 415, 420,525, -2, 105,260 
„, 420,530, -2, 110, 255, 420, 530, -2, 115, 255, 4 
20,530, -2,110, 250,415, 535, -2, 110,245,415 
, 535, -2, 115, 240, 420,555, -2, 120, 125, 130, 1 
55,240 
1050 БАТА 429,555,-2,125,245,420,5530,-2, 
150,245,425,550,-2,125,245,425,520,525,- 
2,120, 240,420, 520,-2,120,240,415,520,-2, 
120,240, 410, 515, -2, 120, 240,410,515,-2,11 
5,120 
1060 БАТА 240, 405, 510,515,-2,115,255, 405 
‚515,-2, 120, 235, 405,515, -2, 120, 235, 400,5 
20, -2, 120,230, 400, 520, -2, 125, 130, 235, 400 
„520, -2, 130, 235, 400,515, -2, 125, 240, 405, 5 
10,-2 
1070 DATA 125, 240, 245, 405, 505, -2, 120,245 
, 400,510, -2, 120, 245, 400, 515, -2, 120, 245, 4 
00,520, -2, 120, 240, 395, 520, -2, 125, 240, 395 
‚515, -2, 125, 240, 370,510,515, -2, 130, 245,3 
99,510 
1080 БАТА-2,125,159,240,245,285,515,-2,1 
25,235, 385,510, -2, 120, 235, 385, 505, -2, 115 
‚255, 390,505, -2, 110,235, 390,510, -2, 110,2 
30, 370,515, -2, 110,225, 395,515, -2, 110, 220 
‚595 
1090 DATA 510,-2,115,225,595,515,-2,115, 
225,590,515,-2,115,225,590,515,-2,110,22 
0,599,515,-2,110,229,585,510,-2,115,225, 
385, 510, -2, 120,125, 150, 140,225, 380, 505, - 
2,155 
1100 БАТА 145,220, 385, 440, 505, -2, 145, 220 
‚385,455, 445, 460,465, 470,475, 480, 485, 490 
, 495, 500, -2, 145, 220, 385, 430, 445, 455, -2, 1 
40, 145,215, 220, 385, 390, 425, 450, -2, 140,21 
0, 390, 420 
1119 DATA 425,-2,145,210,395,415,-2,150, 
205, 395,410,-2,155, 160, 165, 170, 175, 180, 1 
85,190, 195,206, 400, 405, -2, -1 
1120 DATA 50 
1130 DATA 1,179,-1,0 
1140 DATA103, B3, 127, 1,426, 99,452, 5,524, 1 
59,559,6,251,172,275,7,-1,0,0,0 
1150 БАТА-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,- 
,-2,-2,-2,-2,-2, 255, 240,-2, 250, 2 
45, 250, 255, 260, 560,-2, 225, 265, 270 
, 555, 565,-2, 220, 275, 550, 570,-2, 21 
5, 280, 550 
1150 DATA 575,-2, 190, 210, 285, 545, 58 
0,-2, 185, 195, 205, 290, 540, 585,-2, 1 
ве, 200, 295, 540, 585,-2, 175, 295, 545 
‚ 590,-2, 170, 295, 550, 590,-2, 170, 50 
ө, 550, 590,-2, 170, 500, 545, 590,-2 
1170 БАТА 185, 590, 545, 595,-2, 160, 50 
5, 540, 595,-2, 155, 205, 540, 595,-2, 1 
50, 505, 555, %09,-2, 150, 500, 555, 805 
‚-2, 150, 590, 550, 610, 655,-2, 150, 50 
5, 525, 615, 625, 650,-2, 145, 510, 530 
1180 БАТА é20,-2, 140, 510, 555,-2, 140, 
519, 540,-2, 155, 319, 545,-2, 155, 315 


画 PiO 読者 アン ケー ト 回 答 よ り . 


> PiO»PC-6001 ユ ー ザ ー に と っ て 良い 本 で あれ ば 素晴らし い . I/O 誌 と は 一 味 異な っ た ゲー ム 専 科 の 本 と し て 発展 させ .I/O は ゲー ム 以 外 を / 
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PLANET LANDER BASIC リス ト 


, 545,-2, 155, 515, 545,-2, 150, 515, 55 || 150 ЕНТ 
9,-2, 190, 195, 110, 115, 120, 125, 520, 1420 DATA 285, 550, 415, 505, 595,-2, 11 || 1。5o DATA 515, 555,-2, 100, 115, 185, 27 
550,-2, 95, 520, 550,-2, 95, 515 Ө, 150, 150, 285, 550, 410, 505, 600,-2, ||, 335, 505, 520, 555,-2, 95, 190, 270, 
1190 DATA 545,-2, 95, 515, 545,-2, 90, 5 95, 110, 155, 150, 280, 550, 410, 500, 330, 505, 520, 555,-2, 95, 190, 270, 550 
10, 545,-2, 90, 510, 550,-2, 90, 515, 55 || 600,-2, 90, 100, 110, 155, 150, 280, 555 || ss, 525, 555,-2) 95, 195, 275, 525, 5 
5,-2, 85, 515, 560,-2, 80, 529, омеа Go 495, 595,-2, 85, 105, 140, 150, 2 || 5 «50, 550, 555,-2, 95, 195, 275, 325 
85, 525, 550,-2, 90, 525, 545,-2, 99, 1880 DATA 500, 550, 545, 555,-2, 95, 200 
5, 570,-2, 85, 520, 575 1450 DATA 555, 410, 495, 590,-2, 80, 145 || 270, 525, 500, 555, 545,-2, 90, 200, 2 
1200 ОАТА-2, 80, 520, 575,-2, Во, 520, 5 ||, 280, 550, 410, 495, 585,-2, 80, 275, 5 ||, 325, 495, 540,-2, 85, 200, 270, 330, 
75,-2, 75, 520, 575,-2, 75, 515, 420, 42 || 50, 410, 495, 580,-2, 75, 275, 525, 405, 495,-2, 55, 75, 85, 205, 215, 250, 270, 

5, 450, 455, 440, 445, 450, 455, 575,-2, 500, 575,-2, 75, 270, 275, 525, 400, 50 325, 490, 655,-2, 50, 80, 70, ве 

79, 515, 420, 459, 580,-2, 70, 515, 415 || 9, 575,-2, 75, 270, 525, 405, 495, 580 1879 DATA 210, 220, 245, 255, 270, 325, 
, 469, 580,-2, 65, 520, 415, 460 1440 DATA-2。 80, 275, 525, 410, 490, 585 || 445, 490, 625, 630,-2, 45, 65, 225, 245, 
1210 DATA 580,-2, 65, 320, 395, 415, 465 || ,-2, 89, 230, 275, 525, 410, 490, 585,-2 260, 270, 325, 460, 470, 490, &25,-2, 4 
‚ 570, 575,-2, 65, 520, 595, 400, 415, 4||, В©, 225, 235, 275, 525, 410, 495, 585, ||,” „д 225, 240, 265, 520, 440, 460, 475 
70, 570,-2, 70, 515, 595, 405, 415, 470, || -2, 80, 220, 240, 265, 275, 330, 410, 49 ||, 495, 225,-2, 50, 225, 240, 515, 400, 4 
555,-2, 70, 515, 595, 410, 470, 570,-2, 5, 580, 585,-2, ВӘ, 220, 240, 260, 270 55 

79, 510, 390, 475, 570,-2, 70, 505 1450 БАТА 550, 410, 495, 575,-2, 80, 215 ||) 80 DATA 445, 455, 480, 495, &25,-2, 45 
1220 DATA 585, 475, 570,-2, 70, 505, 590 || , 245, 255, 550, 410, 490, 575,-2, 85, 2 || 230, 240, 515, 395, 405, 425, 450, 450 
, 475, 565,-2, 70, 510, 590, 480, 565,-2 || 15, 250, 559, 410, 490, 570,-2, ӨЗ, 215, ||’ аво, 495, Ф20,-2, 40, 250, 240, 515, 3 
‚ 70, 510, 595, 480, 565,-2, 65, 505, 59 555, 410, 490, 570,-2, 85, 210, 555, 41 20, 395, 410, 420, 480, 495, 615,-2, 55, 
5, 480, 565,-2, 65, 505, 590, 485, 579,- || 5, 485, 575,-2, 85, 210, 555, 420, 485 225, 240, 520, 395, 415, 480, 495, 610, 
2, 65, 305, 285, 485, 570,-2, 80 1460 DATA 580,-2, 80, 210, 555, 425, 485 ||.; 
1259 DATA 500, 599, 485, 570,-2, 80, 295 || , 589,-2, 80, 205, 555, 450, 480, 575,-2 || 」。ge DATA 50, 225, 240, 520, 590, 485, 4 
, 599, 490, 565,-2, 60, 290, 590, 490, 5| | , 80, 185, 205, 540, 450, 480, 570,-2, В | ,5وا‎ доб, 605-2, 55, 250, 245, 315, 390, 
60,-2, 55, 285, 585, 485, 565,-2, 50, 27 || 5, 185, 200, 545, 425, 480, 565,-2, 85, 490, 610,-2, 55, 250, 245, 315, 590, 61 
5, 280, 585, 485, 570,-2, 50, 250, 255, 180, 190, 195, 550, 425, 485, 5%0,-2 5,-2, 30, 220, 240, 310, 385, 615,-2, 25 
270, 580, 585, 485, 575,-2, 50, 225 1470 DATA 85, 180, 550, 425, 485, 560,-2 , 225, 240, 505, 520, 585, 610,-2, 25 
1240 DATA 240, 245, 260, 265, 585, 480, . 90, 175, 545, 450, 485, 555,-2, 90, 18 || 17oe рата 250, 245, 200, 515, 525, 380, 
5в0,-2, 50, 220, 250, 255, 585, 480, 580 || ©, 540, 450, 485, 555,-2, 95, 185, 555, 610,-2, 25, 250, 245, 509, 510, 525, 580 
,-2, 50, 220, 580, 475, 575,-2, 45, 220, | | 430, 485, 550,-2, 100, 185, 550, 450, 48 ‚ 619,-2, 20, 235, 245, 250, 500, 310, 3 

580, 489, 570,-2, 45, 215, 575, 480, 57 || 5, 550,-2, 105, 185, 550, 455, 480, 545 25, 580, 605,-2, 15, 240, 500, 210, 550, 
0,-2, 40, 210, 570, 485, 565,-2, 55 1480 ОАТА-2, 110, 190, 515, 550, 440, 48 585, 605,-2, 15, 500, 505, 550, 590, 69 
1250 БАТА 205, 570, 485, 565,-2, 40, 295 || ©, 545,-2, 105, 190, 510, 520, 550, 440, ||, 
‚ 365, 485, 570,-2, 40, 200, 505, 499, 5 480, 545,-2, 105, 190, 510, 525, 455, 4 1719 DATA-2, 15, 295, 505, 555, 595, 600 
79,-2, 35, 195, 565, 495, 579,-2, 55, 19 || 89, 545,-2, 105, 185, 510, 450, 485, 550 || “2 15, 340, 400, 500,-2, 15, 340, 400, 
5, 565, 495, 565,-2, 55, 195, 545, 500, 2525 100, 190, 515, 450, 485, 550,-2, 10 600,-2, 10, 340, 595, 595,-2, 10, 120, 
500,-2, 50, 190, 540, 505, 580,-2 125, 150, 135, 140, 145, 150, 155, 345, 
1260 DATA 50, 190, 555, 510, 565,-2, 50, | | 1490 DATA 190, 520, 450, 480, 545,-2, 10 || sgsr 595, -2。 5, 120, 160, 165, 545 

190, 560, 510, 565,-2, 50, 195, 565, 51 || 5, 190, 525, 435, 475, 545,-2, 110, 185, || 1720 DATA 400, 595,-2, 5, 115, 179, 175, 
ө, 565,-2, 25, 195, 560, 510, 560,-2, 20 550, 455, 475, 540,-2, 110, 180, 525, 4 350, 400, 595,-2, ©, 110, 180, 555, 595 
, 190, 560, 515, 560,-2, 20, 195, 365, 5 || 55, 480, 555,-2, 105, 180, 520, 450, 480 || 590,-2, 115, 180, 555, 590, 540, 545, 
20, 525, 550, 555, 540, 545, 550, 555 š 555,-2, 100, 185, 515, 450, 480, 540,- || 50, 555, 560, 565, 570, 575, 580, 585,- 
1270 DATA-2。 15, 195, 365,-2, 10, 190, 3 2, 115, 180, 555, 590, 535,-2, 115, 185 
65,-2, 10, 185, 540, 450,-2, 5, 185, 550 || 1500 DATA 95, 185, 505, 510, 450, 485, 5 || 17:0 DATA 360, 595, 555,-2, 110, 185, 36 
, 405, 425, 455,-2, 0, 190, 565, 400, 41 || 45,-2, 90, 185, 595, 590, 595, 409, 405, || 395, 535,-2, 105, 190, 340, 595, 540, 
0, 420, 440,-2, 195, 570, 575, 580, 385, 410, 415, 420, 425, 490, 545,-2, 90, 18 || 2 105, 190, 540, 395, 540,-2, 110, 185 
590, 595, 415, 440,-2, 199, 445 9, 500, 585, 490, 545,-2, 99, 180, 295, , 360, 5395, 545, 550,-2, 115, 185, 540, 
1289 РАТА-2, 185, 445,-2, 180, 445,-2, 1 580, 485, 550,-2, 85, 180, 295, 575, 485 395, 555,-2, 110, 189, 560, 590, 560,-2 
75, 445,-2, 170, 445,-2, 165, 449,-2, 16 || 1519 АТА 555,-2, 85, 175, 295, 575, 480 | 1740 DATA 110, 180, 360, 395, 545,-2, 10 
5, 445,-2, 160, 445,-2, 160, 440,-2, 165 . 555,-2, 85, 175, 290, 575, 475, 555,-2 5, 120, 180, 555, 595, 570,-2, 100, 110, 
‚ 440,-2, 170, 440,-2, 175, 449,-2, 175, , BQ, 175, 285, 570, 475, 550,-2, ВО, 17 115, 125, 189, 555, 595, 575,-2, 105, 1 
440,-2, 175, 455,-2, 175 0, 285, 570, 475, 550,-2, 85, 170, 285, зө, 170, 175, 540, 400, 580,-2, 150, 165 
1290 DATA 455,-2, 180, 450,-2, 185, 290, || 365, 570, 480, 545,-2, 85, 175, 285 ‚ 175, 365, 495, 580,-2, 150, 165, 175, 
450,-2, 185, 290, 295, 425,-2, 190, 290 1520 БАТА 360, 480, 545,-2, В0, 175, 290 245 


‚ 295, 425,-2, 195, 290, 500, 520, 540, ‚ 560, 480, 550,-2, Во, 180, 290, 555, 4 1750 DATA 410, 585,-2, 120, 160, 545, 41 
365, 420,-2, 195, 290, 305, 515, 525, ве, 555,-2, 75, 185, 290, 555, 475, 560, ә, 585,-2, 155, 155, 365, 405, 5в5,-2, 1 
5, 545, 550, 560, 570, 419, 415,-2, -2, 70, 180, 290, 550, 475, 565,-2, 65, 55, 155, 360, 595, 400, 589,-2, 155, 155 


1509 DATA 285, 510, 550, 555, 570, 175, 285, 540, 545, 470, 565,-2, 60 5,0, 390, 580,-2, 140, 155, 200, 590 
405,-2, 200, 285, 579, 590, 395,-2, 1550 DATA 175, 285, 335, 470, 540,-2, 60 Зе E 159, 360, 590, 5ве,-2, 149 
280, 570, 580, 585,-2, 205, 215, 280, I ||, 170, 290, 550, 470, 560,-2, 60, 165, 2 1760 БАТА 145, 560, 590, 575,-2, 10, 555 
75,-2, 219, 220, 275,-2, 225, 250, 255, 95, 525, 470, 560,-2, 65, 165, 500, 520, ‚ 390, 575,-2, 5, 15, 355, 290, 580,-2, 
240, 245, 250, 255, 260, 265, 270,-2,-1 485, 560,-2, 85, 160, 500, 515, 460, 56 || 0 714! 355, 390, 580,-2, 20, 55, 40, 545 
в 0-2, 63,155, 505, 519, 460, 385;-2 , 350, 595, 580,-2, 20, 50, 45, 555, 595 
1520 DATA 1,179,-1,0 1540 DATA 65, 155, 460, 560,-2, 65, 70, % 580,-2, 25, 59, 105, 355 
1539 DATAJ?6, 131,428, 1,70, 163, 104, 5, 482, 160, 460, 565,-2, 70, 160, 465, 565,-2, 1770- DATA 595, 545, 585,-2; 50,-100, “tte 
166,523, 6,536, 165,570,7, -1,0,0,0 65, 155, 465, 565,-2, 65, 150, 460, 565, ‚ 360, 595, 540, 550, 580,-2, 50, 65, 75 
1540 БАТА-2,-2,-2,-2,-2, 500,-2, 495, 50 || -2, 65, 150, 460, 565,-2, 70, 145, 455, ‚ 80, 85, 90, 95, 110, 545, 400, 555, 55 
5,-2, 499, 510,-2, 490, 515,-2, 495, 515 || 570,-2, 70, 140, 455, 575,-2 5, 575,-2, 50, 60, 70, 110, 565, 405, 55 
.-2, 495, 515,-2, 490, 515,-2, 485, 520, || 1550 DATA 79, 120, 155, 455, 575,-2, 70, 5, 560, 545, 570,52, 55, 115, 555 
-2, 485, 525,-2, 485, 525,-2, 140, 145, 120, 125, 155, 460, 575,-2, 79, 115, 15 1789 DATA 420, 555,-2, 119, 545, 595, 54 
150, 480, 520,-2, 155 0, 465, 570,-2, 79, 75, 80, 85, 90, 95, 9,-2, 115, 360, 395, 545,-2, 110, 355, 3 
1550 БАТА 155, 480, 520,-2, 150, 160, 47 || 100, 110, 470, 570,-2, 105, 470, 520, 57 95, 550 -2, 119, 360, 599, 550,-2, 115, 
5, 525,-2, 100, 150, 165, 475, 550,-2, 6 || 0,-2, 475, 520, 525, 555, 540, 545 300, 385. 550,-2 120, 185, 190, 195, 20 
9, 65, 90, 100, 105, 125, 170, 175, 475, || 1560 DATA 550, 555, 560, 565,-2, 480, 48 ||? bos, 210 565, 385, 555, 569!-2。 125 
550,-2, 55, 70, 85, 95, 119, 120, 1ве, に 490, 495, 500, 505, 510, 515, 550,-2, 1790 DATA 185, 215, 345, 385, 540,22, 15 
STE A a e DEn Per a BS > @ 215, 365, 385, 560,-2, 150, 185 
1560 DATA 195, 470, 520,-2, 55, 75, ве, 1570 DATA 47 ШАРА 585, 560, -2, 135, 185, 529, 5 
190, 200, 470, 525,-2, 55, 205, 470, 525 || 1580 БАТА 1,179,1,90,150,122,-1,0 89, 385, 525, 530, 555,-2, 140, іно, 220 
‚-2, 55, 210, 215, 465, 525,-2, 50, 215, || 1590 DATA127, 101,158, 1,545, 105, 566,5, 190 50, 385, 520, 535, 550,-2, 140, 180, 
420, 455, 460, 525,-2, 45, 210, 415, 42 || ,142,211,6,76,154,99,7,484,166, 519,5,-1, 225 ы; ы 
В; 459, 55е,езерханіиодга:вусата 659,9 1800 DATA 555, 280, 525, 540, 545,-2, 14 
1370 DATA 450, 445, 525, 630, 655,-2, 55 | | 1600 АТА-2,-2,-2,-2,-2,-2,-2,-2,-2,-2,- || @, 160, 189, 225, 550, 380, 525,-2, 145, 
‚ 220, 410, 425, 440, 525, 625,-2, 50, 2 || 2,-2,-2,-2, 525, 550,-2, 520, 550,-2, 51 189, 175, 250, 350, 580, 470, 525,-2, 1 
20, 405, 520, 625,-2, 55, 220, 405, 555, || 5, 555,-2, 510, 555,-2, 525, 510, 540,-2 || sa, 155, 165, 175, 235, 545, 385, 465, 4 
625,-2, 40, 220, 405, 540, 625,-2, 40, , 159, 155, 160, 245, 520, 550, 485, 495 || 75’ 525!-2, 170, 255, 545, 590, 465, 475 
215, 595, 400, 540, 620,-2, 40, 215 , 500, 505, 545 ‚ 525 
1580 БАТА 590, 555, 615,-2, 55, 215, 585 || 1810 ПАТА-2, 50, 125, 140, 155, 165, 255 1810 DATA-2。 235, 255, 540, 590, 465, 47 
, 550, 615,-2, 50, 210, 580, 555, 610,-2 ||, 240, 250, 525, 555, 490, 550, 555,-2, 5, 525,-2, 240, 250, 260, 545, 590, 460, 
‚ 50, 210, 380, 535, 615,-2, 25, 210, ЗВ || 15, 45, 55, Ве, 85, 90, 110, 120, 145, 1 475, 550,-2, 245, 260, 290, 550, 590, 4 
9, 535, 820,-2, 25, 215, 585, 555, 625,- || 59, 170, 250, 255, 550, 540, 485, 560,-2 || 。o。 475, 535-2, 265, 285, 295, 355, 595 
2, 50, 215, 590, 550, 625,-2, 50 , 9, 10, 20, 50, 40, 55, 75, 95 , 455, 475, 555,-2, 270, 280, 500, 560, 
1590 DATA 215, 595, 550, 620,-2, 25, 215 || 1620 DATA 105, 115, 175, 180, 215, 225, 400 
‚ 595, 555, 620,-2, 20, 220, 595, 555, 6 || 260, 550, 545, 485, 560,-2, 5, 25, 35, 6 1820 DATA 460, 475, 555,-2, 275, 300, Зь 
20,-2, 15, 220, 595, 540, 620,-2, 15, 21 || 9, 70, 100, 185, 200, 210, 220, 265, 539 || о, 405, 450, 475, 535,-2, 505, 365, 410, 
5, 525, 400, 540, 615,-2, 10, 210, 525, ‚ 5350, 360, 480, 555,-2, 85, 190, 195, 2 440, 280, 555,-2, 500, 565, 410, 455, 4 
405, 555, 615,-2, 5, 205, 500, 525 95, 270, 555, 555, 565, 400, 475, 550,-2 һо, 480, 550,-2, 505, 560, 565, 410, 450 
1490 DATA 405, 550, 610,-2, 5, 200, 295, 1650 DATA 275, 540, 570, 595, 405, 465, , 480, 550,-2, 510, 525, 555, 410, 445, 
505, 520, 550, 400, 525, 610,-2, ©, 200 || 470, 475, 550,-2, 275, 540, 379, 595, 41 Аве 
‚ 290, 510, 520, 550, 400, 520, 605,-2, ©, 480, 555,-2, 270, 540, 575, 595, 410, 1850 БАТА 535,-2, 315, 525, 550, 415, 44 
170, 205, 290, 515, 550, 400, 520, 805,- || 455, 555,-2, 265, 540, 575, 599, 410, 4 ||. 485, 540,-2, 520, 550, 545, 420, 440, 
2, 165, 175, 200, 290, 555, 405, 515, 69 || 45, 450, 555,-2, 150, 150, 140, 265, 540 аве, 540,-2, 335, 540, 420, 455, 480, 5 
5 , 380 35,-2, 555, 420, 450, 480, 550,-2, 425, 
1410 DaTA-2。 160, 180, 195, 290, 555, 41 || 1640 DATA 585, 415, 440, 550,-2, 125, 15 480, 485, 490, 495, 500, 505, 510, 515, 
0, 515, 605,-2, 120, 155, 185, 190, 290, || 5, 145, 155, 165, 170, 270, 555, 415, 43 525 
335, 415, 515, 600,-2, 115, 125, 150, 2 || 5, 550,-2, 125, 140, 170, 270, 555, 420, 1840 ГАТА-2,520,-2,-і 
90, 550, 415, 510, 600,-2, 110, 125, 150 425, 450, 550,-2, 105, 125, 175, 270, 5 
‚ 285, 550, 415, 505, 595,-2, 110, 139, 40, 555,-2, 100, 110, 120, 180, 275, 555 
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人 金 月 の PIO な ゲー ム 


=ЕМ-7 


K- コ ン パ イラ ナマ シン 語 ( デ ー タ ) 


EGG BOMB エッ グ ・ ボ ム 


s........................... 


ЕТЕУ) 


М 
* 
* 
* 
* 
* 
% 
% 
ж 


ann 


10000 ‹20мрас› SCORE 102e 
し 


*..... 


|. 


жа ЛААЛ, 
人 


子 ギ ツネ コン コン 山 の 中 , 山 の 中 … と , 
山 か ら 出 て きた 子 ギ ツネ の ゴン 太 政 , 今日 
も 卵 を 食べ に や っ て きま し た . いつ も の よ 
うに 卵 を 食べ て いる と , 完全 に 頭 に きた ニ 
ワ ト リ は な ん と , 時 限 式 の 爆弾 卵 を 生み は 
じ め た で は な いか ! これ は 大 変 だ ! ゴン 太 
は 爆弾 卵 を 回 収 し つつ , 好物 の 卵 を 食べ 続 
ける の で し た . 


214 |6 |8 


ж - て ゴン 太 を 操作 し ます 」 
SPACE] キー で ゴン 太 の スピ ー ド を 変え ます 
初め ゴン 太 は 低速 . ニワトリ は 高速 に な っ 
て いま す が , [SPACE] キー で その 速度 が 逆転 
УЕ a 

[32] 一 [jl キ ー は 曲がる 前 か ら 1 度 押し て 
(Е, 曲がり を そこ ね が あり ませ ん . 1 度 
曲がる と その キー の 内 容 は キャ ン セ ル さ る され 
ます . 曲がる 所 に 来 て か ら キ ー を 押し て も 
減 多 に 曲がる こと は あり ませ ん . 少な く と 
も 曲がる 所 に る し か か る 直前 まで に 押し て 
くだ さい . 

ゴン 太 は 初め 4 匹 い て , 2 万 点 を 越す と 
1 匹 増 えた ます. 以後 は 増え ませ ん . 
爆弾 卵 は 1 度 に 1 個 し か 出 ま せん . 生ん 
だ と き は ピン ク 色 を し て いま す が 爆 発 が 近 
づく と 赤 に 変わ り ま す . 爆発 する と ゴン 太 
DIERO tF. まだ た 1 一 5 面 は 爆発 まで 
に か か る 時 間 が だ ん だ ん 短く な り ま す . 6 
面 以降 は 1 一 5 面 の 繰り 返し で す . 
初め ゴン 太 は 左 回 り し 。 ニワ トリ は 右 回 9 
を し て いま す が , 真ん中 の コー ス を 使っ て 


逆 回 りす る こと も で きま す . 
逆 回 りす る こと に よっ て ニワ トリ に 追い 


卵 が 先 か ニワ トリ が 先 か ? 


つく と 1.,000 点 もち も ら え ます . た だ だし, 真ん中 


の ユー ス で は 追い つく と ゴン 太 は 死に ます . 
その か わり , ニワ トリ は 真ん中 の コー ス に 
ЗЕЯ ЕА FA. 卵 を 全部 食べ る と 
1 面 ク リア で す . 

ハイ ・ ス コア を 記録 する L, 楽し い 音 楽 
の 後 で 名 前 (6 文字 ) を 登録 する こと が で 
з. 


RUN し た と き , タイ トル の 表示 まで に 


し ば らく 待っ て い 


や や 時 間 が か か り ま す . 
て くだ さい 


デ ロ グ ラム は BASIC, デー タ 。 オプ ジェ 


クト ラン タイ ム の 3 つか ら 成 っ て いま す 。 


この うち す つ で も 欠け る と 
(進行 し ませ ん . 


ゲー ム が うま 


ФӨ/-:. 


リス トド:( リ スト 1) を キー イン 
LT, フン ル RAM モー ド で コン バイル ( 詳 


し く は FM-7/8 活 用 研究 を 参照 ) 
770»; 

⑨ ュ コンパ イル 後 , 85000, 
$ 7F に 変更 し て くだ る さい. 
と ゲー ム が で き な く な り ま す . 

デー タ (リス ト 2) を キー イン し ます . 
$ 3000 一 $404C で す . 

CLEAR3OO. &H2FFF : NEW RETURN 
の 後 , BASIC リ スト (リス ト 3) を キー イ 


Же 


これ を 忘れ る 


1 の $12 を $34, 


〇 ゲー ム ・ ス ター ト は RUN[RETURNI で OK で す . 
〇 な お RUN し た と き , "ランタ イム ・ ル 
ー チ ン ト オプ ジェ クト ガ アリ マセ ン 。" 


と 出 て 止ま っ たら , 次 の こと を 確認 し て く 
だ る さい . 
⑳ ラ ンタ イム ・ ル ー チ ン と オブ ジェ クト は 
ある か . 
Ө $ 5000, 1 が, $34, $ 7F に 変更 され 
Е. る か . 


тз лели: s Е. 


ニワ トリ も 方 向 を 変え に 真ん中 に きま す . 
ここ で は 爆弾 卵生 まな い の で ,。 安心 し て 
まわ り の 卵 を 食べ る こと が で きま す . 

@ ニ ワ ト リ に 追い つく 方 法 を みつ け よ う ! 
1.000 点 ちら える の で 点 の 伸び が 違い ます . 
@ プ ログ ラム の 弱み に つけ こも う ! 1,000 
点 を も ら え る 方 法 が も う 1 つ あり ます が こ 
れ は 秘密 で す . 自分 で 捜し て くだ きい 


@ 真 ん 中 の コー ス の 使い 方 が ゲー ム を 大 き 
ОЕ 
с! 

@ バ パタ ー ン を みつ け よ う ! この ゲー ム も っ フ パ 
ター ン を みつ 

SS 


この コー ス の 使い 方 を 研究 


ける と 楽勝 で す . 
РТ ОЕ 


Қр ыы ey 


55 
ゲー ム 中 は [BREAKI[RESETT で ,、 タイ トル の 
と き は [BREAKI で 止ま り ま す . 中 断 後 。 
GOTO11O[RETURNI す る と , ハ イ ・ ス コア 


の 登録 を 消す こと な く 再 プレ イ で きま す . 


が あぶ も 


の オプ ジェ クト を モー プ グ ". 


慣れ る まで な か な か 5 面 ク リア は で き 


SAVEM "ファ イル ・ ネ ー ム "。 &H4DOO, いと 思い ます . 5 面 ク リア で きる まで ў 
&H6FED, &H5OOO[RETURN| バリ 。 プ デア レ イ し て くだ さき さい. жі, МЗ 
R= を セー ぎる と いう 人 は ソー ス ・ リ スト 50 行 の SEC 
SAVEW "ファ イル ・ ネ ー ム "。 &H3OOO, --350-50ж І の 350 と 50 の 両方 が. まだ は 
&H4O4C. & НЗООО [RETURN| 片方 を シ エ ニ 5 と し だ た と き SEC の 値 が 50 以 
BASIC を モー プ ". 上 に な る 範囲 で 変更 し て くだ さい . 値 が 小 
SAVE" フ ァイル ・ ネ ー ム " [RETURN きい ほど 難し く な り ま す . (586) 

画 PiO 読者 アン ケー ト 回 答 よ り . 

P 何で I/O も PiO も MSX を と りあ げ て くれ な いん だ よー. それから 、650 円 は ちと 高い 。500 円 に すべ し KHK ° MER 


Рб 


о リス ト 1 
19 "FOX=*4G5o1CHICmFDX+161NA=CH1C+161FOX 


(0) "9ЗОО9іСНІС(9) =$ さ さら 694FDR 1-1 TO 71ҒОХ 
(I)=FOX(I-1)+1@BICH1IC(I)=CHIC(I-1)+1óÓBIN 

EXT 

20 "5СК«94190:КОАре”957В09; BG=$3F 101 Н5С=РЕ 

ЕК ($404Е) *256+РЕЕК ($4042) 

ЗӨ 'INIT@ISC=@)RO=1l/KITSU=4/ INC=0 

40 'INIT1/KKY=OJKF=0JFX=3SOBIFY=64JFW=1liIF 

H=18FT=ー11F ビ = く 1 SF=OICX= さ GBICY=1541CH=18C 

Ms91CT=11CC= さ 1 CKF=G1CCT=CTIT マ =OI EN=0 DOT 
=1691 11M=OISPF=18GPFF=1 

50 "1=HODLRO, ら 5]1 IF 1-0 THEN 1«5ІҒІ)ЗЕСе3 
5o-5or18BGGm91INT=44T し =591 PSGL 日,$FF JI PSG 
(7,ФЕС11Р508(12,51:С1871РИТКОАрГ2 

б 'LOOFP14IF ТІМ>29 THEN РОТІССХ,СҮ,СХ+25 
СҮ%11,7,09,36,9ЗЕШЙЕЛІРІНІҒ KF>@ THEN IF 

SPF=1 THEN MAITL5 の 9]IFIIKY=KKYIGOTU KEYIF 
1 

70 "kY=BET8 IF KY=32 THEN IF SFPF=O THEN 8 

PF=11SPFF=1 ELSE SPF=O1SPFF=OIFIIKY=oIFI 
IIF KY=@ THEN KY=KKYIFIIKKY=KY 

Өө "IF SFF=1 AND SBPFF=1 THEN SPFF=Ə@JWAIT 
(191:6070 LOOP2 ELSE SFFF=1iFI 

99 "KEYIIF FM=O THEN FW=1 ELSE FM=oIFIIP 

FP=FXIQO=FYIIF KY>49 AND КҮ<57 AND МОЮГКҮ 
.21-0 THEN H=(KY-50) /2:МОУЕГЕХ,ҒҮ,ЕН,Н,К 

Е,ЕТ, ЕС, 1 НЕХеРҒҮ-ШІКЕекіғСес0ҒІ 

199 ’бБОБОСЕХ,РУ,ЕН, ЕТ, ЕС, РОХ,РИ, 1 3; РХ=Ру 

FY=niFH=RIFT=1FIFC=CDI BGHE 23 JUDGEL 23 IF J 

UD=1 THEN GOTO DEATH ELSE IF JUD=2 THEN 

GOTO ЕЕНІЕНПЕТНЕ О0Г=@ АМО ВООТ=© THEN 

8010 CLEAFIFI 

110 ’LOOP2SIF ТІМ2Ө THEN IF ГІМе19 THEN 

FUT2[CX,CY,CX+23,CY+11,@, 108, CHIC (CH*2+C 

М) JIFISTIM=TIM-1FWAITC 2011 GOTO EEEIFIIIF 
FW AND SPF=@ THEN МА1Т1192400Т0 EEESFI 
120 ’IF ССТ<ОСТ THEN T9moIFIIIF CM=O THE 

N CW=1 ELSE CW=@IFIIIF CKF >d THEN HC=HCC 
160710 CMOVES FI 

159 "IF ЕТ<ОСТ THEN T9=GIFIIIF 19 THEN G 

OTO INiFIIIF FT=CT THEN l19=1;CCT=CT;GOTO 
INIFIIIF ЕС>СС THEN GOTO ロ UTIF18IF ҒС<С 

С THEN GOTO ІМІҒІ:НСе5 GOTO СМОУЕ 

149 ’ IN} IF CH=1 THEN GOTO UP ELSE IF CH= 

2 THEN GOTO DOWN ELSE IF CH=@ THEN GOTO 

LEFT ELSE GOTO RIGHTIFISFISFI 

159 "OUTIIF CH=1 THEN GOTO DOWN ELSE IF 

CH=? THEN GOTO UP ELSE IF СН=@ THEN GOTO 
RIGHT ELSE 6010 LEFTSFISFISFI 

160 "UPIIF СТ=! THEN HC=3 ELSE HC=OIFIIG 

OTO CMOVE 

170 'DOWNJIF CT=1 

ТВОТО CHOVE 

180 'RIGHTIIF CT=1 THEN HC=2 ELSE HC=1IF 
118010 CMOVE 

199 "LEFT3IF CT=1 ІНЕМ НС=1 ELSE HC=25FI 

200 "CMDUVE』HCC=HCIPP=CXIDQ=CYI IF EN=@ TH 

ЕМ EX=CXIEY=CYIFIJIF НС<5 THEN МОУЕГСХ,С 

У, СН, НС, СКЕ ‚ СТ, СС, 614 СХ=Ру СУ=0 у СКЕ=КУСС= 

CO;F1 

219 ”GOGOLCX, CY, СН, СТ, СС, CHIC, CW, © 23 СХ=Р 

ICY=QI CH=R§iC1=TF i CC=CO JUDGEL J4 IF JUD=1 
THEN GOTO DEAIHIFI 

220 ’А=5СК: (ЕХ-В) /12+ (ЕҮ-4) /6*50) $ ТІМЕГ1 
1ІЕ MODCTS, INTI=0 AND EN=0 AND DOT>@ AND 
A> さ AND СС>1 THEN PUT2LEX。EY。EX+2 さ 。EY+1 
1,0, 108, $56С0141Е А=5 THEN DOT=DOT-15FII 

ЭСК: (EX- 日 ) /12+(EY-4) /6*50 ) =31Е\/=11ЕМ= 11 Е 

F=11SECF =SECIEGG=$ さ 6CO』PPP=EX О00-ЕҮ) BDO 

Те4ЕІ 

250 'EEEJ1F ЕМ20 THEN SECF=SECF-16IF SEC 

ЕчТі THEN EBG=$ さ DBCIPUT2LEX,EY,EX+2 さ 。EY+ 
11,0, 1 6 日 まさ DBC]IFTIIF БЕСЕ<Ө THEN GOTO В 

OMBIFIIFIIGOTO LOOP1 

240 'ВОбОГР7,1 р 021 Ке 53 ТЕ 41 C0=455 бат 

Ze1WF=Z7)1F Као THEN GOTO RQ ELSE IF Rm1 
THEN GOTO Ri ELSE IF R=2 THEN GOTO R2 Е 

LSE GOTO R3IFIIFIIFI 

250 "КіРІР CHECKC-12,01=1 THEN IF СНЕСКС 

0,121=1 THEN GOTO T3IFI IF СНЕСКІО,-61-1 


THEN HC=@ ELSE HC= さ 5FI 


EGG BOMB ソー ス ・ リ スト 


250 "К241Е CHECK[24 。 ら ]=1 THEN IF СНЕСКГО 
‚121=1 THEN GOTO TIFI IF CHECKCO, -61=1 
THEN GOTO TOIFIIFIIP=F+124GUTH GO 

270 "Т5іК-30-0-2405070 GO 

280 "ToWRK=o8Q ロ =mQ+61BOTO GO 

299 "RG IF СНЕСКІӨ,121е1 THEN IF СНЕСКІ- 
12,9]=1 THEN GOTO Т2ҒІРІР СНЕСКІ24,01е1 
THEN GOTO T15FIIFIIQmQ+6IGUTO GO 

300 ”К5ІІЕ СНЕСКГ®,-61=1 THEN IF СНЕСКС- 
12,0]=1 THEN GOTO T28FIIIF CHECKC24,01=1 
THEN GOIO T18FIIFIIQeQ-68GUTD GO 

мо "1T1IRm18PmP-128BOTO GO 

$20 'T21R=2/F=P+12 

550 ’ GOS J=SCRı (FP-8)/12+(QQ-4)/6%50)J IF 

Z8=1 AND J=3 THEN BDOT=ġ0; EN=0} PSCCRO*10] 
ТВОТО РОВУЕТУТЕ J=5 AND Z8=1 THEN DOT=DO 

T-19PSCCRO11 GOTO PQRIFIIMRITE19]8GOTO RQ 


РВОХ 
340 "ROPIIF %0=0 AND J=3 THEN EF=2/PPP=F 
FIQQQ=Q0Q/EV=1IFIIIF J=5 AND Z8=0 THEN EF 
-2ІРРР«РРООПе-00; ЕУеФҘҒІНРВОХ BOXCPP, QQ, 
PP+2 さ 。 QQ+111 
350 "IF %8=0 AND EF>G THEN EF=EF-151IF ЕУ 
=@ THEN PUTI1CPPP+6,Q00+4, РРР+17, 000+9, 5, 
9,9,957411 ELSE IF EN=1 THEN PUTZCPPP,QQ 
8,РРР%23,000%11,9,108,ЕӨСІРГІНІНҒІНРИТ2 
[P,Q,P+23,0+11, 0, 108, DAR (WF+R*2) 211Ғ СНЕС 
КГО,01чФЕҒ THEN TFm-1wTFICOmCOU+18FIIRETU 
RN 
360 "HUVEIP=X110mX21 ド =X さ 1 = ん 48K ド = ん 51TFmX ら 
1СО=71С=011Е к THEN GOTO HHHIFIIIF СНЕС 
K[O0,01<>2 THEN GOTO GGG8FIIHHHIIF HmO ТН 
EN GOTO Bo ELSE IF H=1 THEN GOTO 01 ELSE 
IF Не2 THEN GOTO G2 ELSE GOTO ӨЗІРІНҒІН 
FI 
579 ’Gip IF К THEN GOTO GG11FIIIF К=1 OR 
R=2 THEN GOTO GGGIFISIF (СНЕСКГ-12, 122=1 
AND R=0) OR (СНЕСКГ-12,-61=1 AND F=3) T 
НЕМ GOTO GGGIFIIIF CHECK[9。-1 日 ]=2 DR CHE 
Uk[o, 18J=2 ІНЕМ GUIU GG1IF146UIO GGG 
38@ "BBG11P=Pー121 じ =111F Кт AND k=O THEN 
C=-15F1IGOTO GG 
390 ’ GZSIF К THEN GOTO GG2IFIIIF R=1 ОК 
R=2 THEN GOTO GGGSFISIF (СНЕСКС24, 121=1 
AND R=0) OR (CHECKE24 -6]=1 AND К«5) ІНЕ 
М GOTO GGGIFISIF СНЕСКІФ,-181«2 ОК CHECK 
г9,181«2 THEN GOTO GG2}FI} GOTO GGG 
400 "GBG23P=P+121 ヒ =15IF K=ó AND R=3 THEN 
C=-14F14GOTO GG 
419 "GOIIF K THEN GOTO GGOIFISIF R= ОК 
R=3 THEN GOTO GGG3FISIF (СНЕСКЕ24, 121=1 
AND R=2) ОК (CHECKE-12。12]=1 AND К=1) ТН 
ЕМ GOTO GGGFISIF СНЕСКС-36,01=2 ОК СНЕС 
K[34,01=2 THEN GOTO GGOIFI GOTO GGG 
420 ’ GGO} em ロ +66Cm18IF K=O AND R=2 THEN С 
--1:Ғ1%60Т0 GG 
450 "G38 IF К THEN GOTO ӨӨЗІРІШІҒ R=0 ОК 
R=3 THEN GOTO 666321312 (СНЕСКГ24,-61-1 
AND К=2) ОН (СНЕСКІ-12,-61-і AND Rm1) ТН 
EN GOTO GGGIFISIF СНЕСКГ-36,©1=2 ОК СНЕС 
KE3 ら 6,9]=2 THEN GOTO GG3IFI} GOTO GGG 
449 ’GG3; Q=Q-61C=1} IF K=O АМ) Ке1 THEN С 
=ー18FI 
459 "BB IF KeQ THEN CO=CO+C*TFIFIIK=F+1J 
IF K= さ THEN KmOj IF Z8=1 THEN ККҮжФІРІШҒІ 
440 "BBG3 RETURN 
470 *JUDGE§ JUD=0; IF FX=CX AND FY=CY THEN 
IF CT=FT AND FC>1 THEN JUD=2 ELSE JUD=1 
FIFI RETURN 
480 'DEATHIPSGL7,7]}PSGC6, $1F]}PSGC11,11 
IPSGC12, 50); PSGC13, 01} FOR 1-0 ТО 198BOX[ 
FX,FY,FX+23,FY+11 13 PUT2[FX,FY,FX+23,FY+1 
1,0, 108, $3Е7 5 1 NEXT} DEATH1IKITSU=KITSU-1 
IIF KITSU=@ THEN GOTO OVERIFIIFOR 1-09 ТО 
MAITE15 ら 18NEXTIBOTO INIT1 
490 " ロ VERIMQITE さ の 9]5 IF SC>HSC THEN 5УМВО 
1с176,80,4,5,6,0,0,9, "НІ-ЅСОКЕ! " 13 NAME IN 
РЕЈ ELSE SYMBOLC176,80,4,5,2,09,0,9, "GAME 


aaa лына; ыыы aoa айы 


リス ト 2 EGG BOMB 


рТлтпск ТТІ ТАТТЫ Т ТАН ТӘТТІ 
THEN GOTO T@IFIIFliF=F-12/6G010 GO 


OVER" JU MUSE $3F93,481JIFIILOC[ 12, 1418 ?"НТ 


Т [RETURN] KEY. "JWHILE J<>13;J=GET;WENDJ 

Арт %404Е:СРОКЕ AD, HSC#s CODE $35, $FF 

500 ”МАМЕІМРІ МИ8СӨЗЕСЗ, 15024 10С75, 011 7%5 

, SCILOCC13, 014 PSFC® (6) IFOR 1-0 ТО 5rA=%/ 

WHILE Amo LOCC 13+1, 921?" "У МАТТЕ 2018 AmGE 

TILOCC 13+1。918 で" "IMAITE2O11 WENDI IF A=13 
THEN A=32IFIJNA:I)=AJLOCCX13+I,@1lI?CHF9 ( 

A) I NEXT} HSC=SC4 RETURN 

510 'EATITIM=40JEF=0JFSCL1001lIBOXLCX,CY, 

Схж25,СҮ%112:8070 LOOP1 

520 "BDMBIPUT2LEX。EY,EX+23,EY+1 1 。 0, 108, $% 

372C14PSGL7,711PSGC6, $0OF]}PSGC8, $1611 PSG 

C11,0]}PSGC12, 1015PSGC13,01}GOTO DEATH1 

550 'CLEARIPP=FXIQQ=FYIGOGOLFX,FY,FH,FT, 

FC,FOX,FW, 1J} МАТТЕ 30014 SYMBOLI 160, 80, 8, 5 
, 4,0,0, 5, "CLEAR" 13 MUSC $3269, 4223208 1-0 

ТО SIWAIT[100JINEXTIRO=RO+1IFOR 1-1 ТО 5 

@I?/CHR% (24) INEXTIGDTO ІМІТІ 

540 'BGFMIBGMMiA=BG:BGG)JIF A=$FF THEN BG 

G=0} GOTO BGMMI F I I BGG=BGG+1 3 PSGLO, A14 PSGE 
13,01} RETURN 

550 ” PSG} POKESFDOE, 411 POKESF DOD, 34 POKE$F 

рер, 91 POKESF DOE, 424 POKESF DOD, 2} POKESFDOD 

‚ OF RETURN 

560 "ТІМЕІНІТІ2ІРОКЕ $FC82,%3EJSUBLJjHLT 

[1 TS=PEEK (WFCB7 ) 3 PDKE $FC60, 9804 BUB[ JIT 

S=TSIRE TURN 

570 "Р8С)8Се-8С%%1110С051,0247%5,9С IF SC 
22000 AND INC= THEN FPUTEKITSUJiKITSU=K 
ITSU+1)FOR I=@ TO 44Р88(9,4814Р80115,91% 

МА1ТЕ 703 3 МЕХТУ INC=1JF 1 J RETURN 

580 "BOXIHLT[ ]5CPDKE ADDR, $15,0,0, 41#, 42 

#, 3#, Z40, 21 SUBC 1F RETURN 

590 "СНЕСКІ DMY=ROAD: (P+41-20) /12+(@+%2-1 

ө) /6#50) 1 DMY=DHYI RETURN 

500 ’WAITIFOR W=1 TO Х1:ҒОН WW=1 TO 1904 

NEXTINEXTIRETURN 

610 "PUTRDADI SYMEOLC 248,19, 2,3, 6, 0,0,9," 

EGG BOMB" JFPUT2C 3O0, 25, 323, 36,0, 108, $3D 

всі 

620 "ImOiFDR У=10 ТО 184 STEP IFOR X=20 
ТО 608 STEP 121A=ROAD:I)}IF Ат! THEN PU 

ТИХ, У, Х+11,У+5,1,0,9, #579823 211 1Е A=5 Т 

НЕМ РИТ1ГХ-6,У-2, +5, У+5,5,0,9,$37А1 211 
ISCR: 1) =Ау1=1+19 МЕХТУМЕХТ 

650 "(0С12,01:7"Н1 ",%5,Н8С,0410С112,924 

2" ("РОК 1-0 TO 5/?CHR%(NA:1)) NEXT 7") " 
ILOCL25」911 で "SCORE "IF 8С>20 THEN ?,%5,8 

CIFIILOC[ 36,011 90 

640 ’LOCE3, 2411 ?"ROUND ",W2。RDIFDXPUT] 

450 ”РИТ2ІСХ,Сү,СХ%25,СҮ%11,9,198,СНІС(С 

Hw2+CM) ]1PUT2LFX。FY。FX+2 さ 。FY+11。 の 。 108,FO 
X (FM+FH2) 13ҒОК 1-9 ТО 14МУ8(%3Ғ51,2419М 

EXTIWA1T[ 20014 RETURN 

689 'FOXPUTJIF KITSU>1 THEN FOR I=1 TO K 
ITBU-1』FPUTL TINEXTIFIIRETURN 

579 "ЕРИТІРИТ2г590-22%Х1,199,619-22%Х1,1 

99, 0,75, SSE28 1 RETURN 

“ABO 'CLSIHLTLJICPOKE ADDR, $01, û, 40, 25,0, 

25, 0, 1, Of SUBE 11 RETURN 

690 'PUT1IAD=Z8JHLTLJICPOKE ADDR, $1C, 1# 
,72%,75%,74%,75,Х5,%71ҒОЖК Ta=@ TO 77-144 

DDR: ТА) =ADı ТА) INEXTI SUBE 11 RETURN 

700 "PUT2I AD=X7IHLT[ J$ СРОКЕ ADDR, $1E, 41# 
.72%,750,%4%,0,75,%6ІҒОК TA=0 TO X6-11AD 

DR: ТА) =AD: ТА) INEXTISUB[ 23 RETURN 

719 "LOCIHLTE ICPOKE ADDR,3,3,912,X1,221 

SUBC 14 RETURN 

720 * MODI DMY=%1-%1/%42#7%21 RETURN 

730 ' SYMBOLI AD=X9IHLT[ 1 СРОКЕ ADDR, $19, 7% 

5,7%8,77,75,%4,71%,72%,784ҒОК TA=0 TO %8- 
11 ADDR: ТА) “Аі TA) $ NEXT 3 SUBE 14 RETURN 

740 "МИ8іМе714Р5019,91013Р56(8,9192Р50Г 

7,%ЕС1)Р5012,192%ҒОЖ X=@ TO %2-1 STEP 3 
IFOR У=© TO 11PSGEYx2,MiX+Y) 1} PSGC13,0)4 

NEXTIWAITCM:X+2) «813 NEXTIPSGC?, 011 RETURN 

750 'HLTICODE $B, $FD, $05, 928, $FBIPOKE $ 

FDOS, $80 CODE $B6, $FD, $05, $2A, FBI ADDR=$ 

FCB2IRETURN 

740 'ЗИВУРОКЕ $FDOS, Ө RETURN 


kedd KESE 
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412, 


リス ト 2 EGG BOMB マシ ン 語 リス ト 


ЕВ 3F FF 3F FF EQ 


画 PiO 読者 アン ケー ト 回 答 よ り -. 
PiO と て も 気に入り まし た . B 誌 と 変え て 毎月 買い た いと 思い ます . PC-1500 の プロ グラ ム を だ た くさ ん お 願い . FE: SRE 


Рю 


Add 

3EQQ 
さ E19 
さ E29 
ЗЕЗӨ 
ЗЕ40 
5ЕЗФ 
さ E69 
3E79 
ЗЕВӘ 
さ E99 
ЗЕЙ@ 
SEBO 
JECO 
JEDO 
ЗЕЕФ 
JEFO 


биті ED 


Add 

さ FG9 
さ F19 
さ F29 
さ F さ 9 
さ F 49 
さ F59 
さ F 69 
さ F79 
5ғво 
さ F99 
ЗЕ ВО 


リス ト 2 EGG BOMB マシ ン 語 リス ト 


+B 
еө 
74 
57 
74 


ӨС Ві ЕА 


+A 
ов 
61 
оо 
18 


+B 
82 
ЕЯ 
19 
Фв 
74 


ЕНЕ у スト 3 EGG BOMB BASIC U 2 ト Gü 


19 CLEAR さ 9G 。 &H2FFF: WIDTH40, 251 DIM FX(53) 
.СХ(55),ЕХ(55),5%(5) 

20 FOR I=tH4070 ТО &H4075:READ А: РОКЕІ, А 
INEXT 

50 DATA 90,79,78,68,65,71 

40 A=3: B232 

50 IF PEEK(&H さ GO97) く >66 THEN BEEP:PRINT"F 
7-7(95000-9404С) h` アリ マセ フ 。 "зЕМО 

80 IF РЕЕК(ҺН50900)< >52 THEN BEEPIPRINT" う 
ンタ イム ・ 上 ルー テン h フー レー ェクト (人 $4DOO-$6FFG) n" アリ マ 
со. "1 END 

70 T=@:FOR I=kH36C@ TO &H さ 72B STEP2:V=VA 
АРТЕ (ЕХ (Т) ) 1 POKEV, VAL ("&H"+HEX$ (PEEK (1) ) 
) 』 PUKEV+ 1 , VAL ("kH"+HEX$ (РЕЕК (1+1) ) 1 Т=Т+ 
1: NEXT 

Вә Т«діҒОН 1=&H さ 7A1 TO &H37A9 STEP2:V=VA 
RPTR (57. (Т) ) 1 POKEV, VAL ( "Н" +HEX ® (PEEK (1) ) 
):POKEV+1,VAL (" Н" +HEX ® (PEEK (1+1) ) ) 』TmT+ 
1: МЕХТ 

90 T=OıFOR 1=&H さ 43 日 ТО &H34A3 8ТЕР2:УеУА 
ВРТК (СХ (Т) ) 』 POKEV, VAL ( "&H"+HEX る (PEEK( 1 ) ) 
) 』 PUKEV+1 。 VAL ("&H" +НЕХФ (PEEK(I+1)))iT=T+ 
1. NEXT 


100 ТедіҒОН I=&H3000 ТО &H さ SO6B ЗТЕР21 У=\У 


GE 


京都 市 迎 夢 快 人 


110 
120 


159 
140 
8." 
150 
160 
170 
180 
199 
200 


210 


220 


230 
240 


ARPTR (ЕХ (Т) ) 1 POKEV, VAL ("kH"+HEX$ (PEEK (T) 
) ) 』 PUKEV+1 。 VAL ("kH"+HEX$ (PEEK(I+1))):T=T 
жізМЕХТ 


CLS: SYMBOL (50,0), "EGG ВОМВ",8,8,1 
COLOR4 : LOCATE7, 91 PRINT "ШЖШ ADVANCE 


TABLE mamam 


РОТ@А (56, 198) -(79,119),Е%,РЗЕТ 
COLOR7t LOCATES, 14: PRINT"ROUND#100 PT 


PUT@ (69, 158) – (80, 145),3%,РЗЕТ, 5 
LOCATE6, 171 PRINT "ROUND# 10 PTS." 
PUT@A (56, 156) - (79, 167) ,C%,PSET 
LOCATE11,20:PRINT"1000 PTS." 

PUT&A (492, 110) – (515, 129) „Р, PSET 
(ОСАТЕЗО, 121 PRINT" [8] "sLOCATES1, 13:P 


RINT" |" LOCATE26, 15: PRINT" C41]-" 1+ LOCATESS 
s 154PRINT"ー[6]"』LOCATE さ 1 , 178: РАТМТ" | “tLOC 
АТЕЗӨ, 18: РКІМТ"Г21" 


LOCATE33,21:PRINT"SPEED" 1 COLOR13:LOC 


ATE26,2@:PRINT" SPACE KEY "ıCOLOR7 


LOCATE 19。 24』PRINT "セリ メイ h` ヒ ウ ヨウ Fan 


СҮ/М1?"41А9-ІМРИТ9Ө(1) 


IF АФС>"Ү" AND АФ<>%у" THEN 310 
LINE (9,72) -(439, 199) ,PSET, ©, ВЕ 


伊丹 市 いも 男 


п 4 Бе 
1Е 


250 і ОСАТЕ4, 9:РКІМТ" 2° 27 №. ли" х 
432. "1 LOCATES, 111РКІМТ"20000 72 77. 

4% 7172." 

2609 LOCATE4,1 さ 』PRINT"・ ニ こり ト リ = オイ ウフ ト 、 1000 
テン そう エマ ス 。"』 LOCATES, 15』 РАТМТ" 99" и マン ナカ ノ 
з-д FN. MARTI." 

270 (.0САТЕ4,17іРБІМТ".-?ҺУ ñ N" 29-5 932“ 
(6927) ウミ マス 。"』LOCATES。 19: РАМТ" 735" N 
アカ ニニ ナル ト N" NYT" 

280 LOCATE4。21』PRINT"・ タ マコ" 9 t27" N° Wh 
1 メン ウリ ア Жа." б 

290 LOCATE20, 24: PRINT"HIT ERETURN] KEY." 


' 

300 A%=INPUT%(1):IF A%<>CHR%0(13) THEN GO 
то 300 

510 POKE&H404E, А: РОКЕКН4ОАҒ,В 

520 EXECLH5000 

330 А=РЕЕК (&Н404Е) 』 ВерЕЕк (&H404F ) : GOTO 1 
10 


岡山 市 古 須 茂子 さん 
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MZ-80 日 |G-HAM I 


WICS 


経歴 も バッ ク も , 失う も の も な いい 一匹狼 
・ 北 野 晶 夫 . 天性 の 美貌 を 武器 に , 上 流 社 
会 の 女性 達 を スポ ン サ ー と し て 二輪 レー ス 
に すべ て を 賭け る . 

この ゲー ム は 1982 年 12 月 東映 系 で 公開 さ 
れ た 「『 汚 れ た 英雄 』 を 参考 に し まし た . 内 
容 は 画面 上 の オー トバ イ を 操っ て , スズ カ 
・ サ ー キ ッ ト の ラッ プ ・ タ イム を 競う こと に 
あり ます . 即ち , ゲー ム 進 行 は タイ ム ・ ト ラ 
イア ル 形 式 で 行なわ れ ま す . 

また , リ アル タイ ム ・ ゲ ー ム と し て 計算 等 
に よる 処理 速度 の 低下 を 嫌う 理由 か ら , + 
デー キット ・ ヨ ー ス は デー タ と し て スト ア し て 
あり ます . 

で すか ら , オ リ ジ ナ ルコ ー ス ・ デ ー タ の 作 
成 に よっ て , 多様 な コー ス を 楽し むこ と も 
で きま す . 


プロ グラ ム の 
a)ROAD デ ー タ の 制作 


SB-5520 を 起動 し , リス ト 1 の コー ス ・ 
デー タ 作 成 プ ログ ラム を , 間違い の な いよ 
АЛЕ & ү, 

RUN す る と, データ 作成 1, 再生: 2 
? で 入力 待ち に な る の で [|/ を 入力 し 
ます . コー ナー の 数 は ? で 19 を 入力 する 
L, No. 1 と 表示 され , カー ブ の 半径 (R ) 
Left (一 ) 7 で 100 を , 直線 の 距離 (L) 
0or1 2 で 0 を 入力 し ます . 続け て No.2 
と 表示 され … 

後 同様 に , 表 1 の コー ス ・ デ ー タ を 基 に し 
て 入力 し て いき ます . No. 19 ま で 入力 し 終 


わっ た ら , デ ー タ 作成 が 開始 る され ます . なお, 


デー タ の 数 値 は 表 1 を , 
この ハン グ オ ン が 


コー ス に 際 し て は 
渋い の だ 
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PE 
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| 
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図 5 を 参照 し て くだ さき さい. 

デー タ 作 成 が 終了 し た 後 , [町 で プロ グラ 
ム を END し ます . 次 に MON で シス テム を S 
B-1520 へ 移し ます . S37 FT ROAD” 
を セー プ し ます ず す (《( 図 1)、 


ЖІ コー ス ・ デ ー タ (サブ プ 用 ) 
カー プ の 総数 = 0 一 19 コ 


— — — © © © © © © — — © © © © © ©о © о | 


= о о > с со 
мене с елән 2 сос о 05 


1 “ROAD" の セー プ 


FIFE NAME : ROAD 
$-АОК. $ 8000 


EーADR.$ 8FFF 
JーADR.$ 1500 


(ж) 


стаз 
b) プ ログ ラム の 合成 と 
コン パイ ル 

WICS を 起動 し , MON で シス テム を TS 
-1000 へ 移し ます . “ROAD” を ロード す る 
t, シス テム が イン タープ リタ へ 戻る の で 
続け て リス ト 2 の ソース? を 入力 or, п 
ー ド し RUN し ます ( 図 2). 行 番号 10010 一 
10050 を 削除 し ます ( 図 3). 再び MON で シ 
ステ ム を TS-1000 へ 移し , コン パイ ラ を ロ 
- F, コン パイ ル し ます ( 図 4). 

コン スパ イル が 完 子 し だ ら 5 76, 0.17 と 


еч U (END +.. 
whenever you like to start. 


ここ て , ж58000, 8FFF, 9000, SUZ 
UKA と LT, 鈴鹿 コー ス の デー タ を セーブ 
て な いそ も だ きい 


図 2 ソー ス の RUN 


RUN 
Break in 10050 


図 3 行 の 削除 
DELETE 10010, 10050 


C R) 


4 コン バイ ル 


Source Program Address 
Object Program Address 
Working area Address 
Address Table (Y/N) 
Pass (2/4) 


ゲー ム の 初め に MUSIC が 流れ ます . 曲 が 
終わ る と , コー ス が 紹介 る きれ ます . 同時 に . 
“Push апу Key” と 表示 きれ る の で , Hf 
き な と き に キー を 押し て くだ さい .[] を 押す 
と ゲー ム は スタ ー ト し ます . 

ォ ー ト バイ の 操作 方 法 は 画面 で も 説明 が 


ある よう に , 3 種 の キー で 操作 で き , 非常 
に 簡単 で あり ます が 。 次 に その 働き に つい 
て 説明 し ます . 


⑯ キ ー を 押し て いる 状態 で は . アク モル 
ON (inik). キー を 離し て いる 状態 で は . 
アク セル OFF (減速 ). 

@[4 で 左 へ , [aj で 右 に 傾く . 

この と き , 傾 《 度 合い は お お ま か に , А 
ビ ピード に 反比例 し て いま す 。 し た が っ て 。 
だ た と えば [4 を 押し 続け た 場合 、 傾く 
が 小さ きく 。 遠心 力 の 方 が 大 きく な る 結果 。 
カー プ で は オォ オー バー する . 上 離し た まま だ と 、 
アン ダー に な り ま す 。 

ӨГЅРАСЕ) を 押す と , 傾く 度合 い は で ロ に 
な り ま す . 

LLE: 


ө: A 
度合 


3 つの 点 に 注意 し て コー ス を 一 周 


36: D. 2" Ада, в РЕЗ. し て くだ きい . ゲー ム は , オー トバ イ が 画 
ж 56000, АЕВА, 9000, ヒデ オ と す 面 か ら 大 幅 に は み 出 し た 場合 を 除き ,、 コー 
れ ば で き あ が り で す . ス を 一 周 す る まで 止ま り ま せん . 
画 PiO 読者 アン ケー ト 回 答 よ り . 
面白い リア ル ・ タ イム ・ ア クタ クション ゲー ム や アド ベン チャ ー ゲ ー ム を ぜひ 載せ て くだ きい . 載せ な いと も う 買 わな い ぞ グ 三重 ・ 水 谷 君 


оо 


と も 違っ た 面白 味 や 与え を る こと で し ょ う . 

まだ まだ 勉強 不足 で 恐縮 で す が , СФУ 
フト が 少し で も 参考 に な れ ば 幸い で す . 
参考 文献 


な お , カ ー ブ を クリ ア す る た だ た びに, 1 st と 
並べ て タイ ム が 表示 きれ る の で , 自分 の タタ 
イム が どの 程度 な の か 一 目 で わか り ま す . 
一 周 し た 後 , あ な た の ラッ プ ・ タ イム が 10 位 


以内 に 限り 記録 に 残さ れ ま す . 1 位 の タイ この ゲー ム で は , 敵 が いな い の で テク ニ 1) 佐々 木 哲哉, 高橋 順 -- : “РОТ EDITOR 

ム を 出す と , 魅力 的 な 女性 が 現われ , 勝利 ッ ク が 充分 発揮 で きる こと と , RND を 使 (WICS) ”, 170, 7824109 

者 の み に 休 上 息 が 与 た られ ます . 用 し て な い の で テク ニッ ク と 成績 の ギャ ッ ОО 
1 


ЫЧ С Е 3 T. 
また だ た, コー ス ・ デ ー タ が サポ ー ト され る こ 
М6 メモ リ ・ マ ッ プ M7 オー トバ イ の グラ フィ ッ ク ・ パ ター ン 


ブロ グラ ム に うい 


コー ス ・ デ ー タ 作成 に は 数 値 計算 が 主 な の 
で SB-5520 を 使い ゲー ム 本 体 は WICS て , 
と いう 構成 に な っ て いま す . 

プロ グラ ム は イン ター ブリタ で も 一 応 動 
(DT, 説明 の 詳細 は 必要 な いで し ょ う . 
с SUZUKA РЕ 
タ に つい て 説明 し ます ( 表 1). WICS コン >* 
イラ に よる オプ ジェ クト と デー タ の メモ リマ 
ッ プ "を 図 6 に 示し ます . これ を 見 れ ば わか 
る よう に , アド レス 番号 $8000 一 $ 8ЕЕЕ 
сә, ゲー ム に 必要 な デー タ を すべ で て 納め 
て いま す . また , デー タ と ソー ス の 間 は 行 
番号 10010 一 10050 で 結ば れ て いる の で , Ж 
た に コー ス デ ー タ を 作成 する 場合 は この 部 
分 も 入力 し 直 き な けれ ば な り ま せん . 表 1 
を 参照 し て も ら ぇ えば, その 関係 が よく 分 か 
る は ず で す . 

な お , $6000 一 $ 747F の デー タ は , 入力 
し な く て も ゲー ム に 影響 あり ませ ん . 


図 5 鈴鹿 サー キッ ト 概 略図 


還 還 トト 1 コー ス ・ デ ー タ 作成 プロ グラ ム ・ リス F musu 


240 FDR N=1 ТО А2 tGOSUB 10100:МЕХТ NIR 520 DIM 0Х(10),0Ү(10),8Ү(10),82(10),ТХ( 


КЕМ 


11 КЕМ | 3D-GRAPH ROAD-RACE I EM INPUT 10),ТҮ(10) 

12 REM | 97-7 サフ セイ Program I ЗОО КЕМ 9264 "ait" 550 DIM 72(10» 

15 КЕМ | 83.2.13 I 502 し (A2) =1 552 КЕМ START 

14 REM | bu Мазао.М 1 510 N=O! GOSUB 10200 554 GOSUB 10600 

15 REM 320 FOR N=1 ТО А2: 80508 10300:GOSUB 102 536 IF L2(0)<=0 THEN STOP 

20 PRINT CHR%(6) 001МЕХТ N 558 FOR №=1 ТО L2(0) 』 GRAPH Сі GOSUB 200 
50 PO= さ 276BIREM PD=%B000 %%%%%%5%32%%% 522 GOTO 410 00:МЕХТ Né 

100 REN HADIN — ج‎ ささ O_PRINTCHRW(6)』PRINT" R1 LR 540 FOR NN=1 ТО А2 IREM \№-7° 3335333353 
110 БОБОВ 10000:1Е A1$="2" THEN 50000 D ы [11111111111111111111 

200 REM DATA 5707 340 FDR №0 ТО A2IPRINT " "JRICON) р" 550 РОВ М1=7 ТО O ВТЕР -1 :КЕМ E 
210 PRINTCHR$(6)1CURSOR Br6rPRINT "コー ナー "вм у" "Ум р" У 1 (М) INEXT m?tu 3 curve 


552 IF N1=O THEN 580 

560 РОК N2=1 ТО М1 

570 ОХ(М2) «М2%2:0Ү(М2) =OINEXT М2 

580 FOR N さ =1 TO В-М1 :N4=N3+N1 

590 QY(N4)=QY(N1)+R(NN) *( 1—CD5( 2$N3/R(N 
N) ) ) #LR(NN) 
600 ОХ (N4) =QX(N1 ) +Р (ММ) *BIN( 2*N さ /R( NN) ) 
810 NEXT № 


2 зя“ N) "JIINPUT А2 

220 DIM L(A2),R(A2),LR(A2),D(A2) 

222 DIM L1(A2),R1(A2),L2(A2) R2(A2) 

224 GOTO 252 

250 CURSOR 5, 101РКІМТ"БТАТ ~ コー ナー / Фа) 
(L) ñ "%11МРИТ L(O):CURSOR 5,101РКІМТ" 


N 

410 №0: GOSUB 10400 

420 FOR N=} ТО А2 1GOSUB 10400: GOBUB 10 
SOO:NEXT N 
499 GOTO 510 
500 БТОР: 


КЕМ サフ セイ スタ ー ト 


252 L(O) =16』 CURSOR 27, ӨІРКІМТ"Мо. 1" 510 GRAPH 11,01 


65 


Ріо 


リス ト 1 
620 GRAPH C:GOSUB 20000 
621 GOSUB 24000 

622 NEXT Ni 

624 IF R2(NN)=1 ТНЕМ 640 

650 FOR N5=1 TO R2(NN)-1:GRAPH С: GOSUB 
200001NEXT NS:REM — curve 9 *a7tt> — 
640 IF L2(NN) =O THEN GOSUB 10700:GOTO 6 


650 FOR N1=7 TO 1 STEP -1 
660 FOR N2=1 TO N1 
870 QY(N2)=R(NN) $ ( 1—C0S(2$N2/R(NN))) $LR 


672 QX(N2)=R(NN)%SIN(2#N2/R(NN) ) 

680 FOR N3=1 TO 8-N1 :N4=N3+N1 

700 QX(N4)=QX(N1)+(QX(N1)-QX(N1-1))#NS 
702 QY(N4)=QY(N1)+(QY(N1)-QY(N1-1)) №; 
710 МЕХТ М3 

720 GRAPH C!GOSUB 20000: BODBUB 24000 

722 NEXT N1 

750 GOSUB 10600 

740 FOR N5=1 TO L2(NN):GRAPH C:GOSUB 20 
ООО1МЕХТ NS 

790 NEXT ММ: КЕМ $3433333333333333333333 
Кики ии 

792 БОТО 9999 

0 a T کک‎ 
810 FOR №5=1 ТО L1(A2)-L2(A2)+1:GRAPH С 
』BDSUB 20000:NEXT NS 

9999 GOTO 50 
10000 REM チー フル 
10010 CURSOR 12, 9tPRINT"DATA 7701 ... 1 
"s1 CURSOR 12, 11:РАТМТ"ОАТА 9454... 2"1С0 
RSOR 12, 1З: РКІМТ "ЕМО ......... E" ICURBOR 
11,171РКІМТ"Рияһ select kes 7" 

10020 ВЕТ 81% 11Р (Al%#="1")+(A1%="2") Т 
НЕМ MUSIC "+AO":PRINT CHR%(6): RETURN 
10022 IF А1%-"Е" THEN РКОМТСНКФ (6) t END 
10030 GOTO 10020 

10100 REM INPUT —— 
10110 CURSOR 8,101РКІМТ"2-27 ノー ハン ケイ (R) 
Left(-) "şt INPUT КОМ) 

10112 GOTO 10140 

10120 CURSOR B,121PRINT"Left(-1) оғ Rig 
ht( 1) "#tINPUT LR(N) 

10150 CURSOR 8,14:РКІМТ"2-7 / ナイ カ 2(D) ñ 
"Ф11МРИТ D(N) 

10140 CURSOR В, 16: РАТМТ" 5:7: / *aU(L) 
O or 1 "jt INPUT L (М) tMUSIC"+AO" 

10142 IF N+1<=A2 THEN CURSOR 50,6іРБІМТ 
N+1 

10199 RETURN 

10200 КЕМ *s?t> 

10202 IF L(N)<>0 THEN L (М) =20 

10210 L1=INT(L(N)/2):IF L1<=0 THEN L(N) 
mo: GOTO 10230 

10220 L1(N)=L1:L(N)=L1(N)%32 

10230 RETURN 

10300 КЕМ コー ナー 

10502 GOTO 10352 

10310 Ri=OtR2=0: D1=D(N) #7 /180 

10520 R1=R1+2/R(N)1R2=R2+1 

10350 IF Кі=>01 THEN 10550 

10240 GOTO 10520 

10350 R1(N)=R2 

10352 R1(N)=B:IF R(N)<O THEN LR(N)=-1l:R 


RIOR yakni ытын リス ト 2 


1 РЕМ すす すす すま すま ます すま まま すま まま まま すす を すす まま 
1224224 
2 REM # 
* 
3 REM 3D- 2272 27527") 
* 
4 REM $ 
ishi $ 
5 REM # 
e) ы 
é REM $ 
* 
7 РЕМ おお すす すま すま すす る すま ます ます まま まま まま まま 
1222444 
10 GOSUB 10000 
20 PRINT %ФОВ 
100 6=5001X=159: Y=1901 GRAPH С,11,01 
101 REM #12 7*07*04 (ロー ト ~ ) 


Бы М. Mathu 


1985. 5/50 (W 


102 PRINT "®" GOSUB 20000:GOSUB 115004 
TEMPO 7:GOSUB 11700: TEMPO 5: СОКБОК 14,11 
IPRINT "Push апы Кеш." 

104 P=$8000 

105 FOR 12=0 TO NQ(O)! IF Б1(12)-0 GOTO 

114 «РЕМ #85588 DEMO まま まま まま まま まま まま 

106 FOR 02-1 TO B:GOSUB 21200: К=ІМКЕҮІ 
ІҒ к<>0 THEN GOTO 120 

107 NEXT 02 

108 FOR Q2=1 ТО R1(12):GRAPH Сі SOUND 1 
O, St GOSUB 10500 

109 K=INKEYIIF К<>0 GOTO 120 

110 МЕХТ 02 

111 IF L1(12)=O GOTO 114 

112 FOR 02-1 ТО 7tGOSUB 212004K=INKEYI 
IF к<>0 GOTO 120 

115 МЕХТ 02 

114 IF L1(I2)=O GOTO 119 

115 FOR 01=1 TO L1(12):GRAPH Cr SOUND 1 
O,5:860SUB 10172 

116 に KmINKEYI IF K<>O GOTO 120 

117 NEXT Q1 


コー ス デ ー タ 作成 プロ グラ ム ・ リ スト 


(М) =AB ヨ (R(N) ) 1 GOTO 10560 
10554 LR(N)=1 

10580 RETURN 

10400 REM ト " う イツ す ョ ウフ セン メン スウ 
10410 IF L1(N)<8 THEN L2(N) =Or GOTO 1043 
0 

10420 L2(N) =L1(N) -7 

10450 RETURN 

10500 КЕМ М" 219 コー ナー メン スク —— n 
10510 IF RI(N)<8 THEN R2(N) «0: GOTO 1055 
о 

10520 К2(М) =R1(N) -7 

10530 RETURN 

10600 КЕМ ¥a7ti DATA 
10610 FOR 1=1 TO B 
10620 QX(I)=QX(I-1)+2:QY(I)=O 
10630 NEXT I:RETURN 
10700 REM コー ナー 4 コー ナー 


10710 FOR N1=7 ТО 1 STEP -1 

10750 FOR N2=O ТО М1 

10740 QY(NZ) =R(NN) (1--CHB( 2*N2/R(NN) ) ) $ 
LR(NN) 

10750 QX(N2) =R(NN) *BIN(2wN2/R(NN) ) 

10770 FOR N さ =1 ТО 日 -NI 』N4=N さ +N1 

10771 D1=(QX(N1)-QX(N1-1))/(QY(N1)-QY(N 
1-1)) ID2=r /2-ATN(D1)!IF (LR(NN) く O) *(LR(N 
М%1)<0) THEN D2=ATN(-D1 ) -W/2 

10772 IF (LR(NN) く O) &(O く LR(NN+1 ) ) THEN D 
2ч-АТМ(01)-т/2 

10772 R1=R(NN+1)%(1-CO0S(28#N3S/R(NN+1))3L 
R(NN+1) 

10774 R2=R(NN+ 1 ) *BIN( 2*N さ /R(NN+1 ) ) 

10780 QX(N4 ) =СХ (N1) +К2%С03 (02) -R1*SIN(D 


10790 QY(N4)=DY(N1)+R18COS(D2)+R2%SIN(D 


10810 NEXT № 
10820 GRAPH C:GOSUB 200001 GOSUB 24000:М 


10830 NN=NN+1 
10840 FOR N3=1 TO 8 
10850 QY(N3)=R(NN)3(1-COS(2%#N3S/R(NN)))$ 


10860 QX(N3)=R(NN)#SIN(28NS/R(NN) ) 
10870 NEXT N3 

10872 GRAPH С: GOSUB 20000: В050В 24000 
10880 IF L2(NN)=1 THEN 10700 

10900 FOR N5=1 TO R2(NN)-1:GRAPH Cı GOSU 
В 200001 МЕХТ № 

10910 80Т0 10700 

11000 КЕМ ----------------- w... 

20000 1=0 IREM さ D ヘラ カン 


21100 FDR N=1 TO BSY(N) =(QY(N) =1) /QX(N 
} +1152 (М) =ー】 /ОХОМ) +1 

21104 МЕХТ М 

21110 FOR N=1 TO B 

21112 TY(N)=1998(1.5-SZ(N))1TX(N)=319%( 
SY(N) +.5) 

21120 IF (SY(N)<-.5)+(.5<8Y(N))+(SZ(N)< 
.5)%(1.5<87(М)) THEN 21150 

21120 TY(N) =199*( 1.5*BZ(N) ) 2 TX(N) = さ 19*( 
SY(N)+.5) 


21140 SET TX(N), TY(N) 

21150 NEXT N 

21151 RESTORE 21154 

21152 FOR N=1 ТО B:READ ZZ(N):NEXT N 
21154 DATA 159,79,52,39,31,26,22,19 
21160 FOR N=2 ТА В 

21162 W1=TX(N-1)-ZZ(N-1)!W2=TX(N)-ZZ(N) 
16050В 25000:11МЕ W1l,WY,W2,TY(N) 

21164 Мі =ТХ(М№-1) +22 (А-1) :И2=ТХ (М) +22 (0м) 
a GOSUB 2500011 1МЕ МІ, МҮ, М2, ТҮСМ) 

21170 МЕХТ М 

21180 QQ=QQ+1:PRINT "まま "90044 $3" 
21200 RETURN 

25000 КЕМ ғ“ яу ペン カン < ロー ト " > 


25010 IF (0<=М1) #(М1<3520) % (0< =ТҮ(М№-1) ) 
(ТҮ(М-1)<200) THEN МҮжТҮ(М-1):00Т0 25110 
25020 IF М1<0 THEN MX=O』GDTO 25100 
25050 IF 520<-М1 THEN WxX=319:GOTO 25100 
25040 STOP 

25100 WY=(TY(N)-TY(N-1))#%(WX-W1)/(W2-W1 
)+TY(N-1) 

22102 Wi=WX 

25110 RETURN 

24000 REM Ж” メン ペラ カン < DATA > 


24010 FOR 11-7 TO 0 БТЕР -1 
24020 PX=INT(TX(7-I1+1)#225/320) 
24050 POKE FO+I1,PX:NEXT 11 
24052 РО=РО+8 

24054 БОТО 24100 

24040 FOR 12=7 ТО O STEP -1 
24050 PY=INT(TY(7-12+1)) Я 
24060 POKE Р0+12,РҮІМЕХТ 12 
24062 РОчРОФ%В 

24100 RETURN 

30000 КЕМ DATA サイ セイ 


Р0=5278: РЕМ PO=$BOOO 4333333535 


50006 DIM 2А‹(8), 22 (8), ТХ (В), ТҮ(В): REST 
ОКЕ 30008: ҒОК Ме1 ТО BREAD 2А(М), 22 (М): 
NEXT М 

ЗОООВ БАТА 111,159, 113$, 79, 116, 52, 119, $9 
‚124,31, 152, 26, 149,22, 199, 19 

30010 РОК 11=0 ТО 7 

30020 РХ=РЕЕК (РО+11) 

30050 ТХ(11%1)«ІМТ(РХЯЗ20/225)іМЕХТ 11 

30032 PO=FO+8: GOTO 20100 

50100 БОБОВ 51000 

50110 IF РЕЕК(РО) +РЕЕК(Р0+7) <>0 THEN GO 
то 50010 

51000 КЕМ Yih" 

31010 GRAPH С 

51020 FDR №2 TO 7 

51110 M1=TX(N-1 ) -Z7( 1 1 一 N-1 ) ! M2=TX(N) ZZ 
( 9-N) iLINE М1, ZA(N-1),W2, ZA (N) 

51120 M1=TX(N-1)+Z2(11-N-1) 1M2=TX(N)+ZZ 
( 9-N)ILINE W1,ZA(N-1),W2, ZA (N) 

51150 W1=TX(7)-ZZ(2)iW2=TX(B8)-ZZ(1):LIN 
Е W1,ZA(7),0,199 

51140 Мі =ТХ(7) +22 (2) :М2=ТХ (В) +22(8) 11м 
Е М1,74(7),2319,119 

51150 RETURN 


119 NEXT 12:00Т0 104 
120 BELL IREM まま すす まま すま すす まま まま すま ます まま まま 
Lt す 31111111111311111313111111131411 
122 IF ЅР=і THEN GOSUB 11250 
125 GOSUB 11000:Р=$8000: 5=5001 X=159:8P 
=01КЕМ START --------------- 
124 IF К«"Е" THEN GOTO 21500 
128 Т1МЕ=О 
150 FOR 11-0 TO NQ(O) 
140 IF R1(II)=O THEN GOTO 170 
150 №8: GOSUB 10200: RR=R(II) РОК 15-0 
TO R1(II):GOSUB 10800: Б050В 10500: GOSUB 
106001 GOSUB 103001 SOUND 8/10%5,8:МЕХТ 
IF 11(112<20 THEN N=71608SUB 10200 
IF L1(11)<>0 THEN GOSUB 101001F=0 
GOSUB 10700 
NEXT II 
GOSUB 11100: GOTO 112 
STOP 
КЕМ メモ リー 


10009 Ll=%B8BO0O0:R=%8B40:R1=%BB80:U0=$BBC0 
101-%В8СООІ /2е%Я8С401/05-%В8СЕО1 УеФЕССО:МОƏ6 
8000: AB=wBD4O 

10010 М0(0)е19:6ТА9(АБ, "8 8$SUZUKA-G.P. 33" 
) 

10020 L1(0)=B2 111(1) =0111 (2) =0111 (5) =01 
1104) +011105) =OIL1(6) =OIL1(7) =0111 (8) =O! 
1109) =50 111010) =41 IL1(11)=O:L1(12)=O:L 
1015) =0111(14) «0111 (15) =O L1 (16) =O 

10021 11(17) =92 111(18) =66 :111(19) «42 
10022 R(O) =О:В(1) = 10018 (2) «70:8 (3) «50: KR( 
4)=-1OO1R(5)=70I!R(6)=-BOIR(7)=7O:R(B)=-1 
OOIR(9) =-20018 (10) =BOIR(11)=11OIR(12) =-2 
0:2 (1$) =2001Б{( 14) =1501К (15) =-90 

10023 В(16) =-70:8 (17) =-1000%К (1@) =-1501В 
(19) «250 

10024 R1(0)=O:R1(1)=2O:R1(2)=20O:R1I(3)=20 
R1 (4) =201: 1 (5) «201КБ1(4) «201Б1(7)е254Б1( 
B)=1O1R1(9)=1O :К1(10) =20』R1(11)=1OIR1(1 
2)=161R1(1 さ )=10 IR1(14)=1O:R1(15)=20 


汚れ た 英雄 ソー ス ・ リス F паии 


10025 R1(16) =201:К1 (17) =10:81 (18) = さ OIR1(1 
9) =3O 

10030 FDR 1=0 ТО NQ(O):U1(I)=O:U2(I)=O:U 
3(1) =O1V(1) =990+11 NEXT 

10050 БТОР 
10099 RETURN 
10100 КЕМ ¥a7ti 
10130 FOR 11=1 ТО 11(11) 

10140 GOSUB 10170 

GOSUB 10500 

10152 SOUND 5/10%10,8 

10160 NEXT Іі: КЕТОКМ 

10170 GOSUB 10800 

LINE 140,111,0,199,2111МЕ 178,111, 
519,199,24Р(0Т 159,1111Р10Т 159,113,2 
10174 PLOT 159,116, 21PLOT 159,119, 21PLOT 
159,124:PLOT 159,132, 21PLOT 159,149,2 
10180 RETURN 
10200 REM DATA OUT - 


NZ=N 

10202 FOR I2=1 TO N 

10210 ТО=РЕЕК(Р) $64 /45:Т1=РЕЕК (Р+1) 864/4 
5:Т2=РЕЕК (Р+2) $64 /45: Т;=РЕЕК (P+3) 424/451 
T4=PEEK(P+4 ) 464/45: Т5=РЕЕК(Р+5) 464/45: Tó 
=РЕЕК(Р+6) #64 /45:Р=Р+В 

10218 GOSUB 10800 

10220 BODSUB 105001127 NZ=7 THEN 805МВ 106 
00: GOTO 10282 

10230 IF 11(11-1)«О THEN RR=R(II-1):G0OSU 
В 10400 

GOSUB 1O さ OOI SOUND 5/7, 5-6:МЕХТ 12 
RETURN 

REM Кеч 1 


IF K=" “ THEN D=1:81=0:GOTO 10400 
THEN 0=2: GOTO 10410 

THEN 0= さ 』 GOTO 10420 

IF 8<500 THEN 81=81+118=81%2+85 


画 PiO 読者 アン ケー ト 回 答 よ り . 
bU, 1/0O に 負け な いく らい すばらし い 雑 


5* に し て くだ る さい. 


ЕЯ. RAB 


10550 
10360 
10562 
10364 


10364 


10400 


10402 
10410 


10412 
10420 


10422 
10500 


10520 
10530 
10540 
10550 
10560 


10570 


10580 


10590 


11040 


11042 
11043 
11044 
11045 
11046 
11047 
11048 

THEN 


11082 


------------- ーー ュー 


1," --", МОТ МЕХТЕРКІМТ "Mist 2nd Зер 


ОМ 0 GOSUB 10562, 10364, 10366 
RETURN 

PUTƏ x-B,Y-32,X+B,Y,%BE00,2:RETURN 
ХеХ- (9000/ (500-5) ) ! PUTS Х-50,Ү-25, 


Х%1,Ү, ®ВЕВО, 21 RETURN 


Х=Х+ (9000/(600-8))1РЦТЭ Х-1,Ү-25,Х 


+50, Y, $BEEO, 21 RETURN 


GOSUB 103421 IF 8<8 THEN 8=8-(8/9)1 


RETURN 


RETURN 
GOSUB 10544:1Ғ 8<S THEN Б=8-(Б/5)! 


RETURN 


RETURN 
GOSUB 10366:1F 8<8 THEN 5=5-(6/5)1 


RETURN 


RETURN 
REM 2-7- = 


LINE то-19,111,т1522,112, 2iL INE 


TO 


%19,111,71%22,115,21ІРІ.0Т 70,111.2 


LINE Т1-22,115,72-26,116,211.1МЕ ТІ 


%22,115,72%26,116,21РІ0ПТ 71,115,2 


LINE 72-24, 116,Т75-51,119,2:11МЕ Т2 


+26, 116, T3+351, 119, 24PLOT Т2, 116,2 


LINE T3-31,119,T4-39,124,2:LINE ТЗ 


%51,119,74%59,124,21РІ.0Т T3,119,2 


LINE T4-39,124,T5-52,132,2:LINE T4 


+39, 124, T5+52, 132, 21PLOT T4,124,2 


LINE T5-52, 132, T6-79,149,2ILINE Т5 


+52, 132, T&+79, 149, 21PLOT TS, 152,2 


LINE Té-79,149,0,199,2ILINE Té+79, 


149, 319, 199, ZIPLOT ТА, 149,2 


RETURN 
КЕМ エン シフ リョ --- 


IF RR=O THEN F=01 RETURN 
F=(500-8) /RR# (500-8) /100 
X=X-F 


PRINT /,%3 шіт), ха ТІМЕ 
UO(II)=TIME 
REM STOP -- 


IF (X<O) THEN GOBUB 10910:GOTO 108 


IF (319<X) THEN GOSUB 10912:GOTO 1 


0850 

10820 GRAPH CIRETURN 

10850 IF (Х<-800)%(919<Х) THEN GRAPH CIC 
ALL %9000 

10840 RETURN 

10910 GRAPH FICIRCLE О,Ү,АВБ(Х),24СІКСІ.Е 
0,Ү,АВ8(Х%23/4),21СІНСІ.Е О, У, АВЗ(Х%9/16) 
‚ 21 RETURN 

10912 GRAPH F:CIRCLE 319,Y,X-319,2:CIRCL 

Е 319,Y, (X-319)*3/4,2:CIRCLE 319,Ү, (X-31 
9)%9/16,21КЕТИКМ 

11000 КЕМ BTART Ready ------ 

11010 PRINT " BOSUB 11090 

11030 CURSOR 55, 10ІРБІМТ "rm " 


FOR I=11 TO 21:CURSOR $5, IIPRINT " 


lol "NEXT I 


BOBUB 11080 

K=INKEY 

IF К="Е" THEN BELLIGOTO 11088 

IF К="8" THEN GOTO 11047 

GOTO 11043 

TIME=OIT=OI X=1 591 БОБОВ 11090 
K=INKEYIIF (K=" ")+(К="4")+(К="&") 
CURBOR 17,171РКІМТ "Ғіміпе !!"1ТЕМ 


РО 7!MUBIC "-BéRO-BS5RO-B3-BéR1DS5W#C3ROW0C5 


-ВЗКО-В5-#А4-В4К4": TEMPO 5:GOTO 11050 
11049 GOTO 11051 

11050 CURSOR 17,17:РКІМТ " "*8DT 
0 11030 

11051 IF T=TIME THEN GOTO 11048 

11052 T=TIME:IF T=11 THEN GOTO 11040 
11054 MUSIC “+A0" tCURSOR 56,22-ТІРБІМТ " 
.. 

11056 GOTO 11048 

11060 CURSOR 26,11:PRINT "е": SOUND 50,50 
о 

11070 D=1:PRINT "Ф"ІРКІМТ "ist Үоц": КЕТО 
RN 

11080 PRINT “Ш“іҒОН 1=0 ТО NQ(O):PRINT / 


s43 U1(1),X4 U2(1),US(I):NEXT 


FOR 1=1 ТО 1O:CURSOR 22,1+1:РКІМТ 


Ranking. "1GOSUB 11200 
11084 CURSOR 5,23:PRINT "Push 787 кеч 
(END ...'Е)",/" whenever you lik 
e to start." 
11088 RETURN 
11090 GOSUB 1017011 ІМЕ 31,180,288, 180ILI 
МЕ X-8, 180, X+8, 180,0 
11092 РИТӘ X-8,Y-32,X+8, Y, #BEOO 
11094 RETURN 
алара КЕМ LAP(1) 


11102 VCO) =UO (NG (0) ) t VT=V(O) 

11110 IF V(0)<V(1) THEN GOBUB 11150:GOTO 
11116 

11112 IF (V(1)<=V(0O))%8(V(0)<V(2)) THEN 

OSUB 11152:GOTO 11116 

11114 IF (V(2)<X=V(0))8(V(0)<V(3)) 

OSUB 11154 

11116 IF (V(3S)<=V(O))8(V(0O)<V(4)) 

ソ =V( 4 ) 1004) =V(O) 1 V(O) =V ソ 

11118 IF (V(4) く =V(O) ) *(V(O) く V(5) ) 

Уау(5):У(5) =V(O) 』 VCO) «УУ 

11120 IF (V(5) く =V(O) ) %(V(O) く V( ら 6) ) 

V=V(&) 』 V(6) =V(O) ! V(O) «уу 

11122 IF (V(6) く =V(O) ) *(V(O) く V(7) ) 

Vay (7) 』 (7) V(O) 1 V(O) «УУ 

11124 IF (V(7) く mV(O) ) *(V(O) く V(B) ) 

ММ (8) ! V( 日 ) =V(O) ! V(O) VV 

11126 IF 〈(V( 日 ) く =V(O) ) *(V(O) CVI?) ) 

V=V(9) 1V(9) =V(O) 1 V(O) =VV 

11128 IF (V(9⑦) く =V(O) ) *(V(O) く V( 10) ) THEN 

V( 10) =V(O) 

111 さ O RETURN 

11150 V ソ =V( さ ) 』V( さ ) =V( 2) 』 V(2) =V(1) 1V(1) =V 
(O) IFOR I=O ТР NQ(O) US(!】) =U2( 1) 1U2(i) =U 
1(1)』U1(1) =UO( 1) INEXTIV(O) =VV! БР=1 1 RETUR 


THEN 
THEN 
THEN 
THEN 
THEN 


THEN 


Ж. суа Х.Е. 522 J 


ТНЕМ 


N 

11152 V ソ =V( さ ) ! V( さ ) =V(2) 1V(2) =V(O) 1FDR I= 
O ТО NQ(O) !U さ (1】 ) =U2(【) 1U2(】) =UO( I) NEXT: 
V( 0) =VVI RETURN 

11154 Уу (5) V( さ ) =V(O)』FDR 1=0 TO NQ(O) 
SUS (1) =UO( 1 ) t NEXT: V(O) VVE RETURN 


11200 КЕМ Your ranking 

11210 I=O 

11220 1=1+111Е VT=V(11-】) THEN GOTO 1125 
0 

11222 IF 1=10 THEN GOTO 11240 

11224 GOTO 11220 

11230 CURSOR 20,12-І:РКІМТ “You3":GOTO 1 
1245 

11240 IF У(0)-990 GOTO 11245 

11242 CURSOR 25,1 さ IPRINT "YouJ"。X4 V(O) 
11245 RETURN 

11250 КЕМ DEMO 


11252 
ОТРОК 
ANEXT 
11290 
11500 


GOSUB 11090:РОТӘ 0,70,319,199,%600 
88=0 ТО 50: SOUND 30,50: SOUND 50,80 


RETURN 


11306 
11312 
SOR 17, 251 РА1ТМТ 
NT "エー бене 4| 10ee ゃ ゃ ーー "1 CURSOR 28, 19: PR 
INT "レー бево) | 6| joeni " 


CURSOR 30, 241РКІМТ "abg Мазао"” 
CURSOR 15, 241PRINT "SPACE BAR":ICUR 
+ 6": CURSOR 9, 191 РАТ 


11313 
11314 


GOSUB 10170 

РИТӘ X-60, Y-23, X-29, Y, $BEBO, 1 
PUT x-8, Y-32, X+8, Y, $8E00 
РИТЭ Х+29, Y-23, X+60, У, ӨВЕЕО» 1 
RETURN 


"AJGIGIF IF JE JEIGIGIF IF IEJ "IR 


“ЕЗС3" 
"CIESESE3F1E1DSDS": RE TURN 
11440 "D8R5G3F3F3E3E3DSD3SE3E3SDSD3F 
さ F さ G さ GBS" 

11450 MUSIC 
11460 MUSIC 
11470 MUSIC 
11480 MUSIC 


"EZ7F7BBA5" 1 RETURN 
“Е5"іКЕТИЯМ 

"ре" 
"КОВЗОЗҒЗВЗАЗА5" 1 RETURN 
11490 MUSIC "2505050709": RETURN 
11500 MUSIC "RS5R さ B さ BSBSE さ DSE さ EBRSR さ F さ F5F 
SD さ C さ D さ DBRSESESESESFSGSCSA9A7" 

11510 MUSIC "R3SA3S+C3+D3+D7"i RETURN 

11520 MUSIC "R さ ASGSF さ SB さ BB さく B さ ASA7" ョ RET 
URN 

11530 MUSIC "R さ QA さ B さ F さ GBSB さ A さ ASBSF SB5G さ 1 


iD 


汚れ た 英雄 ソー ス ・ リ スト 


リス ト 2 


1250305" 
11540 МИБІС 
11550 MUSIC 
11560 MUSIC 
RN 

11570 


“"К58385Ғ385АЗА5"іКЕТИКМ 
"+04+0а+09+09+0885" 1 RETURN 
"R58363F3G3A3+C3+D3+D7":RETU 


MUSIC 
11580 MUSIC 
11590 MUSIC 
"1 RETURN 

5034 КЕМ MUSIC ---- с. 


"F さ DSD さ D7R"』 RETURN 
"AR9RS" 1 RETURN 
"Қ58593Ғ5085А5%С5%09%09%09%09 


11710 GOSUB 11410: GOSUB 114201 BOBUB 1144 
О: BOBUB 11410!GOSUB 11420: 8080В 11430: GO 
SUB 11470: GOSUB 11480: GOSUB 11490 

11720 GOSUB 11500: 80808 115101 GOSUB 1152 
Ог GOBUB 11510:60SUB 115101 GOSUB 11530160 
SUB 11540 

11730 GOSUB 11510: 00608 11520: 6060В 1151 
O:GOSUB 11510:6060В 11530: 8080В 11540160 
БОВ 11570: В0БОВ 1154000508 11540160808 

115801 GOSUB 11540: 6080В 11590 

11790 RETURN 
11800 КЕМ 39 
11810 PUSH 180,90, 118,91, 64,96, 66,90, 53, 
90, 50,97, 0,115, 51 GOSUB 11900 

11820 LINE 152, 10,150, 50 

11850 PUSH 180, 189,115, 170, 91, 167, 90,160 
B6, 153,81, 149,75, 145,64, 142,55, 144, 30, 1 
50, 18, 157,91 GOSUB 11900 

11840 PUSH 91, 130,89, 140,81, 149, 11 GOSUB 

11900 

11850 PUSH 180, 120, 120, 140,95, 146,88,145 
,81,149,3:GOSUB 11900 

11840 PUSH 180, 232,129, 231, 99, 226, 80, 220 
‚65,218, 55,214, 55, 215, 0, 214, 6 GSUB 1190 
0 

11870 PRINT " ゅ "ICURBDR 15, 
УӘЗЖІЗІРКІМТ "O" 

11880 RETURN 

11900 РОР NIPOP ХО:РОР ҮО:РОР Х1ёРОР Y1 

11910 FOR 1-1 TO N:LINE XO, YO, ХІ, ҮІ: XO®X 
11 УО=у1ЕРОР ХІЗРОР Y1INEXT 

11920 LINE XO,YO,X1,Y1:RETURN 

20900 КЕМ ! 


6!PRINT "97 7 


20010 PRINT 
で こく て て て て て て て や KU 
20020 PRINT "| т Е 
75 я к 
20050 PRINT "| 


スッ イイ イル エル ルアン アン ルン エエ エエ エエ ン エフ マコ コ 


20040 PRINT 

жее. 
20050 PRINT "| 
эъ. = Юу” 
20060 PRINT "| ке Ме Ж” 

sw- kU PE ы 

20070 PRINT “| / 4 Л 
К ГЕ ГА 

20080 PRINT "| 
= ч. 


-- 
+ 

—+ 

£ = / 


20090 PRINT "上 て くく さて て て と と と て と と と や と と と と と と ン や 
ммм н 

20100 CURSOR 24,9:ҒОК 1=0 ТО 14: АВСТТ=РЕ 
EK(AB+I)』PRINT &ABCIIINEXT 

20199 RETURN 

21000 КЕМ 

21200 КЕМ DATA OUT --- 


21202 GRAPH Cı SOUND 10,5 

21210 TO=PEEK(P) 864 /451Т1=РЕЕК (Р+1) #64 /4 
5:Т2=РЕЕК(Р+2) 864/451 Т5=РЕЕК (Р+3) 864/451 
Т4=РЕЕК (Р+4) $64 /45 1 Т5=РЕЕК (Р+5) 864/451 Té 
=PEEK(P+6) $64/45:Р=Р+В 

GOSUB 10500 

RETURN 


21220 


PRINT "100808 20010 
21520 GRAPH CIFOR I=O ТО 159:11МЕ 159-1, 
70,159-1,199,2111МЕ 160+1,70, 160+1, 199,2 
1РОТӘ 0,70, 319, 199, 62000,01 NEXT 

21530 TEMPO 7: 6080В 11700: TEMPO SiFOR I= 
О ТО 159:11МЕ 1,70,1,199,0411МЕ 319-І,70 
.519-1,199,0: NEXT] 

21540 GRAPH 00: ВОБОВ 11800: GRAPH O11END 
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リス ト 4 G.D.2 マシ ン 語 リ スト mawan 


画 PiO 読者 アン ケー 


上 尼 定 価 が 高い の に 段 ろ きま し た .。 プログ ラム が た くる ん ある の て で 仕方 の な いこ と な の か も 知れ ませ ん が 。 マイ コン 情報 な ど , 読ん で 楽し む 部 
分 が ほとん ど な か っ た の も 残念 で し た . 目当て の P6mkII, コン パイ ラ が な いと ダメ と わか っ て ユ コケ まし た . 兵庫 ・ 上 条 さ ん 


piO 


リス ト 4 G.D.2 マ シン 語 リ スト 


АЗ 02 07 


+1 +2 
00 00 
оо 00 
oO 00 
00 00 
оо оо 
оо оо 
оо оо 
оо оо 
оо оо 
оо оо 
оо оо 
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Ріо 


リス ト 4 GD.2 マ シン 語 リ スト 


FM-7 を 買っ て 半年 た もち , よう や く 乙 80 カ ー ド を 手 に 入れ , た 
だ 今 CP/M の 勉強 中 . 疲れ て ゲー ム で も と 思い , デ ィ ス ク を 入れ れ 換 
えて リセ ッ ト す る と , FM-7 は ソ ッ ポ を 向い て し まう . 

そこ で 背中 に 手 を 回 し て オ ソ ルオ ソル か よわ い DIP ス イッ チ を 
探す . そん な 手間 を 省く プロ グラ ム で す . 

非常 に 簡単 で . 『PSHS В, LDB $FDOF, PULS B』 の 3 つ 
の 命令 を IPL に 書き 加わ える だ け で ,DOS モ ー ド か ら ,F-BASIC を 
起動 で き ます. 使用 方 法 は ,F-BASIC の シス テム ・ デ イィ スク を 0 
C At, この プロ グラ ム を 入力 し て , EXEC&H3000 で 蜂 間 的 に , 
『rReady」』 と 出力 し ます . と いう 間 に , DOS, ROMÎ 
モー ド 用 の シス テム ディ スク の で き あ が り . 以後 は , 普通 の シス 
テム ・ デ ィ ス ク と まっ た だ く 同 様 に 使え を ます か ら , こ の プロ グラ ム は 


『 ア レッ 』 


ннен М-7 DOS, ROM 両 モー ド 用 シス テム ディ スク 生成 


EQU 
EQU 
EQU 
EQU 


BASIC: 
SEEKO! 
SCTRD: 
BIOS! 

= 


ФЕВҒЕ 

%ҒЕО?2 

ФҒЕОВ 

%FBFA 

Create Program жә” 
ORG $3000 

3440 u 

зовсос <АСВО,РС 

558С11 <START,PC 

EFO2 TR 

3540 u 

ADFFFBFA [B108] 

59 


' 
RCBO: 


0900 
0000 
0001 
0000 


$0900 
$0000 
$0001 
$0000 


( 
9... IPL Program ж.” 
1 
START! 
' 


Д 
ВСВ11 


BRA MAIN 


FDB 
FDB 
FDB 
FDB 


$OAOO 
$6EOO 
%ОООҒ 
$0000 


РОВ 
FDB 
FDB 
FDB 


$OAOO 
$7000 
$0001 
$0100 


FDB 
FDB 
FDB 
FDB 


$0A00 
$01A1 
$0003 
$0000 


FDB 
FDB 
FDB 
FDB 


$0800 
$0000 
$0000 
$0000 


ORCC #$50 
LEAS <START,PC 


into ROM mode -- 


PSHS B 
LDB $FDOF 
PULS B 
LDA #$FD 
TFR A,DP 


Check ID 


зовсрр LEAX <RCB3.PC 


7450 00 00 OO 00 OO 00 00 ОВ 00 OO OO 00 00 02 00 00 
7460 20 ВО 00 04 00 OO оо OO 04 go оо 00 оо оо оо ОО 
7470 00 04 06 52 OO OO OO OO OO OO OO OO 00 00 00 04 


01 00 50 ОВ 04 ВО ВС 04 01 02 ОС 04 


4 


` 


L.‏ سے 
テム ディ スク の 生成‏ 
定 村 =‏ @ 
捨て て し まっ て 結構 で す .‏ 
FM-7 DOS, ROM 両 モー ド 用 シス テム ・ デ ィ ス ク 生 成 マシ ン 語 リス ト‏ 


さ OOO さ 4 
59 
оғ 
os 
54 


01 
оо 
FD 
ce 
BB 
10 
ce 
27 
E1 
оо 


10 


A2 
27 
39 


895899898898 
8810%82088965 
889% 58288984 
8497522988882 
S8828888 ЕН 
881%888858%02 
КЕРЕ ТЕЕ 
82288158829 
81583078388 >% 


Sum: DD 8$ 10 22 EF РС ГС А5 1C 01 


$ 
5 
8 
R 
8 


ソー ス ・ ух ト wawawa 


BSR 
LDX 
LDA 
CMPA 
BNE 


Load РҒК 


LDB %%02 
LEAX <RCB1,PC 
BSR LOOP 


Load 


DSK CD 


LDB %%10 
LEAX <RCB2,PC 
BSR LOOP 
into BASIC 
CLRA 
TFR 
LDX 
COMA 
JMP 


А, ОР 
#$6E00 


СВАВІС2 


SUBROUTINE ww... 
PSHS B 
PSHS X 
BSR DSKRD 
PULS X 
LDD #%100 
ADDD 2,х 
2,Х 
З.Х 
B 


00Р 


DSKRD: #805 
DSKLPı B 
x 
<RCB4 ,PC 
SEEKO 
x 
изой 
FIN 
SCTRD 
B 


RET 
ғол 
ҒІМ 


DSKLP 


A,DP 
6EFFFBFE UBASIC)J 
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ゆ X1 を 使っ て いま す . 買っ て も う , 五箇 月 以上 た っ て いる の に GAME も 作れ な い 
ド ベ ンチ ャ ー ゲ ー ム が むち ゃ くち ゃ 少な い / 誰か 作っ て 投稿 し て くれ ーー へ 


BASIC や マシ ン 語 の 使い 方 を 教 せ て. Р.5.1. МФУ 
(熊川 健二 ) 


12 例 月 の PID な ゲー ム 
dB-BASIC プロ グラ ム ・ コ ン テ ス ト 入 選 作 品 


22,4 


dB-BASIC キ マシ ン 語 


マイ ティ 


この ゲー ム は 夏休み の 貴重 な 時 間 を 120 
時 間 も 費 や し て 制作 し た 大 作 で す . X1 な 
ら で は の 美しい 画面 と 迫力 ある サウ ンド の 
すばらし い ゲ ー ム だ と 思っ て いま す . 


loct っ ct っ ct っ ct っ c+ っ o+ っ o+ っ o+ っ o+ っ CX っ 


ШАРЕЛЫО 


como: 


а グラ フィ ッ T 
を まっ だく 使用 せ ず , すべ て PCG に よる 画 
面 ど と いう こと で す . 弾丸 が 飛ぶ よう す は , 
あたかも グラ フィ ッ ク 画 面 を 使っ て 2 枚 の 
画面 を 重ね て いる よう に 見 える で し ょ う . 

どう や っ て 弾丸 を 表示 し て いる か を 説 
明 し ます と , 256 個 の キャ ラク タ を 2 組 に 分 
И, 下位 6 ビッ ト が 同じ 物 に は 同じ キャ ラ 
クタ を 定義 し て 、 第 7 ビッ ト が 1 の 物 に は 
弾丸 を 描い た キャ ラク タ を 定義 し て ある の 
で す 。、 こ うす る こと に より 。 V-RAM の 第 
7 ビッ ト を 1 に する だ け で 弾丸 が 表示 で き 
る の で す . また , 背景 色 に 応じ 弾丸 の 色 を 
変え られ る の も 大 き な 利 点 で す . スク ロー 
ル に よっ て 弾丸 の 位置 が まっ た く 影 響 を 受 
け な い の は , 下位 6 ビッ ト だ け を スク ロー 
ル し て いる か ら で す . 


tac っ cc+ っ o+ っ C+ っ C+ っ C+ っ C+ つ Cf つ の + っ C+ っ C+ っ C+ っ co 


‚ ЛЛОБЯ | 


СОЭССООЭСЭСЭССССОСЭОСОСОСОЛ 

$3, キャ ラク タ 定 義 デ ログ ラム (リス 
ki) を 大 力 し カモ セッ ト に セー プ グ じ ます 。 
ファ イル 名 は “BUSTERS と し て くだ さ 
с, 次 に BASIC メ イン ・ プ "ログ ラム (リス ト 
2) を 入力 し , 先ほど モー ブ し た キャ ラク タ 定 
義 ゲ ログ ラム の 後に モー ブ し ます . ファ イル 
名 は “MAIN PROGRAM” と し ます . そし て , 
最後 に マシ ン 語 デ ー タ , С000Н--Е5рЕН 
ホバー 出現 ノ こ いつ は 手ごわい 


バス ター 


(リス ト 3) を モニ タ よ り 入 力 し , メイ ン ・ 
プロ グラ ム の 後に モー プ し ます ,。 ファ イル 
名 は “BUSTERS DATA” と し ます . 

以上 の こと が し っ か り で き て いれ ば , 次 
か ら は 自動 的 に ゲロ グラ ム が ロー ド さ れ ま 
> 9 


too っ っ ct っ o+ っ cf っ ct っ C+ っ ot っ ct っ Cto+ っ C+ っ C+ っ Co 


ロー に の 万 法 | 


1 ニニ バニ ニ ニニ ルー ニニ ニニ ニニ ニ リ ニ ニ 】 


с AF 次 に きき ほど 
の 手順 で セー プ き ミ きれ だ た テー フ を セッ ト し , 
RUN [RETURN| と すれ ば , 自動 的 に ロー ド 
きれ, о 0235 


сўзсюскосносноскоскоскоскоскоскосюосносносно 


224 遊び 万 | 
JOON OM OMNONON OA 
E E жанып 2 ñkoO 
砲撃 を 避け な が ら 敵 の 建造 物 を 破壊 し て い 
(ОСТ, あな た の 操作 する マシ ン は 8 方 
向 に 移動 が で き , 砲塔 を 回 転 き せる こと に 
よっ て 8 方 向 に 弾丸 を 発射 する こと が で き 
$3. マシ ン は 道 以外 の 所 を 走る こと は で 
きま せん . キー の 操作 は , テン ・ キ ー が 移 
$), [Z] が 砲塔 左 回 転 , [と | が 右 回 転 で す . 
敵 の 種類 ・ 得 点 


小さ な 円 形 の 敵 . 砲撃 も する . 
200% 


八角 形 の 建造 物 . 激しく 砲撃 し 
て くる . 500 点 


大 き さ , ®, 色 , 砲台 数 な どい 
ろ い ろ な 種類 が ある . 砲撃 を し 
な い 物 も ある . 破壊 で き な い 物 
も ある . 200% 


移動 し な が ら 砲 撃 し て くる 恐 ろ 
Сим. 800 点 


複数 の 建造 物 と 連結 し て いる こ 
と が 多い . 高 得点 を 出さ な けれ 
ば 出現 し な い . 400 点 


左右 に 移動 し て , 君 の 行 手 を 阻 
U. 砲撃 は し な い が , 破壊 で き 
な い の て 要 注 意 . 


SPACE] キー で 弾丸 を 発射 し ます . 3 機 や ら 
れる と ゲー ム ・ オ ー バ パー と な り ま す が 。20。 
000 点 ご と に 1 機 増 た ます. 

敵 は 図 の 6 種類 で す が , この 他 に どこ に 
いる か わか らら ない 隠 れ キ ャ ラク タ の 敵 が い 
$3. これ を 撃破 する と 2,000 点 で す . 

ゲー ム は 進む に つれ て いろ いろ な 物 が 出 
て きま すか が , 次 の 物 を 目標 に する と いい で 
2206 


ТР Б 5. 巨大 ピラ ミッ ド 
2. 点滅 する ピラ ミッ ド 6. フラ ッシュ ・ ゾ ー ン 
3. БІР-ІС 7. 2 回目 の ボ ザ ・ ゴ ア 


4. 地上 絵 


| ゲー ム 上 の 注意 


como: 


ot a し た 後 で グラ フィ ッ 
ク に 関す る 命令 は 使わ な いこ と で す . デー 
タ が 破壊 され て し まい ます . また, 自分 の 
撃っ た 弾 を 追い か ける と 爆発 する こと が あ 
る の で 気 を 付け て くだ さい 

リス ト を 見 よう と WIDTH 80 を 入力 する 
と , 大 変 な こと に な る の で 注意 し て くだ さい. 

GAME OVER の と き , “Try again?” 
と 聞い て きま す が , 間違え て INI] を 押し て し 
まっ た だ たら, プ ブログ ラム を 190 行か ら 実 行 し 
4 06 еу (6-53 


C+ つ C+ つ CO つ C ト つの C ト つつ C ホ つの ホコ 


BET- 


画面 の ダー タ ЗЕЯ сі еі сез 
3. た と えば , ASCII コ ー ド 6AH の キャ 
ラク タ が 横 に 7 つ 並 ん で いた ら , 6A・07 と 
な り ま す . その 他 , 行 の 終わ りや 敵 の 位置 , 

ここ か ら 先 は と っ て も 難し い の だ 
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РіО 


弾丸 発射 の 頻度 。 コメ ント , 自 機 が や られ 


だ た とき に 戻る 区 切れ な ど が 一 緒 に 記録 きれ 
туд. 


この ゲー ム は と に か く マ シン 語 の バグ 取 
b に 非常 に 苦労 し まし た . ひど い 物 に な る 
と ホバー が 画面 の 下 に 消え て し まっ て も ま 
だ 動き 続け , 大 切な 画面 デー タ を ブッ 壊し 
て し まっ だ こと も あり まし た だ (パグ 取り を 


лаа リス ト 1 


19 WIDTH491 ӨСКЕЕМІ, 11 SCREEN: CSIZEi CGEN: C 
LSr:ICOLOR7,,@, Òr ТЕМР05350 

20 A$=SFACE%$ (40) +"SETTING Р.С.6. "+5РАСЕ® 
(49) 

50 FORI=1 TOSS: СОСАТЕ®, 121: РКІМІМІр% (АФ, 1, 
49» 

49 IF 1=28 THEN PLAY"V1505L1CRC:V1505L1E 
RE: V1SOSL 1GRG" 』 БОБОВІ Фо 

50 NEXT 

фо А%«5РАСЕӨ (40)+"LOADING MAIN PROG. "+SP 
АСЕ$ (40) 

70 РОКІ= і ТОЗО! ОСАТЕе, 12iFRINTMID# (АФ, I, 
40) 1 МЕХТ 

80 PLAY "СКС: ЕКЕ: GRG" 1 COLORG 

99 КОМ"МАІМ PROGRAM" 

109 DEFCHR$ (&HGO ) =HE XCHR ("00009002079Е1 
ҒӘЕооооооо207 ОҒ 1 ҒӘЕООООООО207ӨҒІҒФЕ") 
119 DEFCHR$(&HG1 ) =HE XCHRS ( "GOGO7E7E7EFF の 
01900009542А54АА0019000997Е7Е7ЕЕҒОООӘ") 
120 DEFCHRS (&H@2) =HEXCHRS ("00000040EGF OF 
BF @00Q0000000060600608060@0@@0064@EQFOF8B70") 
150 DEFCHR$ (&HO3) =НЕХСНК® ( "@43C3C3D3D3C3 
С959428142915281401045С3С5С5С5С5С04"» 
140 DEFCHR$(&HO4 ) =HEXCHK$ ("FFFFFFFFFFFFF 
FFFFBE 1 CoBGBGGG 日 1 じ さ さく C7EFFFEFEFC7H29" ) 
150 DEFCHR$ (&HO5 ) =НЕХСНК® ( "ñë3C3CFCFC3C3 
Саовооодососооооово209142814281426800") 
160 DEFCHRS (&HO6) =HEXCHK@ ("ОҒ 1F OF 0702000 
00001 つら 9 りり ららら ららら の OOGE 1۴ OF 0702000000") 
179 DEFCHR$ (&HG7 ) =НЕХСНК® ( "99 18FF7E7E7EQ 
000991Н0о00000000000000ААЗ42А240000") 
180 ПЕЕСНН% (НОВ) =НЕХСНК® ("ҒӘҒВЕҒФЕОДОООӨ 
ооовооооооооооооооооооооооооооооооо") 
190 DEFCHRK$ (&HG9 ) =НЕХСНК® ( "2920626282ЕҒО 
0195С5С7С5Е7СААО01900990424242ҒҒОООӘ") 
200 DEFCHRS (&HOA) =HEXCHR$ (" дООООН1Е51001 
1OAOOOGG 日 1E さ F 1F IFOEQ000000201060110@A") 
2109 ПЕҒСНК% (НОВ) «НЕХСНК9( "945СЕ4С585043 
СӨ5042ВҒСЕӘҒОҒВ1401045С940940940945С04") 
220 DEFCHR$ (&HOC ) =HEXCHR$ ("OB1 1103102000 
Oo995GE 1F さ E 1 CBOOOGOA 1 10001 02000000" ) 
250 DEFCHR% (&HOD) =HEXCHR ("9918274242422 
ら 2999 1 日 OO さじ さじ さじ さじ さじ OO9OAA4992499999" ) 
240 РЕРСНК® (&HOE ) =НЕХСНК® ("роввоово4ооое 
QQO0n0508B854281000000606066000000060000") 
290 DEFCHRW (&HOF ) "НЕХСНК9( "АОЗС209ЕФЕО293 
CA6B00601FDFCA1500B0201420606206002B8060" ) 
2609 DEFCHR$ (&H10) =HEXCHR9 ( "д9001070СоФоВ 
BD00006016387CF870R00060600406800668850") 
270 DEFCHR% (&H1 1) =НЕХСНК® ("0000000000009 
ооооооооооооооооооооооооооооооооооо") 
280 DEFCHK$(&H12) =НЕХСНЕ® ("000001 O3OF OF 1 
F さ F OVO0V10ZODOA1 SZAAASSABS7 AF SF BF 7F") 
299 DEFCHRS (&H1 3) «НЕХСНК9 ( "G@3CFFFFFFFFF 
FFFO00040CO000808000AA7 DF CF DFEFEFEFE") 
30d DEFCHRS (&H1 4) =НЕХСНК® ("OOOOOOCOFOF OF 
8F8O000000000000000AASSAASSAASSAASS" ) 
310 DEFCHRS (&H15) =HEXCHRS ("SF3F7F7F7F7F3 
FIF 1 6 さら らら らら らら らら らら 99BF 7FFF 7FFF7FBF51" ) 
520 DEFCHRS (&Н16) =НЕХСНК® ("FCFCFEFEFEFEF 
CFCOG9OGO ら らら らら ららら 99GAAF DFEF FFEF FF O01") 
550 DEFCHR% (&H17) =HEXCHK も ("1F1FOGFOFG さ ら 9 ら 
0000000000000000 AASSAASSAASSAASS" ) 
340 DEFCHRS (&H18) =HEXCHRS ("FFFFFFFFFFFF3 
СооооооооодФоооФФФООҒЕ?ЕҒЕ?ЕЕС7С5С41") 
550 DEFCHR$ (&H19) =HEXCHK$ ("FHFBFOFOCGGO ひ 
0000000000000000000000102050А152А55" ) 
560 DEFCHR$ (&HiA) =HEXCHR$("FFFFFFFFFFFFF 
FFFAA552A15GQnG5 ら 291FFFFFFFFFFFFFFFF") 
579 DEFCHR$(&H1B) =НЕХСНК® ("FFFFFFFFFFFFF 
FFFAASSAASSAASSAASSFFFFFFFFFFFFFFFF") 
396 DEFCHRS (&H1C ) «НЕХСНКФ("ҒЕҒЕҒЕҒЕҒЕЕЕҒ 
FFFAA54ABS ら AG49B ら GOFFFEFDFAFSEADSAA" ) 
590 БЕРСНН® (&H1D) =HEXCHR$("FFFFFFFFFFFFF 
FFFOG ら らら らら らら らら OOOG9FFFFFFFFFFFFFFFF") 
400 DEFCHR(&H1E ) =НЕХСНК® ("FFFFFFFFFFFFF 
ЕҒКҒООООООООООӨОООООЗФААЗ5ЗААЗЗААЗЗАА") 
419 DEFCHR$(&H1F ) =HEXCHR$ ("FFFFFFFFFFFFF 
ЕҒКҒОдОООООООООӘФОООҒЕКСЕВЕОЕӨОСОНООО") 
420 ПЕҒСНН% (&H2O ) =НЕХСНК® ("FFFFFFFFFFFFF 
ЕҒКҒОСООООООООООООООООФФоОооФооооооө") 
450 DEFCHRS (&H21 ) =HEXCHRK$("FFFFFFFFFFFFF 
ЕРКҒООООООООООООО009552А81508050920100") 
448 DEFCHRS (kH22) =HEXCHR9% ( "@@@@BDDFFFEEC 
D490000BDD7ADD77FB7AASSAFDE7 7ECATAB" } 


し た た だ ため ゅ に マシ ン 語 ルー チン の 流れ が 複雑 
に な っ て し まい まし た ). や っ ぱり ハン ド ・ 
アセンブル は 大 変 で すね . СЬ, 画面 の 美 
し きる と 人 迫力 の ある サウ ンド に は 自信 が あり 
з, 

この ゲー ム の コツ は , 敵 が 画面 の 上 の 方 
に ある うち に 横 か ら 砲 撃 す る こと で す . А 
れれ ば 20,000 点 で らい は 取れ る で し ょ う . 
隠れ キャ ラク タ を 見 つけ れ ば , も っ と 高 得 
REDS EDS SITE OA 375, 
40,000 点 で らい 取る と ある 物 の 地上 絵 を 見 
る こと が で きま す . 画面 の ゲー タ は , 8К 


450 DEF じ CHK$(&HZ さ ) «НЕХСНКФ ("OO9G さ OFBFCDCB 
日 7B9 ら oO3 さ GEBBCFGFBDBAA55BAFDD6DDQA7D" ) 
469 DEFCHK$(&H24 ) =НЕХСНК® ("ささ E 1 じ G さ さ F 1 の 91 
CSF3B2F 1 76F さ D1F1F2BAC7EB 昌 4 さ B75gB57D" ) 
479 DEFCHR% (&H25) =НЕХСНК® ("6100000000000 
O817FFFFFFFFFFFFFFF9?1681 200540092083") 
489 ОЕРСНК® (&H26) «НЕХСНКФ ("5СӨВЕВ4&С1СЕВ7 
C さ CDCFBBBF 4FCABDCF 47699EAGDS6796E さ 3D" ) 
490 DEFCHRS (&Н27) =НЕХСНК® ("ЗЕ 1D さ F さ F 1F O60 
9903В1Ғ17361Во60009В65САҒ?рАҒЗоААБ5") 
599 DEFCHRS (&H28) =HEXCHRS (" 4544AEEEFF DAO 
OGOF BFF SBFF 7DCAG9994D24QAEAAF 7DAAASS" ) 
519 DEFCHRS (&H29) =НЕХСНК® ("DBECFCFBFBBOG 
0007BF 4ACF BSOBOOOOOCA4DFEA?F ABSAASS" ) 
520 ОЕРСНК® (&Н2А) =HE XCHR$ ("OO9 ら 9 らら 999 の 0 日 日 
4000010121233337FFFAA45AB45884C8010") 
530 DEFCHRS (&Н2В) «НЕХСНК6("дОоодоОФодовов 
0000000040С1СВ870Е0АА55АА51А2С58А15" ) 
540 РЕРСНК® (&Н2С) =НЕХСНК® ("0602000000900 
002970955Ғ7Ғ975Ғ1ҒӘЗАСЗЫНӘОІ AB49Q956" ) 
550 DEFCHR$ (&H2D)=HEXCHR$ ("0100000000000 
OB1FFFFFFFFFFFFFF7F8104002100440091") 
569 DEFCHRS (&Н2Е ) =HEXCHRS (" 20000064000806 
O00COF CFEE OF OF BCECOZ2A0100350A054015") 
579 DEFCHRS (&H2F ) =НЕХСНК® ( "O4000001 00000 
00003503070Е1С1800008Е54885 182458855" ) 
S80 DEFCHR$(&H さ 9 ) =НЕХСНК® ("0404240000000 
ФФФӘҒВҒЕҒ5Ғ5В515141000404А0Ф00АА04АА55") 
599 DEFCHRW(&H さ 1 ) =НЕХСНК® ("2000000000000 
ФОФЕФОЕ0О79581СФЕО00092415ВА454251А6А55") 
609 DEFCHRS (&H32) =HEXCHRS ("0000000000000 
000000006000001 1 33BOAASSAASSAA4 48000" ) 
610 DEFCHRS (&H33) =HEXCHRS ("0000000000000 
оооооооооооооОовОоСОВАЗЗААЗЗААЗЗЭНА15") 
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С049000999ҒВВ1С77ҒВ7000999Ғ А75Е4А?АВ") 2500 DEFCHR$ (НЕО) =HEXCHR$ ("OO7C6449496 和 4 
2050 DEFCHR$ (&HC3) “НЕХСНК9 ("00001 8FCFCDC 0000007С440406400008А70Е441С0658055") 
ВВ7ВоО0001ВЕВВФОЕФҒВрВООО91ВҒЕҒФС4АВ7В") 2510 DEFCHR$(&HF 1) =HEXCHR$ ("FFFFFFFBF さ E さ 
2040 DEFCHR$ (НСА) «НЕХСНК9("ЗЕЗЕ1СЗЕЗҒІӨ FFFFOOGO 1 日 日 さら ウ OOOOO ら OG 日 】 87850002001" 
1С3ЕЗВ2Ғ 1F さ B さ 197 1F2B2C さ E 1 日 B さ さら 9153D" ) 2520 DEFCHR$ (&HF 2) =HEXCHR$("FFFFFFFBF さ E7 
2070 DEFCHR$(&HCS ) =HE XCHR$ ("OOO91 日 さじ さじ 1 日 FFFFAA543 日 日 さ 9 ら 9GOGOFFFEFDFAF 1С28100") 
ФООООО9ҒЕ99В9В181ҒҒФОО0007Е7А72560000") 2530 DEFCHRS (&HF3) =HEXCHR$ ("さじ 66DBBDBDDB 
2080 DEFCHR$ (&HC6) =НЕХСНЯ® ("5СОВҒН?СЭСҒВ 665С3В7ВЕСҒАҒ22418Ф90ВЕ67/ОВВВВОСФЕӘӨ1") 
7C3CDCF8BBFB8FOƏAQDCF47408F83870606C3C") 2549 DEFCHR% (&HF 4) “НЕХСННӨ("С581185С5С18 
2999 DEFCHR$(&HC7 ) =НЕХСНК® (" さ E1D さ F さ F さ F 1E B1C33C7EFFFBF3E77E3CC3811838360081C3") 
@@003B1F1F30330660000361C3F39330600600“) 2550 DEFCHR$ (&HF 5) =НЕХСНК® ( "E7C3993C3C99 
2100 ПЕҒСНК% (&НСВ) =HE XCHR$ ("4564BEFEFFDA СЗЕ7ВА7С7ЕЕВЕ5663С18Е7С2995850808100") 
ФФФФЕВЕЕ5ВЕВ71С200094024БЕВАҒ5С20000") 2550 DEFCHR$ (&HF6) =HEXCHR$ ("7EC さ 99BDBD99 
2119 DEFCHR$(&HC9) =HEXCHR$ ("ОВЕСЕСЕСЕСВВ CC ささ ESE7CFEFAF 2E67COOFEC299BB1 日 1C2 さ C" ) 
ФО9978Ғ4ВСЕВ?ОАФООООСВАСЕСВВӘҒ ӘйООООО") 2570 DEFCHR% (&НЕ 7) “НЕХСНК9("С5811835С5С18 
2120 DEFCHK@(&HCA) =HEXCHR$ ( "9900185С5С18 日 1CSGO さ C7E7A7266 さ COOCS 日 1 1 日 日 くら O9 日 1 じ さ " ) 
49 の GO 1O1Q さ A さ さ 2 さ 7FFFO9GO1 日 日 さら G9 日 919" ) 2500 DEFCHRS (&HF 8) =HE XCHR$ ("0000185С5С18 
2150 РЕРСНК® (КНСБ) =НЕХСНА$ ("0000183С5С98 Ф00090183С74722418004459459В9418255") 
Воод009091С23850А070ЕО099918385ов0Н000") 2590 РЕРСНК® (&HF 9) =НЕХСНЕ® ("0009185С3С18 
2140 DEFCHR@(&HCC ) «НЕХСНН9 ( "д502185С5С18 @O9999G 1 日 日 SO ら OOO9OQAASSBA79B245AB54" ) 
ФО9207953Ғ78В323271Ғ950402183950000092") 2600 ПЕЕСНН9 (ҰНҒА) =HEXCHR$ ("OOO919 さ F さ FSF 
2150 DEFCHR$ (НСОР) =HEXCHR$ ("6DFFFFFBF さ EZ 1C1E の の 9 の 19 さ 人 ささ 27 1B17AA5SBB7BB さ 66BCSA" ) 
FF6D6DGO1 昌 日 さら 99996D6DG ら 1 日 日 く O の 9 らら 6D" ) 2619 DEFCHR$ (&HF B) =HEXCHR$ ( "д000183С5С18 
2160 DEFCHR$(&HCE ) “НЕХСНК%Ф("2009187С5С98 00040000183859060707АА55ВА79В241А850") 
bO0UCOF CFEF OF OEOCECO20001 83830006000") 2620 DEFCHR$ (ЕНЕС) =HEXCHRS ( "дФ000185С5С18 
2170 DEFCHRS (&HCF ) =HEXCHRS ("0600183D3C18 дд000000185850950593ЗАА55ВА79В2418854") 
Ф00005931-ЗАЗФООООО00600183950000000") 2630 DEFCHRS (kHFD) =HEXCHRS ("OOOO193F さ F さ F 
2180 DEFCHR$ (&HDG ) =HE XCHR$ (" 〇 494 さ じ さ じ さ に 1 日 1С1Е90090195345527181709009195855261С168") 
ЭОООЕВЕЕ5Ғ7В7141410009404585850000000") 2640 DEFCHRS (НЕЕ) =HEXCHR$ ("OOOO1 日 さじ さじ 1 日 


“ て @ ら 9 の 4 の OO 1 日 日 さく の らら 69797 ら OO 1 日 日 さら 9O9OGO" ) 
2190 DEFCHRW(&HHD1) ご HEXCHRS («2000103CICI || 2250 DEFCHR@(&HFF)=HEXCHR き ("OOOO1BSC3C18 


2200 DEFCHRW (&HD2) =НЕХСНН® ("OOGO 1 日 さじ さじ 1 日 000000001 日 日 さ OO6O さ ら さ らら G ら 1 日 さ 日 くら の らら 9 ら O" ) 
оодооо00183585009155во0009185850000000") 2660 RETURN 


оо р HRS (&H78) «НЕ XCHR$ ("0000000009900 
000000000000000000008А55АА55АА55АА55" ) 
1310 DEFCHKW (&H79 ) «НЕХСНК9 ("0009000000000 
оооооооооооооооооОоооААЗЗААЗЗААЗЗАН54) 
1520 DEFCHK$ (&H7A) =HE XCHR ("OOOOO91F さ F 3B 
1C1EOOOOG9162F さ 7 1B17AQ55ABSFBF6QRBCSA" ) 
1350 DEFCHK$ (&Н7В) "НЕХСНКӨ ("0000000090000 
д0040000195381С0Е07097АА55АА45А251А6850") 
1540 DEFCHRS (&Н7С) =HE XCHR ("000000000000 
@G000000000000060363AASSAASSAA51A854") 
1550 DEFCHR$ (&H7D) =HEXCHRS ("OOOOG91F さ F3B 
1C1EOOOOG9 162F さ 71B1799G9691F さ F2A1C1A") 
1360 DEFCHRK$(&H7ZE ) =HE XCHR ("000000000000 
одо4000010581СФЕО707000оододоооооооә") 
1579 DEFCHRK$ (&H7F ) «НЕХСНН9 ( "02900000202000 
оооәооооооодзооовозозооооооодоооооооә") 
1589 ОЕРСНК® (&HBG) =HE XCHR$ ("OOO91 日 さ E さ F 1F 
1FGFOGOM1 日 さく A さ 397 1F ら FOOG91 日 4 ささ 971FGE " ) 
1599 DEFCHRKW (HB 1 ) =HEXCHK き ("OOOO7E7E7EF ビ 
901990005С3А70А20901900007Е7А72Е70900") 
1400 DEFCHRS (&HB2 ) «НЕХСНК9 ( "д909187СҒСҒЕВ 
ҒВғҒООООО1В358Зо00о0В000001878ҒӨЕОҒВ7О") 
1410 DEFCHRS (&H83) «НЕХСНК9 ("945С3С5р503С 
5С9%504281С393120140910945С3С3859245С94") 
1420 DEFCHRS (&H8B4) =HEXCHR$ ("FFFFFFFFFFFF 
FFFFFBE1D8B8B@0081C33C7EFFFAF2E47820") 
1430 DEFCHR$ (&HB5 ) =HE XCHR$ ("АОЗСЗСЕСЕСЗС 
3SCA0800018FBF0O0060608020143838360642B00" ) 
1449 DEFCHRS (&H86) =HEXCHR$ ("OF 1F 1F SF SE18 
000001 00183830000000 0E 1F 1F 3832000000" ) 
1459 DEFCHRS (&H87) =HEXCHRS ("99 18FF7E7E7E 
00009991818385о000оо00000ВА7852440000") 
1460 DEFCHR$ (&H88) «НЕХСНК9 ( "“FeFBF8FC7C18 
000080001 8383000000000001 83850000000" ) 
1479 DEFCHR$ (%НН9) «НЕХСНКӨ ("OOOG424242FF 
00193С5С7СЗЕ7САА00193С5С7Е7Е7ЕҒҒӨООО") 
1480 DEFCHRS (НВА) =HEXCHR$ ("0000000201090 
1 1 ら AGOGGG 日 1E さ F 1F 1FOEGOOGG 日 1E さ F 1F 1FOE" ) 
1499 DEFCHR き (を HBB ) «НЕХСНК9 ( "д43С040950504 
さ C95G42BFCF9FDF 日 1 4 ら 1 ら 43CFCEFCFEFC さ CG4 " ) 
1599 DEFCHR$ (&HBC ) =HEXCHR$ ("OB1 100010200 
OOOOO5OE 1F IE 1COBOOOOOE 1 F 1F さ F 1EOB ウ GO" ) 
1510 DEFCHK$ (&HBD ) =HE XCHR$ ("9918727424242 
OGOGO 1 日 9 さじ さじ さじ さじ さじ GO の OOAA7 じ さ E7 ビ さじ さじ " ) 
1520 ОЕРСНК® (&HBE ) =НЕХСНЕ® ("0089800804000 
0000A070F87C381000002070F87C38100000") 
1550 DEFCHRS (&H8F ) =НЕХСНК® ("NO さじ 2OEGE の 2 の 
さ CAOBGGO1FDFDF 1FGOHO291 4 さ F 1F 3F 1F 2800") 
1540 DEFCHR$(&H9O ) =HE XCHRS ("000000408000 
88000000103587СҒ8708000001078ҒСРВҒӘ70" ) 
1550 DEFCHK$ (&H91 ) =HEXCHR$ ("GOGO1 日 さじ さじ 1 日 
O0000000 1 8383000000000001 日 日 くら らら 9999" ) 
1560 DEFCHRS (&Н92) =НЕХСНКФ ("GOOG19 さ 3F さ F 1F 
1F さ FOOGO91 9 ささ 1 92152RQA55BB7BB さ 47BF7F" ) 
1570 DEFCHR$ (&H93) =HE XCHK ("OO さじ ヒ FFFFFFFF 
FFFFGGOGSBFB さ OBGBO99AA7DFCF9F 2E6FEFE" ) 
1580 DEFCHR$ (&H94 ) =HEXCHR% ( "G@@@1BFCFCF8 
FBFBoOGG 1 日 日 くら らら 999OAA55BA79BZ45QAA55" ) 
1590 ПЕҒСННФ(%Н95) =HEXCHR$ ("3F SF 7F 7F 7F 7F 
5Ғ3Ғ1859185830000О0ФОВЕ?ҒЕЕҒ?ВЕ3678Ғ51") 
1600 DEFCHR$(&H96) =HEXCHR$ ("FCFCFEFEFEFE 
ЕСЕСООО01 HSH JVVVVVVVAAF DF EF BF 2Е /F 001") 
1619 DEFCHR% (&H ワ 7 ) *=HEXCHR%#("1F1F1F3F3F18 
одд00090185850000000АА55ВА798245АА5%") 
1829 DEFCHR$ (&H7B) =HEXCHK$ ("FFFFFFFFFFFF 
さじ CoOOGGG 1 日 日 くら ② ら 699OFE7EFE7AFO ら 64 さ C41") 
1859 DEFCHR$ (&H99) =HEXCHR$("FBFBFBFCFC18 
000000001 日 日 つらら 99999GO 1 1835952052855") 
1540 РЕРСНЕ® (&H9A) =HEXCHR$("FFFFFFFFFFFF 
FFFFAR55303932050201FFFFFFFBF3E7FFFF") ・ 
1650 DEFCHRS (kH9B) =HEXCHR% ( "FFFFFFFFFFFF 
FFFFAASSBA796245AAS5FFFFFFFBF3E7FFFF") 
1660 DEFCHRS (&Н9С) =НЕХСНК® ("FFFFFFFBF3E7 
FFFFAQAS4BB7BBO49BGOOFFFEFDF AF 1Е205АА" ) 
1879 ОЕРСНК® (&H9D) =HE XCHK$("FFFFFFFFFFFF 
ҒЕҒЕФО901838300ФОФФФЕЕЕЕҒЕЕВЕЗЕ?ҒЕҒЕ") 
1580 ОЕРСНК® (&H9E) =HEXCHR$ ( "FFFFFFFBF3E7 
ЕҒЕҒОО090183835000000055АА5ОВА7 1A255AA" ) 
1690 DEFCHR$(&H9F ) =HEXCHR$ ("FFFFFFFBF 3E7 
ЕҒЕҒООО0183830000дФОҒЕРСЕВЕВҒӘГОВОФО") 
1799 DEFCHRS (НАФ) =HEXCHK$("FFFFFFFBF さ E7 
FFFFOGGG 1 日 日 く @O ら OOGOGGGO 1 日 日 くら OOGOG9" ) 
1719 DEFCHRS (&HA1 ) =HEXCHR も ("FFFFFFFBF さ EZ 
ҒЕЕҒООО0182583000000905526105А5109209100") 
1729 DEFCHR$(&HA2) =HE XCHR$ ("OOGO99FFFFFE 
CD49G ら 9G99FBB1C77FB7QAA5SBBFA7 さ SE4A94B" ) 
1739 DEFCHR$(&HQA さ ) =HEXCHR$ ( "@@@@ 18FCFCDC 
B8780600601B8FCBOESFBD8AASS?9AFDF 2C5AA7D" ) 


1749 DEFCHR$ (НАЯ) =НЕХСНЕ® ("JEJE 1 じ さ FSF 1 日 
1СЗ3ҒЗВ2Ғ1Ғ53В31971Ғ2ВАС7ЕВВ7ВВ5408570") 


1750 DEFCHR$ (&HAS) «НЕХСНКӘ("81009185С5С18 


нин) スト 22 ニー マイ ティ ・ バ スタ ー BASIC リ ス ПЕ... 


49) 


19 ‘ere YY #10) t CALL&HC6 10:1 ҒОКІ-ӘТ0Вді NEXT: RETURN 


20 7“ ч 130 IF 1-82 THEN PLAY"V1505L1CRC:V1505L1 229 CALL&HC5B2』 ІҒРЕЕК (&HCOOA) THEN さ 1 GELSE 
397% BUSTERS ` ERE』V1505L 1BRB"』 WAITS: COLORO: LOADM" BUBTE || RETURN 

49 7% “ кв DATA" 1 COLOR7 230 IF PEEK(&HCGGD ) THEN SOUNDS, 13 

507% 19830 BH20% ж 149 NEXT 240 POKE&HCOGD, Әз RETURN 

ьо "ж X 150 A$S=SPACES (40) +"READY !"+SPACE$(40)1C0 || 250 CALL&HCAJO:GOSUB2I®: CALL&HCENO』 GOSUB 
707% by КОМЕ! Като ¥ LOR7 210: SDUNDB, 9: CALL&HCEAO』 60508220 

72. / y 160 FORI=1TD47:LOCATE@, 12: РКІМТМІр% (A$, I 260 CALL&HCB99』CALL&HCDB 日 CALL&HCECO』 CAL 


L&HCEAG: BUSUB219』CALL&HC4F ウ 

279 CALL&HCEAG: GOSUB220 

280 CALL&HCA さ ら 』 Ө05ИВ250@1 CALL&HCEAG: GOSUB 
210: SOUNDS, Ө: CALL&HCEAG: G0SUB22@: CALL&HC 
ED8: G0SUB210: GOSUB220: CALL&HC4FO 

290 CALL&HCA3IO: 60818250: CALL&HCEAO』 GOSUB 
210: SOUND8, өз CALL&HCECG』 CALL&HCEAO ュ GOSUB 
229 


90 "шүнүн үзүүнү 
100 CLEARSGO。 &HCOG9』 СКЕЕМІ, 1: SCREEN: COL 
OR7, ‚©, 9: С312Е: СБЕМ: СІ ICKOFF : KBUFOFF з CLR 
TEHPO さ 5 ら 

119 A%=SPACE%(11)+"LOADING MAIN PROG. "+8 
PACE%(40)+"LOADING MACHINE LANGUAGE" +8РА 
CE$ (40) 

120 FORI=1TO8%:LOCATEQ, 121PRINTMIDS (A$, I 


4 
179 IF 1=25 THEN PLAY" +СКС: ЕНЕ: ОВО" МАІТ 
в 
189 NEXT:iWAIT1@ 

190 GOSUB"TITLE" 

200 MA=2ı SC=0: B=200: GOSUB" START " i POKW&HC 
005, &HD77F i G0T0250 
210 USR&HCECB。 ІМТ (RND (©) #3) ‚©, INT (RND (0) 


73 


PiO 


リス ト 2 マイ ティ ・ バ スタ ー BASIC!) ХР 
300 CALL&HCDB 昌 』 CALL&HC4FG』 605082109: CALL% 
НСЕАФ: SC=SC+PEEK(&HCGG7 ) : LOCATE32, 1 1 』 PRI 
NTUSING"##### "3 SC POKEKHCO07 , Өз: CALL&HCEA 
01 GOSUB220: CALLKHC4F O1 IFSC >=ВТНЕМ7 10ELSE 
250 

510 CANCEL: PUKE&HCGGR 。 6』CALL&HCDGO』CALL& 
HCB78: ADD=PEEM(&HCGO5 ) 

5209 SOUNDé, 63: SOUND7, 71 SOUND1 1, Or SOUND1 2 
» 109: SOUNDA, 16: SOUND?, 16: SDUND 19。 16: SOUN 
р15,0 

550 FORI=0T02:FORJ=OTO01 11 FORK=0T0100: NEX 
Tı CALL&HCó 101 NEXT:CALL&HC4FO: NEXT 

540 МА1Т5:МА-МА-1:ІҒ MA=-1 THEN 610 

350 GOSUB"START" 1 POKW&HCOOS, ADD: 8070250 
J60 #"TITLE" 

370 SOUNDO, Ө: SDUND 1 , 12: SOUND2, 1: SOUNDS, 1 
51 SOUND4, 2: SOUNDS, 15: SOUNDB, 12: SOUND?, 12 
4 SOUND10, 12: SOUND7, 56 

580 POKWLHCOOS, LHDOOO: CALL&HC4D@ 

590 FORI=d0TO0261 CALLK&HCEŞO: CALL KHCDD2: WAI 
Т2аМЕХТ 

400 WAIT15:FORX=12T027STEF3:FORY=171020@S 
TEP3:USRLHC350, МН3400%Х%Үж40, 9, КНС1401 МЕ 
ХТ: МЕХТ 

410 500Мр1е, 16: SOUND1 1, ©: SOUND1 2, 89: SOUN 
06, 65: SDUND7 , 28: SOUND8, 10: SOUND?, 10: SOUN 
Di3,9 

420 FORI=ƏTO2:WAIT2:CALL&HC4FO:NEXT 

450 ГОСАТЕ1В, 17: COLORS: РАТМТ" 1983"s LOCAT 
E13,19:COLOR7:FPRINT"by КОМЕТ КАТО" 

449 WAIT15:FORI=@T0O26:CALLLHCB9@:CALLLKHC 
002: МАТТ1: МЕХТ 

450 Rm&HS5CA』USK&HC さ 5G 。 А-&Н1 000, 9, &HCEEG 
USR&HC さ 5G A, ©, &HC 180 

469 $04404, Өз SOUNDS, 2: SOUND10, ©: SOUND7, 5 
6 


‚ 15: USR&HC350, А, Ò, LHC180+1 #161 FORJ=OT010 
の INEXT』SDUND19, の MAIT1sNEXT 

489 WAITSı POKE@9778, 7ıWAIT3:POKE@9783, 15 
1FORI=3TOOSTEP-11 SOUND10, 151 USRXHC350, A, 
9,%НС180%1%16:ҒОБ2-ӨТ01 001 NEXT: SDUND 1 の 。 © 
+ МАТТ1 1 МЕХТ 

499 РОКЕ@9785, 7: МАТ! 1 ОСАТЕ1 $, 5: COLORZ: 
PRINT"Hit space bar !"ıLOCATE16, 19: COLORZ7 
‚ ‚1: РАТМТ"Эрасе" 1 COLOR7, , © 

500 IF STRIG(@) THEN RETURN ELSE 5090 

519 w“START" 

520 SOUNDO, 1: SDUND1 , 19: SOUND2, 1@: SOUNDI, 
101 SOUND4 , 201 SOUNDS, 1@: SDUNDB。 1 61 SDUND。 
16: SDUND 1 の 。 16』 SOUND7, 561 SOUND! 1 Өз SOUND1 
2,8 

550 РОКЫ&НСе05, XHDSB7 1 CALLKHC4D0:1 FORI=OT 
O26 SOUND13, Or IF 1-4 THEN POKE@13269, MA+ 
48 

549 CALL&HCE9@: CALL&HCDD2: FORJ=@T05ë:NEX 
TI NEXTICALLLHCEIÓ: WAITS ; 

550 LOCATEJ2, 111PRINTUSING"#####" 1 SC1LOC 
АТЕЗ2, SIPRINTUSING"#N###" 3 HSC 

560 TEMPO169PLAY"V1605L1DRDRFFRDDRFGWBR 
АВ: V1604L 1 ARAR+CCR-AARAAERER: V1603L 1ERER 
EEREARAAERER" 

579 PLAY"DRDRFFKDDRC-+CRWCRDRI ARAR+CCR- 
AAREEERWDRA』EREREEREARAAARWBRE" 

580 COLORS: LOCATE12, 7ı1PRINT"GOOD LUCK!" 
COLOR7:CGEN1:WAIT1@:FORI=5TO1STEP-1:LOCA 
TE11+1, 71PRINTWO, STRINGS (12ー2w【。CHRW (17) 
) ıFORJ=OTO901 NEXT: NEXT: CGEN 

590 SOUNDO, 01 SOUND! , 21 SOUND! 1 , O1 SOUND12, 
701 SOUNDé, 551 ЗО0М06, 631 SOUND2, 1801 SOUNDI 
+ 151 SOUND8, Өз SOUND?, 11: SOUND1 0, 161 SOUND 7 
, 28 

400 RETURN 


é10 SOUNDE, 9: SDUND1 , 12: SOUND2, 1: SOUNDS, 1 

S: SDUND4 21 SOUNDS, 15: SOUND8, 12: SOUND?, 12 
1 SOUND10, 12: SOUND7, 56 

620 CALL&HC4DG』 РОКМЫНСООЗ, &HD400 

630 FORI=0TO28:CALLLHCB9o:CALLkKHCDD2:WAI 
TIINEXTIMAITIOi 

540 SOUND? , 2551 SOUNDé, 6 さ 』 SÜUND8, 16: SOUND 
9, 161 SUUND 19。 161 SUND 1 1 , ©: SOUND12, 100: SO 
UND7, 7: SOUND13, 0 

650 LOCATE10,22:PRINT"Your Score 
INTUSING"#####00"$ SCIWAITLO 

ら 669 СОГОК2:.0САТЕ10, 2351 РКІМТ"Тгу адаіп? 
(Y оғ N)":COLOR7 

870 AS=INKEYS(0): IF А%="үҮ" OR Ase"y“"THEN 
680 ELSE IF A%="N" OR А%="п" THEN 700 E 
LSE 679 

689 IF SC>HSC THEN HSC=SC 

690 SC=@: GOTO20G 

700 ҒОК1-«9Т025:1 ОСАТЕФ, 9』PRINTCHR き (15) 1N 

EXT: SOUND7, 255』 KBUFDN』 END 

710 MA=MA+1:LOCATE37,21:PRINTMA:SOUND11, 

@』 SOUND12, 10: SOUND7, 56 

720 PLAY"V1605L1CEGEGB+CiV1604L16+CECEEE 
:У1604Еб+С-6+ССС": В=В+200 

730 SOUNDO, ©: SOUND 1 , 21 SOUND 1 1 , Oi SOUND12, 
70: SDUND6。 63: SOUND6, 6 さ 』 SQUND2, 180: SOUNDS 
s 15: SOUNDS, Өз SOUND?, 11: SOUND10, 16: SOUND7 

» 28: WAITS: 6ОТО250 


"ТІРЕ 


479 НАІТ5: РОКЕ@9778, 15: Е0К1= 


—— リス ト 3 マイ ティ - バ スタ ー マシ ン 語 リス ト АГЕ ERE EE 


+8 +9 +A +B +C 13 CB 12 CB 13 12 7? ӨЗ 78 ВА !B3 
C696 10 12 өө өө ғғ өе ее OG OO өө өе өе ее ее ее ва 121 C330 47 СВ 13 СВ 12 СВ 13 СВ 12 79 ӨЗ АҒ 78 Ва 47 01 122 
C010 12 13 14 15 74 14 17 18 19 ве ве ве C340 C? 01 08 24 СЗ 15 СЗ ED 56.07 СВ 12 IF Ер 79 C? :Е8 
C020 1А 1B ІС 10 75 1E IF 20 21 ве 00 ве C359 CS OB CS CD 6$ СЗ 7E CD 47 СЗ ӨЗ 23 7E CD 47 СЗ IFE 
сөзе 4А 72 бА 72 73 72 ба 72 4А 00 00 C360 ӨЗ 23 7E CD 47 СЗ С! 23 7E CD 47 СЗ ӨЗ 23 7E CD 125 
C040 42 43 44 45 77 46 67 48 49 ве өе ва C370 47 СЗ ӨЗ 23 7E CD 47 СЗ CD 00 СЗ ӨВ ӨВ 23 7E СО 199? 
С850 72 72 72 72 75 72 72 72 72 90 08 99 99 өе өг өө 105 C380 47 СЗ ӨЗ 23 7E CD 47 СЗ ӨЗ 23 7E CD 47 СЗ С! C? 18A 
С068 бА éA éA «А 78 ¿A éA éA éA 98 00 ве ве өе аё өө ісе C390 өе 00 OG өе ве 00 99 OG ве ев ве өе ве 06 өе ве тов 
C070 42 43 44 45 10 44 47 68 49 OO 00 ве 00 00 өе өе 149 C3A6 DD 7E 00 Fé 00 CƏ DD 7E 10 FE 01 FƏ FE 19 DƏ СЗ :24 
C080 1А 1B ІС 10 74 1E IF 20 21 ёе ве ве 90 өө ее өе 149 C3B@ PF Cé өе өе ве өе 08 өө OO ее OG ое GO ве ее өе 155 
Ce?@ 1А ІВ ІС 10 72 1E ТЕ 28 21 ве 90 өе өе сзсе ве өе өе өе өе өе өе өе өе ее өе ге өе өе ее GG тое 
COAG 1А 1С 4А IF 21 4А ба éA GA BO 99 ве C3D0 ве ве ее ве өе ее OO өе ее өе ее өе өе BO 99 09 тев 
СЗЕ0 өе 00 өе ве өе OO өе ее өе ее OG ое ее ее ее 99 !99 
СЗҒӘ 90 21 08 СӨ 56 23 SE 15 10 CD 12 СЗ ED 78 FE 11 100 


CODO óA 4А óA ба 75 72 éA 72 72 ве де 00 әб 


COEG 72 72 óA 72 75 4А óA ба éA BO 99 00 бит BS ЗЕ 97 ЯҒ 36 59 49 55 4F ВА А2 7B <E ВА E8 E? 196 


+0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +B +C +D +E +F Sum 
C400 C2 29 C4 ӨЗ ED 78 FE 11 C2 29 C4 ӨЗ ED 78 FE 11 14C 
C410 C2 29 C4 14 ІС CD 12 СЗ 21 02 Се 7E 07 07 67 07 ІҒЕ 
C420 Cé 80 éF 26 СІ CD 50 СЗ С? 21 ФА Се 34 Ө! СЗ 13 130 
C430 C4 ве өе ве өө өө ее өе ее өе ве өв өе 00 ее ве iC4 
C440 ве ве өе ве 00 ое 08 09 ее өө ое ве ее ве GO GG 10% 
C450 ве ве 0G өе ее ое өе ве 00 да тее 
C460 ES DS 01 07 08 11 07 C2 21 06 C2 ED BB @1 07 ёе 132 
C470 11 17 C2 21 14 C2 ED B8 01 ҒО 21 08 C2 ҒО 72 08 1A8 
C480 ҒО 73 18 Е! С? ES DD 46 00 089 OG DD 23 01 88 23 IFE 
С490 1Е 1B 16 20 ED 41 ӨЗ 15 C2 94 C4 79 Cé 98 АҒ 78 IFD 
C4A9 СЕ 08 47 10 C2 92 C4 El С? CD 85 C4 СЭ 97 СВ 00 :2F 
C4B6 DD 21 090 C2 04 Ва DD 54 18 7A Cé ӨЗ FE 1B DA CS 10E 
Сасе са DD 34 өө өе 14 DD 72 19 DD 23 05 C2 Bé C4 С? 154 
C4D0 81 88 33 ЗЕ 72 CD Е! C4 01 88 23 ЗЕ 27 CD Е! C4 1641 
С4Е8 C? 16 78 ED 79 ӨЗ 15 C2 ЕЗ C4 C? ве 90 ре ее ее 107 
C4F9 01 00 34 IE 19 16 IF ED 49 СВ BC 7С FE 45 СА 39 137 


бит 59 ЕВ ЗС ВЕ 62 СІ C7 A8 80 1E 4B OA 35 01 2С 51 150 


бит ФЕ B7 E4 Bé 29 08 F? 14 OF ве 69 өе өе ее. 


Add +0 +1 +2 +3 +4 +5 +é +7 +8 +9 +A +В +С +D +E +F Sum 
C100 7А 22 23 24 25 24 27 28 29 99 өе 69 өе өе ве 98 125 
C110 7B 2А 2B 2С 20 2E 2Ғ 30 31 90 өе её өө өө ег өе !E7 
C120 7С 32 33 34 35 36 37 38 39 ве ве өв өө BƏ ве ее :28 
C130 79 ЗА ЗВ ЗС 30 ЗЕ ЗЕ 40 41 BƏ ве ве 99 ве ве 08 1:45 
C140 70 42 43 44 25 44 47 48 49 өе ве ве ое ве ве 08 :89 
C150 7E 4А 4B 4С 20 4E АҒ 50 51 00 08 BO өе 00 өе 99 ICA 
C160 7F 52 53 54 35 54 57 58 59 ве өө өе ве өе ве ве :ев 
C170 11 11 11 11 11 11 11 11 1: өв ее өе өг 88 99 90 1:199 
C180 99 өэ өг өз 64 95 04 өт өв ве өе өв Be өе дё ве і2С 
С170 ВА 01 02 ӨЗ 04 05 06 97 06 ве ве өе 99 ве ее ве 12Е 
CIAO 99 81 02 ӨБ 04 05 06 07 өв 08 өе өе өе BƏ ее 99 :2с 
Сіве 08 01 02 өз 04 85 ƏC өт ев BO өе 08 908 өе GG да !2A 
CICO 80 01 өг 03 04 05 04 OD 06 вә BO өө өө өе ве өе і2А 
ciDe 00 01 02 ӨЗ 04 05 04 07 OE ве өв ве ве ве 99 99 ага 
CIE6 00 01 02 ӨЗ 04 OF 84 07 ев өе 99 өв өе ов 00 08 12E 
СІҒӘ 98 01 18 ӨЗ 04 05 06 07 өв ве өе өе GG ге ве өе ізг 


бит 7Ғ B7 CC 05 7C F5 ӨӨ OF 1E ве өе өе өс 


Add +0 +1 +2 +3 +4 +5 +4 +7 +8 +9 +A +B +С +D +E +F Sum 
с500 CS 7C FE 55 СА SD CS ЗЕ 79 ВС F2 27 C5 ЗЕ 7C BC 147 
С510 F2 14 CS 24 7С Dé 79 97 07 97 07 éF 26 СІ CS СЗ 1в4 
C520 10 CF 00 98 08 өе С! ӨЗ 15 C2 F7 C4 79 Cé Ө? АҒ їсс 
CS39 78 СЕ 99 47 1р C2 FS C4 C? DS ЗЕ 11 CD 47 СЗ ӨВ :Е4 
CS49 ED 78 СВ BF FE 12 F2 53 CS ЗЕ 45 CD 47 СЗ ӨЗ Di із7 
С550 СЗ 27 CS ӨЗ ЗЕ 55 CD 47 СЗ D1 СЗ 27 CS 05 ЗЕ 11 !:C0 
C560 CD 47 СЗ ӨЗ ED 78 СВ BF FE 12 F2 77 CS ЗЕ 55 СО 167 
C570 47 СЗ өе D1 СЗ 27 CS ӨВ ЗЕ 45 CD 47 C3 01 СЗ 27 IAA 
Сс588 CS 08 21 00 СӨ 54 15 23 SE 1D 26 ӨЗ 05 СО 12 СЗ 14F 
С590 2E ӨЗ ED 78 СВ 7F C2 AA CS FE 12 F2 АА CS ӨЗ 20 !B2 
сзав C2 92 CS 01 IC 25 C2 8С CS C? Di 21 OA Се 34 91 IFA 
CSB0 C? 47 7С Fé 08 СА CD CS 7C FE 02 СА Dé CS 7С ЕЕ 159 
CSC@ 04 СА DF CS 7C FE 06 СА E8 CS ЗЕ 01 С? 15 98 1D таз 
С508 10 2E @1 СЗ Fl CS 15 15 10 08 2E 28 СЗ Fl CS 15 іРӘ 
CSE9 00 ІС ІС 2E @1 СЗ Е! CS 14 14 10 @0 2E 28 СЗ Fi і2Ғ 
С5ҒФ CS 24 ӨЗ CD 12 СЗ ED 78 СВ BF FE 12 F2 СА CS 79 189 


бит 47 ӨС 44 18 74 08 А2 Аа éA ЗА 87 38 ре 


+8 +9 +A +В +С +0 +E +F Sum 
ве ве во еве ве ее өе ве 108 
08 ве ое өе өе ее өе өе тае 
ве ве 08 69 ее өе өе 0G кв 
ве ве 08 00 өе 08 ве де !99 
00 ве өе OG өе ве 99 99 тев 
ее 08 ве өе GG OG 99 ве : өе 
ве ве ое ве ве ее 99 99 100 
өе ве 99 ве өе 99 99 ве 1:00 
ве ве 99 00 00 өе ве 99 IFC 
09 ве ве өе ве ее 00 99 дө 
ов ве өе OG ве ее ве 99 тев 
ве ве OG OO 90 06 99 GG 104 
сгсе өе ве өе 06 өв ее өв oe ее 98 99 08 өе 99 BƏ өе 108 
C200 00 ҒҒ FF FF ҒҒ @@ FF 01 99 91 01 01 01 во 91 ҒҒ 100 
C2E9 ве ев ге ре ве ве вө өе өе ве ве ве 06 ее GƏ 99 10% 
C2F0 SA SB SC 50 74 SE SF 40 41 00 0G 0G 99 ос 99 98 152 
ニー ニー ニー z Add +0 +1 +2 +3 +4 +5 +é +7 +B +9 +A +B +C +D +E +F Sum 
С408 85 4F 78 CE 08 47 25 C2 Fé CS ЗЕ ӨӨ С? 08 ӨӨ 09 тоа 
с418 DD 21 28 C2 24 08 DD 7E 88 30 DD 54 10 DD SE 38 154 
С429 СА 79 Cé ЗС ЗС СА 42 Cé ЗЕ 08 ВА F2 49 Cé ЗЕ 00 ICA 
C630 ВВ F2 é? Cé ЗЕ 1E ВА DA é? Cé ЗЕ 17 BB DA é? Cé 114 
с648 CD 12 СЗ ED 78 СВ BF ED 79 7A DD 84 29 57 78 DD 1A3 


61 01 61 0: 81 


4 +1 +2 +3 +4 +5 +4 +7 +8 +9 +A +B +С +D +E +F Sum 
C300 79 Cé 28 4F 78 СЕ 00 47 C? 79 Dé 28 АҒ 78 ОЕ @@ 128 
C319 47 4Ғ 78 СЕ 00 47 


iO 読 者 アン ケー ト 回 答 よ り . 
オモ ワズ 身 プ ルイ スル ホ ド ノ ョ サ で すね / 載 っ て いる ゲー ム に は me で も make で きそう な の が あっ て 嬉し か っ だ よ ょ / ノ KRN ‘ERR 


Ро 


リス ト 3 マイ ティ ・ バ スタ ー マシ ン 語 リス ト 


86 49 SF СЗ 
C460 73 30 00 23 25 C2 
C670 ЕО 79 DD 34 00 ҒҒ 
С&8@ ЕО 7? DD 36 00 ёе 
С&?@ 21 OB СӨ 4E 24 C2 
С&А@ да FD 21 20 C2 ҒО 
С6В0 AS Cé С? ҒО 36 00 
С&С@ FD 77 30 21 өе СӨ 
CéD0 D4 Cé 16 00 23 DD 
С&Е@ Cé 1E 00 21 OC CO 
FD 77 20 23 


EB EF 90 СІ 


+0 +1 +2 +3 
C799 FF FF FF ҒҒ 00 ёё 
C710 өе өө 0O ве ве 99 
C720 99 09 99 ве 00 өв 
С730 21 02 Се 7E 07 Cé 
С740 77 ӨЗ 23 7Е ҒО 77 
С750 ЗС СА SB C7 DD 23 
С768 08 ҒО 7E 01 DD 77 
C770 DD 77 28 DD зё 00 
C780 26 04 DD 7E 00 3C 
C7?9 00 B2 СА 09 Ce ЗЕ 
C7A9 СВ ЗЕ 18 ВВ СА 609 
C780 7$ Dé 73 FA E4 C? 
C7C@ BD СА 08 C7 ЗЕ 75 
C700 21 40 СІ СЗ се св 
С7Е@ 07 CO 01 Е! DD 7E 
c3 ED 78 СВ 


С7 C3 E7 12 


+0 +1 +2 +3 
C800 73 18 DD 23 25 C2 
С810 ЕО 79 DD 34 08 ҒҒ 
св20 21 20 C2 2E 08 DD 
свзе C2 37 св DD 36 00 
C849 36 00 ҒҒ СЗ 02 СӨ 
ceso ге өе өө ее ве 0G 
C840 99 00 08 өе өе 0G 
| св7е 96 00 00 ег өз ег 
C880 CD 12 СЗ ED 78 CB 
C8?0 Cé СВ BF ED 7? DD 
C8A@ Ва С2 АҒ C8 DD 7Е 
C8B9 С2 90 СӨ DD El DD 
cece CD 58 СЗ ЗЕ 01 32 
свое FD 84 07 32 07 СӨ 
C8E@ DD 7E 00 ВА C2 F2 
ве 09 DD 23 


2Ғ 78 ЕЗ РЗ 


+0 +1 +2 +3 
C?99 св ве өе өе өе ее 
C910 99 068 өе өе 09 өе 
Сс920 04 06 02 00 FF ҒҒ 
С930 90 ҒҒ FF 08 00 01 
C940 DD 21 08 C2 FD 21 
С950 ЗЕ 098 B2 СА 60 С? 
с940 DD 23 05 C2 4А С? 
С970 09 C? ЗЕ 10 ВА FA 
C?80 85 C? 21 28 С? ФЕ 
С??@ CS El D1 Сі 30 C2 
C?A@ ЗА 27 C? Cé 30 éF 
C?80 СЗ CD 50 СЗ О! Е! 
сӯсе DD 73 10 Ср 12 СЗ 
С900 21 18 C? СЗ 85 С? 
C?E0 31 32 33 34 34 37 
С?Е@ 01 01 01 98 00 ҒҒ 


9B &Е 16 А! 34 BF 


+0 +1 +2 +3 +4 +5 
CA69 DD 21 ве се DD 54 
CA19 07 07 07 07 Cé ве 
Саге ге өе 0G өө өе ва 
CA30 0! 00 19 ED 58 ЗЕ 
CA49 са ЗЕ 43 BB CA EZ 
СА5@ са E7 CA 21 ЕВ С? 
CA4@ 58 Са C? 00 ее 00 
СА70 54 ве DD ЗЕ 01 05 
Саве 7A ҒО 84 98 57 78 
CAPO 16 01 ЗЕ 00 ВЗ C2 
CAA0 1Е 17 ЗЕ 1F ВА C2 
саве CD 82 CS CD 00 СА 
CAC@ CD зе ст C? өе өө 
саре ве өе ве өе ве 99 
CAE9 со @@ СА СО 20 СА 
99 са СО 20 


ЗС А8 Fe 98 


+0 +1 +2 +3 
CB99 77 23 05 С2 99 CB 
CB19 10 12 08 08 ҒҒ 00 
CB29 00 ве ве ее өе вв 
CB30 01 E8 37 ЗЕ 
CB49 21 00 C2 ЗЕ 


PiO 


リス ト 3 マイ ティ ・ バ スタ ー マシ ン 語 リス ト 


0050 01 1E 92 IF 01 75 01 78 
0040 10 02 ІС ӨІ 1E 75 91 78 
D070 10 02 1C 01 1E 81 78 ӨЗ 
0888 01 1B 91 1E 01 92 78 02 
0090 01 1р 01 1B 02 78 04 75 
D0A0@ 1А 01 1С @1 1А 3 28 FF 78 
реве 1с @1 ҒҒ 71 28 
oece 70 04 70 ӨЗ «А 
D0D0 70 094 70 01 5А 
00Е0 ҒҒ 4А 91 4А ӨЗ 
DOFO 01 óA 01 «А 02 


07 Ғ4 78 54 AB 1B 7C ФА 


Add +0 +1 +4 +5 +6 +D +E +F 
D100 01 4А 01 4А 02 9D ба @5 
2110 01 óA éA 01 70 97 20 20 
2120 4А ӨЗ ба 04 78 97 в: ев 
D130 óA 04 ба 01 70 FF éA 04 
0140 @1 70 92 79 01 05 sA 05 
D150 04 78 ӨЗ 70 ӨЗ 20 29 АЕ 
0140 92 ҒҒ 70 01 6а 92 @1 11 
0178 79 01 78 01 4А 43 48 49 | 
0180 70 01 70 61 éA 95 70 01 
0190 01 4А 81 6а 01 1 AE ҒҒ 4А 
DIAO 01 sA 01 4А ӨЗ ; 11 91 AA 
DIB9 01 4А 81 éA 01 

DIC9 óA 01 éA 02 70 

0106 «а 02 ба 91 70 

01ЕӨ óA 02 28 FF FF 

DiF9 29 20 20 20 29 


B3 ВЗ 98 83 18 97 


+4 +5 +6 +0 +E +F 

20 28 20 52 20 28 
D210 20 20 20 26 20 91 AA 97 
D220 20 20 20 20 99 11 6E 01 
D230 90 90 98 ув 90 ФА 05 11 
D240 20 29 20 20 AE AA 07 20 
D250 20 20 20 20 20 р 53 43 АҒ 
D260 28 29 20 20 91 20 АЕ ҒҒ 
D270 20 20 98 ув 909 FF ҒӨ éA 
D280 98 90 98 90 98 54 41 52 
D290 20 20 20 20 20 27 éA 4А 
D2A9 20 26 20 28 20 FF 4А ВА 
D2B0 20 20 AA 04 20 FF FF FF 
02се 20 20 20 20 53 FF FF FF 
D2D@ 20 20 20 40 АҒ FF 4А Фа 
D2E9 98 20 98 98 20 91 ҒҒ 4А 
2250 20 29 20 20 26 éA 01 ҒҒ 


бит 58 E@ да О? 2А 


Add +@ +1 +4 +5 +4 +D +E +F 

D300 20 20 AE FF AA ФЕ る E 01 

0310 91 20 20 20 20 FF óA 0B 

D320 20 20 99 90 98 11 @E 4Е 

0330 07 29 97 20 29 01 ҒҒ ба 

0346 20 26 20 26 20 ӨЗ ва 07 
.| 0350 91 32 33 91 20 бА 01 ҒҒ 

0340 04 1С 14 АА 07 01 ҒҒ 4а 

0370 AE ҒҒ AA 07 99 FF FF FF 

D380 FF 28 04 54 55 11 BA ба 

0390 91 29 91 36 91 9B 76 01 

D3A9 20 20 15 да 07 éA 14 11 

2388 АЕ FF AA 07 99 

D3C8 FF 20 97 91 37 

D300 29 1С ФА 98 97 

D3E0 28 ҒҒ FF 29 @D 

D3F9 43 4F 52 4F 4С 


55 FC 9@ 8F 23 44 


Add +0 +1 +4 +5 +é +0 +E F 
D400 óA 28 FF FF FF 11 08 4А 
D410 75 04 75 01 78 Сі ӨЗ «А 
0420 75 д1 FF éA 07 71 да ба 
D430 01 78 01 78 04 07 <В 01 
0440 01 75 ӨЗ FF &А 11 09 6E 
2458 75 01 75 @1 78 91 4А 02 
0468 75 91 ҒҒ 6A 07 71 BA ба 
0470 01 78 81 78 ӨЗ FF ҒҒ ҒҒ 
0480 éA 07 78 04 75 00 «а 04 
0490 75 01 75 @1 78 ӨЗІҒ 01 
D4A8 ҒҒ 78 91 78 04 10 @1 1F 
о4ве 01 78 91 78 07 FF 71 0$ 
D4C9 78 07 75 04 78 10 01 C2 
0400 75 04 75 05 78 01 4А ӨЗ 
D4E9 04 78 е: 78 94 07 ба ев 
D4F@ 01 78 04 ҒҒ 78 éC 01 óA 


CC 39 02 В@ E7 85 Sum EA 54 FE 7А 7С СО 7Ғ :52 


Add +0 +1 +4 +5 +6 +8 +? +A Add %4 +7 +в +A %0 +E +F Sum 
0500 75 01 75 @1 78 75 @1 78 DA99 ба 91 11 ӨЗ FF 71 1С@ 
0510 75 01 FF 78 02 01 78 04 DA19 91 6C @1 04 06 «а 08 1С4 
0520 01 78 01 78 02 61 78 ӨЗ раге өс 95 ҒҒ éD @1 11 ICC 
0530 01 78 78 02 75 78 92 75 базе өз 95 4А éD 9B éC @1 iC2 
0540 78 92 78 02 75 78 02 75 базе 94 éD д1 өв ФА 02 ҒҒ 188 


画 PiO 読 者 アン ケー ト 回 答 より . 
な ん と な く 本 屋 に 寄っ て この 本 が 目 に 付き , パラ パラ と 見 た と ころ , B 誌 な ん か より も 内 容 が 濃い の に 気付 き 。 ね だ ん を 見 て 買っ だ ただ. 初心 
者 の 僕 に も ょ くわ かる. 誰か アド ベン チャ ー ゲ ー ム (LEVEL 3 ) 作 っ て くだ さい . 兵庫 ・ 山 本 書 


2750 4А 
DF る 9 04 
DF79 óA 
DCF89 Фа 
DF? 01 
DFA9 01 
DFB0 4А 
DFC9 01 
ОРО@ FF 
DFE0 48 
ОЕЕ@ 98 


94 10 02 1A 01 
10 01 77 0! ЕЕ 
06 11 BA ба 04 
бА OC ҒҒ ҒҒ FF 
бА 03 FF óA 05 
11 9B GE 01 óA 
08 70 01 4А ӨЗ 
éA 03 ҒҒ 4А 02 
ба да 48 0111 
61 11 08 óA 08 
70 01 «А ӨЗ FF 


бит C8 20 48 55 ВЕ Bé A8 


1C 
02 
14 
FF 
11 
ө? 
ЕЕ 
78 
ө? 
7@ 
ға 


Add +0 +1 +2 +3 +4 +5 +é 
Е000 ¿éA 06 СІ 02 4А ӨЗ 11 
E919 OC 11 08 4А @1 ҒҒ 4А 
Е@2@ ӨС 11 өв éA өв 70 01 
E030 4А 01 бА 01 óA 01 4А 
E040 óA 08 78 04 ҒҒ éA ӨС 
E050 ¿A 05 4А 07 FF éA ӨС 
Е@40 óA ӨС FƏ 4А ес 11 ӨӨ 
E070 ҒҒ ба 02 72 08 ¿A 02 
E080 01 72 01 72 01 72 01 
E@?@ бА ӨС ҒҒ FF FF FF FF 
E9A9 08 éA 05 11 08 éA 04 
ЕӨВӨ 4А ӨС ҒҒ 4А OC 11 08 
ЕӨСӨ бА 05 11 08 éA 04 
E9D9 ӨС ҒҒ &а OC 11 08 
EBEG 78 ӨС FF éA ӨС 11 


Add +0 +1 +2 +3 +4 +5 
E100 éD 61 11 BA éA OC 
E110 40 @1 11 10 4E 61 
E120 éA 05 40 @1 11 14 
E130 óA 04 11 BA óA 01 
E140 4А 04 11 BA ба 02 
E150 9A 4А 12 FF 4А 84 
E160 04 11 BA FF FF 4А 
E170 ӨЗ C2 00 «А 02 C2 
E180 6B 01 11 ба 4E 01 
Е190 @1 óA OF FF óA 06 
E1A0 07 óB 01 11 ба GE 
Е1В0 4А 01 FF 4А 99 4В 
ЕІСӘ 11 04 BO 11 64 éA 
E100 1F 01 21 01 óA 01 
Е1Е@ ба 02 ҒҒ 6A BA 11 
E1F0 01 ІС 01 éA @1 1A 


Sum A1 46 BE 01 ӨС СА 


Add +0 +1 +2 +3 +4 +5 
E200 éA ӨВ FF éA 04 C8 
E210 4А BA 11 OB ¿éA ев 
E220 FF ҒҒ 4А Ва 11 ев 
Е230 Фа 11 ӨВ éA ӨВ FF 
E240 11 ӨВ éA ӨВ FF &А 
E250 4А ӨВ ҒҒ éA ба 11 
Е24@ éA 01 AA OF 44 61 
E270 «А 05 75 01 ЕЕ 01 
E280 ФА éA 6а 4А AE 6A 
Е2?@ 4А 08 40 61 11 6D 
Е2А8 OF GE 01 4А 08 FF 
Е2ВӨ ҒҒ 4а 05 éD @1 11 
E2C@ 11 @1 11 @1 11 6C 
E200 ӨЗ 40 @1 11 17 GE 
E2E9 ҒҒ éA 03 11 19 бА 
E2F0 48 01 11 08 4А 04 


Бит 8С 64 10 ОВ 38 29 


PiO 


リス ト 3 マイ ティ ・ バ スタ ー マシ ン 語 リス ト 


01 1E 02 FF éA 06 11 BA 4А 
1B 02 77 @1 ЕЕ 02 1Е @1 FF 
01 1B 04 ІС 01 ҒҒ ба @é 11 
éA 06 11 ба GE 01 ба OB 70 
9B «Е 01 ба ВА FF óA 86 éB 
FF «А 07 &В @1 11 ӨВ GE 01 
éA 08 óB 01 11 OB éA өв 70 
01 бА 06 éB @1 11 BA 70 ес 
éA 08 70 01 éA 03 FF éA ӨВ 
01 «А ӨЗ ҒҒ ба ӨС 11 08 éA 
ӨС ‘11 03 BO 11 02 4А 08 FF 


.9A 7C 02 12 ЕЕ 37 ҒА 11 ED 


+7 %8 +9 +A +В +С +D +E +F 
08 ¿A 08 70 01 éA ӨЗ ҒҒ 4А 
ӨС 11 98 «А ӨЗ СІ @9 ҒҒ sA 
бА 03 FF FF FF 4А 02 бА 61 
01 бА 01 éA 02 éA 92 11 ӨӨ 
11 08 «А ӨС FF éA ӨС 11 ев 
11 98 ба ӨС FF éA ӨС 11 ов 
éA OC ҒҒ «А OC 11 08 4А ӨС 
11 08 éA 02 72 01 72 01 72 
72 02 4А 02 ҒҒ 4А OC 11 өв 
FF FF РЕ FF FF FF бА 04 СІ 
СЗ 01 éA 05 ҒҒ 4А ӨС 11 ев 
бА ӨС ҒҒ ҒҒ FF 4А 04 СІ 01 
00 ¿A ӨЗ ҒҒ ба OC 11 08 вА 
ӨС ҒҒ ҒҒ ҒҒ FF ба ёс 11 өв 
бА OC ҒҒ ба 04 CC 01 óA 04 
éA BA éD 01 11 99 ҒҒ 4А 0? 


ЎА 99 80 35 FB ¿éD ЗС DA BC 


+7 +8 +9 жа +B +C +D +E +Е 
«А 08 40 01 11 ӨВ FF 4А 07 
éA 04 40 01 11 12 4Е Ol FF 
ба 04 éD 01 11 15 бА 06 ҒҒ 
91 11 05 BO 11 02 4А 04 FF 
81 11 09 4А 06 ҒҒ ба 04 11 
91 55 @1 11 08 бА 12 ҒҒ éA 
FF FF る 04 11 BA éE 01 4А 
ба 02 C2 00 бА 01 ҒҒ óA 04 
18 ҒҒ 4А 05 éB 01 11 OA GE 
01 11 BA GE 01 4А OE ҒҒ éA 
FF ФА 08 éB 01 11 BA 6Е 91 
11 ВА óE 01 éA OB ҒҒ 4А BA 
ба OA FF 4А Ва 11 OB 4А 01 
91 21 01 éA @1 IF 01 21 01 
ба 01 1А @1 1С 01 óA 01 1А 
1C @1 éA 02 ҒҒ éA OA 11 OB 


вс 38 


Ғе ЕВ CA СА 02 63 F7 


+7 +8 
ба ез 
ЕЕ FF 
82 С5 
91 CC 
11 @B 
ва ов 
67 45 
05 FF 
éD 01 
01 ба 
06 éD 


+? +A 
11 ва 
FF FF 
91 CS 
00 óA 
ба ев 
FF 6A 
72 21 
ба 01 
11 0B 
09 РЕ 
01 11 


+B 
11 
FF 
ee 
02 
Fe 


+С +D +E +F 
01 ба ӨВ FF 
FF FF FF FF 
éA ӨЗ ҒҒ 4А 
CC 99 ба 01 
éA ВА 11 eB 
FF ЕЕ FF FF 
éA 02 11 ев 
27 ва ва ға 
01 4А ба ҒҒ 
07 éD @1 11 
«ФЕ 01 «А 07 
ба 04 60 01 
6А 05 ҒҒ 4А 
11 19 ба 04 
6С 01 «А 07 
91 4А 09 ¿B 


Add +9 +1 +2 +3 +4 +5 
E300 01 11 07 4А 04 ЕЕ 
E310 FF éA ӨЗ 11 07 6A 
E320 4А 04 C1 01 éA 04 
E330 ӨВ 11 97 4А 04 FF 
E340 ҒҒ éA ӨЗ 11 97 óA 
E350 07 éA 04 FF éA ӨЗ 
ЕЗ40 ӨЗ 11 07 4А OB 11 
E370 Сі 01 éA 04 11 07 
E380 07 4А 04 FF FF FF 
E3?0 02 éA ӨВ 11 02 C2 
E3A0 óA OB 11 97 éA 04 
E3B9 04 FF 4А ӨЗ 11 07 
ЕЗСӨ FF FF FF FF ҒҒ 6а 
E3D0 07 éA 01 4А ӨЗ FF 
E3E9 éA 04 FF FF FF FF 
ЕЗР@ C2 01 éA 04 ҒҒ 6A 


бит ЕВ C2 3D EA 82 8F 


Add +0 +1 +2 +3 +4 +5 
E499 FF FF ҒҒ FF «А ӨЗ 
Е410 FF FF FF 4А ӨЗ 11 
E420 11 07 11 OA 11 ов 
E430 11 97 4А 04 FF 4А 
Е448 ӨЗ 11 97 FF 4А ӨЗ 


リス ト 3 マイ ティ ・ バ スタ ー マシ ン 語 リス ト 


91 11 01 Е950 4А BE éC 01 4А 01 
ӨЗ 11 07 Е940 04 éC 01 éA ба 70 
45 01 11 E?70 4С ба 70 01 óA 04 
61 11 97 E?80 08 17 01 18 01 19 
ӨЗ 11 97 Е?99 01 FF 4А 04 11 08 
éA 93 11 E?A0 ЕЕ 01 éA 04 70 01 
«ФЕ 01 éA 81 12 
ба 04 78 01 Cé 
09 70 01 óA 04 
11 ВА 11 01 GE 
02 éD 01 11 BA 


56 4А 45 бит 66 54 éF 7F 7С 6В 69 СЕ 


+В +C +D Add +0 +1 +2 +3 +4 +5 +56 +7 
ба дА ба EA99 ¿A 04 ҒҒ 4А 02 11 ВА 11 
ӨВ 11 97 EA19 95 FF 4А 02 11 13 6Е @1 
11 97 ба EA20 01 óA 01 óB 01 11 OA 11 
04 ЕҒ ҒҒ EA30 11 06 4А 03 óB 01 11 Ва ` 
ва @1 11 EA49 02 11 96 4А 06 68 01 11 
01 11 07 ЕА5@ ¿A 02 11 04 óA 07 68 01 
11 98 ҒҒ EA4@ ҒҒ ба 02 11 06 éA 07 4А 
01 ба @1 ЕА7@ ҒҒ ба 02 11 06 éA Ө2 СІ 
11 08 éE EA80 01 óA 04 ҒҒ óA 02 11 04 
95 <В @1 ЕА?@ 45 01 11 68 4А 04 ҒҒ 4А 
95 ҒҒ «А EAA BA ба 04 ҒҒ ба 92 11 05 
FF ба 07 ЕАВ@ 4А 04 ҒҒ 4А 02 11 04 óA 
éB 0111 EAC9 11 06 óA BA ӨВ @1 11 69 
91 óA ӨЗ EAD9 06 4А 02 C4 ӨӨ C4 00 sA 
éA 01 ҒҒ EAE@ 11 06 ба ба ба 01 11 99 
бя ёс 48 EAF9 ӨВ 11 01 55 01 11 97 4А 


-------------------------------------------- ------------------- 


6і F? 52 бит 08 ОЕ 69 11 éC 58 30 


+В +C +D Add +0 +2 +3 +4 +5 +6 +7 
93 11 05 EB99 С! éA 03 11 09 Cé 00 
ве 11 01 EB19 01 да éB 01 11 08 6А 
éA 01 ба EB20 4А ФА 01 éB @1 11 07 
84 11 05 EB39 98 91 4А 08 11 07 4А 
éA ВА óA ЕВ40 ФЕ éA 07 11 97 éA 01 
05 ға 07 ЕВ50 ӨЗ 01 Cé 08 4А д1 11 
éA 04 FF ЕВ40 <В 11 90 éE @1 éA 02 
AA OF 42 EB70 094 91 11 BA 11 BA 11 
FF 4А 80 EB80 ¿B 11 14 éC 01 óA 05 
éA óA ба ЕВ90 98 91 4А 05 FF бА 07 
ба BA 6A EBAO FF BA 11 BA 11 ӨЗ 6С 

11 BA 11 02 éC 01 

01 4А 05 11 OC 4А 

éA ӨЗ 78 01 óA 04 

95 79 01 4А ӨЗ 11 


E<F@ 01 éA 02 70 01 éA 02 


бит Сі 60 ВА 38 63 ЗС 81 3F ЕВ ҒА 


Add +0 +В +C +D +2 +3 +4 +5 +6 +7 
E700 FF 11 вв ба ба 11 02 11 ба $A 
E719 4А 02 68 01 ба 02 ҒҒ ба дА 11 
E720 óA ға BA 11 11 0С 4А 91 ба 0? 
E730 02 01 4А дА 99 Cé 00 4А ӨЗ 11 
E749 4А éA 81 óA ба 95 11 OC ба 02 
Е758 04 99 ба 01 Фа 11 OC éA 02 10 
E760 ҒҒ 11 04 4А 5 92 ҒҒ 4А BA 11 ӨС 
E770 ба 05 óA 02 1E 01 éA 02 FF óA 
E780 02 éA 02 FF 02 1А @1 1B 04 ІС 
E798 11 01 4А 04 FF FF ҒҒ ҒҒ FF ҒҒ 
E7A9 «А «ФЕ 01 óA FF éA ӨЗ СІ 04 óA 
E780 81 91 11 BA ва да ба 01 éB 01 
Е7С@ óC 11 @А ба ӨС 6B 01 11 OB 6E 
E700 óA 91 4А 02 ФЕ 01 ба 06 ҒҒ 4А 
E7E9 02 éA 02 ҒҒ ФА OF óB @1 11 OB 
E7F0 4А éB @1 11 9B 6E 01 4А ӨЗ FF 


ce BA 530 72 71 Аё Cé 80 92 


+В +C +0 +2 +3 +4 +5 +6 +7 
09 вв 01 éB 01 11 OB éE 01 
92 ҒҒ 4А ӨЗ sA 93 óB 61 11 
93 AA 37 éB 01 11 BA éA 02 
07 11 04 09 ба 02 ҒҒ óA Ө? 
11 94 4А ба 02 Ғғ ба BA 70 
04 11 04 éA 06 78 01 る ӨЗ 
éA 03 АА éA 92 FF éA 02 Cé 
«А 04 60 92 70 01 óA ӨЗ 4А 
92 4Е @1 ба 99 11 08 4А 92 
11 да 11 93 78 81 éA 07 11 
Фа 11 05 79 01 ба 02 70 01 


64 О5 7Е 88 ЗВ SE ВА Ғі B7 


+В +C +0 +2 +3 +4 +5 +6 +7 
ев «а ев ов 11 01 ве 11 04 
ва 93 C2 9 る 11 08 4А 02 ҒҒ 
өз «а 02 11 08 «А 02 ҒҒ ҒҒ 
12 éC @1 70 @1 éA 07 11 08 
81 ба 06 78 01 óA 01 4А 07 éD @1 11 


画 PiO 読者 アン ケー ト 回 答 より . 
IT/O10 月 号 に 10 月 下旬 に 発売 と 書い て あっ た の に 発売 され ず ,11 月 号 に 『 創 刊 準 備 号 』 と 書い て あっ た の に 本 誌 に は 『 爆 走 開始 号 」 と 書い て あ 
5. な ぜ た ろう. KH ‘MER 


Рю 


リス ト 3 マイ ティ ・ バ スタ ー マシ ン 語 リス ト 


91 11 0? 
éD @1 11 
01 11 дА 
11 01 4С 
01 4С 01 
éC 01 4А 
05 ҒҒ óA 
92 éD 01 
11 BA 11 
0? ҒҒ 4А 
01 óA 07 


24 20 61 


+7 +8 +9 
7@ д1 4А 
91 4А дА 
ба 02 78 
ба «А 02 
éA да ба 
ФА 02 11 
Са 02 óA 
бА 02 11 
РР éA 02 
10 дА 10 
71 01 10 


73 84 ға 


+7 +6 +9 
01 1С 01 
10 01 71 
FF 71 01 
71 @1 10 
ЕЕ ЕЕ РЕ 
@1 71 да 
11 08 10 
98 10 01 
10 @1 11 
10 @1 71 
@l 71 OA 


7Ғ 30 FE 


+7 +8 +9 
71 0110 
1Е 04 71 
81 1D ӨЗ 
10 01 55 
1С 01 1E 
09 10 ёі 
10 д1 11 
РЕ 71 01 
FF FF FF 
71 @1 1D 
01 10 61 


87 98 54 


+7 +8 +7 
71 ва 71 
ЕЕ FF ЕР 
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PiO 編 集 部 で は 次 の よう な 原稿 を 募集 し 
от. 


オリ ジ ナ ル ・ プ ログ ラム 
(ゲー ム , ホビー, ゲー ム 開 発 用 プロ グラ ム ) 
スト ー リ ー か ら キ ャ ラク タ , プログラム 
自身 も すべ て オリ ジ ナ ル な プロ グラ ム (РіО 
また は I/O, また その 他 の 工学 社 の 出版 物 
内 の プロ グラ ム の 移植 は 大 い に や っ て くだ 
зо) を カモ ッ ト ・ テ ー プ や フロ ッ ピ ー デ 
ィ ス ク に 入れ て 原稿 と 一 緒 に 送っ て くだ さき 
с, 初心 者 の BASIC の み の プ ログ ラム も 
大 歓迎 し ます . 
機種 は ゲロ グラ ム で きる も の な ら 何 で も 
か まい ませ ん . 原稿 は 400 字詰め 横書き 
の 原稿 用 紙 5 枚 程度 に まとめ , М, Ж, 7 
ロー チャ ー ト も で きる だ け 書 いて くだ きい. 
プロ グラ ム ・ リ スト , 写真 は 編集 部 で 撮り 
ます か ら , 特に 入れ る 必要 は あり ませ ん . 
原稿 に は 次 の こと を 書い て くだ さい . 
⑯⑱ デ ゲー ム の スト ー リ ー か プロ グラ ム を 作っ 
た 動機 概要 な ど 
@ プ ログ ラム の 入力 方 法 
OUH 
@ プ プロ ョ ログ ラム の 説明 


パッ ツ コ ン や ポケ コン な ど で ,。 マニ ュ ア ル 
に 載っ て いな いこ と を 調べ た ら , すぐ 原稿 
用 紙 に 書い て 送っ て くだ さい . ROM 内 ルー 
チン や サフ CPU の 使い 方 , 1/O ポ ボート ・ マ 
ッ プ な ど 大 歓迎 で す . 


PiO パ ー ツ 
PiO パ ー ツ は ゲー ム ・ ブ ログ ラム を 作る た 
め の 部 品 で , 特に 次 の 4 つ を 募集 し ます . 
⑱ デ ゲー ム ・ ス トー リー. 
@ デ ゲー ム 用 キャ ラク タ (イラ スト また だ は ド 
ッ jhs グ ラフ イッ ク ) 
@ サ ウン ド , ミュ ー ジ ッ ク (楽譜 , プロ グ 
ЖА, コメ ント) 


変 具 部 だ より 


⑱ サ ブル ー チ ン (高速 画面 クリ ア , スク ロ 
ー ル な ど ) 


PiO BOX 


オリ ジ ナ ル ・ プ ログ ラム , 解析 記事 の ミ 
ニ 判 で す . この 他 パ ソコ ユン に 関す る 原稿 な 
ら ば , 何で も 載せ ます . 


Pi0O マ イコ ソ 人 生 ・ 相 談 室 


マイ ュ コン で 疑問 に 思っ た こと を 何で も 質 
問 し て くだ さい 。 何で も お 答え し ます . 


е " 
PiO フ レン ド 
読者 の 顔 写 真 コ ー ナ ー で す . 写真 に パッ 
ュ ン に 関す る コメ ント を 付け て 送っ て くだ 
зі, ガール ・ フ レン ド や ボー イ ・ フ レン 
ド の 募集 な ど に 使っ て も ら っ て も か まい ま 
А. 編集 部 も し て は か わい い 女 の 子 の 写 

真 を 送っ て も らい た い の で す が …. 
РЮРЮ 
読者 に 解放 する コー ナー で す . 本 の 端 の 
一 部 分 で す が 大 い に 活 用 し て くだ さい . 


PiO パ サー ル 


ァ パソ コン な ど を 売る , 求む , 交換 し た い 
と いう 方 は 機種 , 条件 な ど を 葉書 に 書い て 
送っ て くだ さい . 


その 他 


イラ スト や クラ ププ 紹介 , クラ ブ の お 知ら 
せな ども 募集 し ます . 
ぁ 投稿 の 際 に は 以下 の こと を 必ず 記入 し て 
くだ さい 。 


by A 


PiO で は BASIC だ け の か 一 ん だ ん な プロ 
グラ ム も バシ バシ 載せ ます . こん な プログ 
ラム は 初心 者 の 人 が 勉強 する の に と っ て も 
いい 教材 に な る ん で す よ . また だ た, これ は 逆 
に 言う と 初心 者 で も 投稿 し て 載る 可能 性 が 
ある こと に な る の で す . 

だ か ら み ん な で 投稿 し よう PiO な プログ 
22-2 

な お PiO 編 集 部 は IT/O と 同じ 代々 木 の モ 
ント ヒル ズ ビ ル 2F に あり ます . 近く の 方 
は プロ グラ ム を 持っ て 遊び に 来 て て だ さい . 
プロ グラ ム を 見 て 直接 アド バイ ス し だ た いと 
思い ます . この と き PiO の 1 号 と 2 号 を 持 
っ て 来 て て れ だ 人 に は 。 ジュ ー ス で らい お 
ご っ て あげ た だ いと 思い ます (A). せこ いか 
な る 

と ころ で PiO の プロ グラ ム を 打ち 込ん で 
動か な いで 困っ て いる 方 , PIO で は 1/O と 
Ai 


下記 の 要領 で ご 連絡 くだ さい . 『 エ ンジ ン ・ 


ルー ム 』」 の スタ ッ フ が 質問 に お 答え し ます . 


質問 に は 『PiO の 何 号 の 何々 と いう 記事 


に つい て …』 と いう 具合 に 、 ま ず 何 の 質問 
か が と いう こと を を 語 し て くだ きい .。 そし て 。 
た だ 『 バ グ は あり ませ ん か ? з, ГЗ Ё А 
ん 』」 と お っ し ゃ る だ け で な く ,。 『 こ うす る 
と ここ で 突然 匿 走 す る 』」 と か 「『 何 と か の キ 
ャ ラク タ の 表示 が 変 な 風 に 出る 』 と か 具体 
的 に 話し て くだ さい. 

エン ジン ・ ル シー ム で は この 情報 を 基 に 実際 
に バグ が ある の か どう か 判断 し て いま す . 
何人 も の 人 が 同じ 症状 で 動か な いと バグ が 


ӨК“ (ペン ネー ム の 場合 で も 一 応 ご 記入 
願い ます ). 
@ 連 絡 先 (勤務 先 ま た は 自宅 ) の 住所 , Ж 
話 番号 . 
オォ オリジナ ル ・ プ "ログ ラム の 原稿 を 採用 する 
場合 , 本 人 に 連絡 し ます . 必ず 確実 に 連 
絡 の 取れ る 住所 , 電話 番号 を 記入 し て く 
だ さい. 連絡 の 取れ な い 場 合 採用 し か ね 
35 
@ 現 在 所 有 し て いる マイ コン が あれ ば その 
名 称 
4Я : РС-8801, ЕМ-7, М2.-2200, L3, 
РА5ОРІАТ, ЕР-1100, VIC 1001, 
JR-200, РС-1500, FX-702P な ど 
参考 文献 
OFM, 学年 また は 職業 
p 他 誌 と の 二 重 投稿 は ご 遠慮 くだ さい . 
投稿 いた だ いた も の は 原則 と し て お 返し 
で きま せん . ご 丁 承 く だ きい. また 係 名 
は 次 の よう に 明記 し て くだ さい. 
(РіО BOX 係 , PiOPiO 係 , ゲー ム 係 な ど ) 
オリ ジ ナ ル ・ ブ ログ ラム , 解析 記事 , РіО 
パ ポーツ, PiO BOX 採用 の 方 に は 当社 規定 
の 原稿 料 を お 支払 いし ます . 
すぐ れ た ブロ グラ ム は コム パッ ク で カセ 
ッ ト ・ サ ービス を 行ない ます . カ セット ・ 
サー ビス され だ ブログ ラム に つい て も 当 
社 規定 の 著作 権 使 用 料 を お 支払 いし ます . 
投稿 先 
〒151 東京 都 渋谷 区 代々 木 1-37-1 
ぜん らく ビル 5F 工学 社内 
PiO 編 集 部 


ある と 考え られ ます . ある 人 は 最初 の と こ 
ろ で 動か な い が 。 まだ た ある 人 は 一 部 の 動き 
が お か ' し いと 言っ て きだ と し た ら , 少なく 
と も 前 者 の 人 は 入力 ミス も し く は 何ら か の 


原因 で 動か な い の で あっ て バグ の せい で は 


な いと 考え られ る わけ で す . Я 

ほとん どの 場合 は エン ジン ・ ル ー ム で 答え 
ます が , 中 に は 答え られ な いも の も ある か 
も し れ ま せん . そん な と き は ご めん な る さい. 
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МҮ GOLF 


ゲー ム は , 最初 か ら 決 
まっ だ コー ス で も か 遊べ ご ませ ん で し だ た が, 
この MY GOLF は コー ス の 形 を ある 程度 自 
НЕ, し か も 簡単 に 作り 変え る こと が で き 
る の で 。 い つま で も 飽き が くる こと な く , 
楽し め る ゲー ム で す . 


НЕ ОЛЕР" 


Baseball Game 


FP-1100 PC-8001/mkII/8801 


ゲー ム 盤 の イメ ー ジ を マイ コン に 再現 し 
た Baseball Game. 

根強い 野球 ゲー ム 磐 ファ ン の 方 や , マイ 
ュ ン 盤 野球 ゲー ム の 入門 者 の カ 々 に は , き 
っ と 気にいっ て も ら え る で し ょ 2. 


PC-8001 だ っ て グラ フィ ッ ク の ゴル フ ゲ 
ー ム が で きる だ だ ん と いう の が ざ 
し か も BASIC だ け で 書か れ て いる に も か か 
わら ず ,。 リ アル タイ ム に な っ て いま す . 

各 ホ ー ル に は 池 , バン 12 木 な どの 障 
填 物 な ども あり , 打つ と - は 風 の 影 響 も 
ав. 


Golf гате 
LEVEL3 


この プロ グラ ム の 特徴 は な ん と いっ て も 
女性 が 作っ た プロ グラ ム で ある と いう こと . ATF. ペパー, ボギー, 
その た め 画 面 構成 な ども 男 の 人 が 作っ た も か ら , 

の と 少し 感じ が 違っ て ます 。 まだ , ゲー ム асы), 
中 に は 両 チ ー ム の 応援 合戦 な ども あり ユニ ァ ン ファ ー 
ー ク な 野球 ゲー ム に な っ て いま す . 


片手 で 遊べ る , 操作 の 簡単 な ゴル フ ・ ゲ 


ィ ー グ ル の 表示 
コア の 表示 まで 凝っ た 工夫 が な さき 
ホー ルイ ン ワ ン を 決め る と , フ 
レ と 画面 いじ っ ぱい の 文字 で , № 
な た を 祝福 し て くれ ます . 


の ゲー ム . 


MZ-1200-K/C 


直球 , ee シュ ー ト な ど 9 種 類 の 投 
球 が で きる 守備 側 に . ヒッ ト , 
м, 、 タッチ アッ プ と 4 種類 の パタ ー ン が 操 
れる 攻撃 側 の 付い た 本 格 的 な 野球 ゲー ム で 
$. し か も , 1 人 の と き に は AUTO キ ー を 
押せ ば , コン ピュ ー タ が あな た の 相手 を し 
TAT: 


BOWLING-2 
PC-8001/mkII/8801 


УК, й 


本 物 の ボー リン グ 場 に いる 気分 も を 。 その 
まま マイ コン に 再現 する シミ ュ レ ーション 
タイ プ の 『BOWLING-2」. 

球 の 強弱 は も と より , フッ ク , スト レー 
F, バッ クア ッ プ と 3 つの 変化 球 ま で 投げ 
られ ます . 5%, あな た も マイ コン 界 の デ 
ロ ・ ボ ー ラ ー を 目指 し て くだ さい 


PLANET LANDER 
FM-7 


あな た だ は. 未知 の 星系 を 調査 に 来 た 調査 
隊 の 隊員 で す . マザー シッ プ " を 発進 し た 着 
陸 船 を 操っ て , 惑星 の アタ ッ ク ・ ポ イン ト 
に 着陸 し て くだ さき さい. し か し , RENDRE 
星 上 で は , チョ ッ ト し た 操作 ミス が 命取り 


に な り ま す . 


EGG BOMB 
FM-7 


ren ЛОТУ KE, JERNE 

や っ て 来 ま し た . いつ も の よう に 卵 を 食べ 
完全 に 頭 に きた ニワ トリ は な / 

時 限 式 の 爆弾 卵 を 生み は じ め た で は な 

いか / ゴ ン 太 は 爆弾 卵 を 回収 し つつ , 好物 

の 卵 を 食べ 続け る の で し た -. 


STEALER GAME 
FM-7 


今日 も 


GEE, 
L 
Е 


STEALER 


南海 の 孤島 ハル に は 古代 都市 の 遺跡 が あ 
9, その 中 央 に ある 宮殿 の 中 に は , 銀色 に 輝 
С 5 人 の 魔物 に 守ら れ た 人 金銀 
隠 き れ て いる と 伝え られ て いた . 

あな た だ は, 5 人 の 魔物 の 目 を 逃れ な が ら , 


みごと 財宝 を 盗み 出し て くだ さい 


MZ-1200-K/C 


DDH RHR, 無機 動物 GASBARASY が 容 


問 の ふた だ た を 壊し , 研究 所 の 人 間 を 襲い 始め 
だ . 研究 所 の と びら を 閉め , 外 へ 出る こと 
だ け は 防い だ が ,。 30 人 の 人 間 も 閉 じ 込 め ら 

て し まっ だ. 35, あな た だ は 救助 艇 に 乗 
о, 中 の 人 を 助け に 行か な けれ ば な ら 


な い . 


な どの 財宝 が 


あな だ は 失う も の も な く , 
ー ス に すべ で て を 賭け る 
+. 今回 は 鈴鹿 サー キッ ト の ラッ フ ・ タ タイ 

と に な り ま し だ が 。 鈴鹿 の コー 

を 塗り 換え る に は 命 を 投げ 捨 

スロ ッ ト ル 全開 の まま コー ナー に 飛び 
込む なし か あり ませ ん . 


た だ 2 輪 の レ 


ラー Ë 


SCORE ©0080 нан е 


ン ゲ ー ム の 本 3 」 の PC-6001 用 


r ン デイ ・ キ ャ ン デ ィ ュ 」 の 続編 で 
今度 は 放射 能 入 り キ ャ ン デ ィ の 他 に 卵 , 

ィ インベーダー, ダイ ナマ イト まで も 降っ て 

きま す . ダイ ナマ イト は 決し て 受け 取ら な 


CESE 


DOUGHNUT FISHING 
MK-80B/2000 


あな た だ は, 宝 を 拾 お うと 思っ て 工場 に 忍 
び 込 み ま し ただ. し か し , ドー ナッ ツ を 池 の 
中 に 落と し て し まっ た だ たから, Š pA. 
レー ザー は 狙っ て くる し , 池 の 中 に は 人 
喰 魚 が だ うようよ. あ た な は 生き 延び る こと 


が で きる か ノノ 


匹 久 の レー サー で 


字 宙 征服 を 企てる ラマ 帝国 の 死 減 * 
発 計画 を 阻止 すべ く 1 台 の 最新 鋭 戦車 が 漂 
入 し だ た だ. その 名 は パス ター」』, 
全 方 向 キ ャ タビ ピラ と š 方 位 НЕ и ых 
スー パー タン クタ が だ が./ £ 


"Ул + 


ス ・ シ ステ ム が が 激 し 


D, 敵 基 地 へ 突入 す 


НАСКЕТ GAME 
PC-8801 


- 見 古典 的 レン が ガ くずし で す が , EDK 
態 は 逆転 的 発想 か ら 生 RACKET 
САМЕ, CF. 決し て 

いよ うに 注意 し て お 楽 


あな だ た は キノ コ と 壁 を 武器 に , тіне 
る モン スタ ー の ガム を 退治 し て くだ 


іе, ガム の 味方 の ダグ ダク ン , バー 
パー ビ ピル ク の 3 モン スタ ー が 。 あな 


た の 邪魔 を し ます . 


ブロ ッ ク ・ ワ ー ル ド 
РС-6001-32К/тКП 


数 の 国 に 生ま れ た チキ ン 〈 く ん は , 
数 の ブロ ッ ク を 9 個 集め な いと 家 に 入れ て 
も ら え ませ ん . そこ で , せっ せ と 集 め て い 
E EEROT AAT Тәу ие 
ん ら が 邪魔 し に や っ て きま し た . 負け る な 
チキ ン く ん / 


今日 も 


あな た は ダン を 操り な が ら , 路上 に 沙 ち 
て いる 物 を 全部 拾っ て くだ さき さい. 

し か し , そう 簡単 に 拾え さて は ゲー ム に な 
り ま せん . 25, や は り 5 那 魔 者 モン スタ ー 
が ダン を 襲っ て きま す . そこ で , モン スタ 
ー を た っ た 一 つの 武器 の 尼 袋 で 退治 し て く 
だ きい 、. 


マイ コソ ツ ツ ョ ヨッ プ ザ ェ ム 
JR-100 


あな た は, 銃 を 片手 に 5 階 建 て の マイ コ 
ン ・ シ ョ ッ プ に 忍び 込み , 店 の 中 に ある マ 
イィ コン を 片っ端 か ら 破壊 し て くだ きい . し 
DL, 激怒 し た 店 員 も , 負け て な る も の か 
と 銃 を 持っ て あな た に 襲い か か っ て きま す . 
き あ 。 あ な た は いく つの マイ ュ ユン を 破壊 す 
だ の て きる で し ょ よう が 。 


МЕТЕОН FIGHT 
VIC-1001 


編成 し 


さて らい つっ GG 
PC-6001.38K/mKII 


衛星 た ち . ある 日 彼ら が : を 持ち は じ め , 
地球 を 攻撃 し て きた . 国連 は これ に 対 拠 す 


る た め 24 も の 砲門 を 持ち 抜群 の 機動 力 を 誇 


る 戦闘 衛星 す サテ ェ を 打ち 上 げた . 
あな た は , いく つの 柄 走 衛星 を 破壊 する 
сене ви 


22354 3 月 28 日 , 国連 宇宙 軍 火 星 基 地 に 
大 隅 石 群 に 隠れ て 移動 する 宇宙 船団 が , が 
ニ メ デ 基地 を 破壊 し た と の 連絡 が あっ た . 
そこ で , UNSA は 急落 地球 で 迎撃 艦隊 を 
高 性 能 エ ニ ヒ レ ー タ 砲 を 搭載 し た 
最新 鋭 宇 宙 戦 闘 機 『MARS-1 』 が 派遣 され 
76% 


『 ペ ーッ パー ウェ ア РС-6001 Ф BASIC = 
ン パ イラ 用 ゲー ム , 『CRAB PLANET: を 
MSX に 移植 し た も の で す . 
タク ラプ 星人 の 出す 放射 
能 入 5 泡 を 避け な が ら , 地上 へ 脱出 きせ て 
あげ て て だ きる きい a 


バル ー ン 星人 を , 


地球 の 周り に 打ち 上 げ ら れ た 無数 の 人 工 


ェ イ リア ツ ・7 ラ ネト 
PO-800mKII/8801 


パト ロー ル 中 の あな だ た だ は, エイ リア テン の 
人 工 衛星 『 エ イリ アン ・ プ ラ ネ ッ ト 』 を 発 
見 する が , そこ で は 地球 総 攻 撃 の 準備 が 着 
々 と 進め られ , 今 し も 発進 せん と し て いる 
と ころ だ っ た . 味方 の 増援 を 待つ 余裕 は な 
о, 彼ら の 総 攻撃 が 始ま る 前 に , ЭЕМ 
во 


РАЗОР!А7 


PC-8801 の 精彩 グラ フィ ッ ク 麻 雀 の 移植 
版 . PC-8001 の 精彩 な パイ を その まま РАБО 
PIA7 に 移植 し た だ け で な く , PASOPIA の 
ミュ ー ジ ッ ク タク 機 能 を 生か し て 随所 に 音楽 を 
付け , 一 層 楽 し め る も の に な っ て いま す . 


M5 の スプ ライト 機能 を も 上手 に 使う と こ 
ん な ゲー ム に な り ま す . 

スプ ライ ト 機 能 の お か げ で , いか に も ド 
ラム が くる くる と 廻っ て いる か の よう に 見 
える の で す . し か も プロ ダラ ム は オー ル 
BASIC. 


Pi010 は ソフ ト 紹 介 の コー ナー で す . 市 販 ソ フト の 面白 
そう な も の を 変 臭 部 の 独断 と 偏見 で 10 本 選び , カラ ー 写 真 
入り で 紹介 し ます . また , 読者 か ら こ の ソフ ト を 紹介 し て 
欲し いと いう 要望 が あれ ば , そう いっ た も の も 紹介 し ます 


ソニ ー・ ク リエ イ テ ィ ブ ププ ロダ クツ 


287 = + SMC—70,777 
Е Я 3.5 イ ンチ ・ デ ィ ス ク 1 月 発売 予定 


с 3 に б 
ао リア クシ ョ ン イキ ン 君 の 願 が 出 て くる の で す 。 これが 実に か 
パイ キン 君 と いう ソン ニー の キャ ラク タカ が , S せっ せよ と 掃除 する バイ キン 君 の 前 に 現われ だ わい い / ノ コツ は 何と 言っ て も , 分 裂 前 に つぶ し 
MC シリ ー ズ の すばらし い ゲ ー ム に な っ て 登場 ゴキ ブリ 206. 殺虫 剤 や プロ ッ ク で つぶ し て や て し まう こと . き て , 君 は 何 面 まで いけ る か 、 
Бус 176: っ つけ な いと , 次 々 に 分 裂 し て 増え て いき ます . 《 問 い 合 わせ 先 》 帆 ソ ニー・ ク リエ イ テ ィ ププ ロダ クツ 
キャ ラク タ が 楽し い の は も ちろ ん で す が 。 な ん 99102 東京 都 千 代田 区 紀尾井 町 3-6 
SMC ジ リー ズ の スー パー グラ ブフ 会 (03) 237-5512 


た だ 脱帽 す る し か あ 


Фес k SS Iki パシ ハウ コウ 且つ だ の 


と いっ て も , 


ЖҮН У>ЖЕШЛГІС, EULEEULE. T 
キ プ ブリ を 閉じ こめ て し まえ . 


k>a. スプ レー 殺虫 剤 で ゴキ プリ を や っ 
つけ る ./ で も , 緑色 の ゴキ ブリ 以外 は まだ 死な 
な い ぞ ノ 


コム パッ ク 


PC-9801 
カセ ッ ト ¥3,000 
リア クシ ョ ン 


5 アピ フジ シ ョ ン : ザ ー ム の 
原点 は ここ に あり 


こ か の ゲー ムセン ター で 見 か けた だ よう な ゲ 
xs な が ん だ けれ ど だ 5 
L, 結構 興 が 深い の で す . PC-9801 特 有 の 
高速 画面 処理 を 充分 に 使っ た この ゲー ム は , H 
機 の 上 空 に 配備 され た イン セク ト を 全 減 きせ る 
こと が 目的 で す (どう せ 全 減る きせ た っ て , KD 
面 に 移る だ け な ん だ けど ). 
上 空 に 配備 きれ た イン セク ト は , 単独 で 攻撃 
し て くる こと は めずらし く 。 ほ と ん どの 場合 
数 で 攻撃 し て きま す . それ に 攻撃 し て くる フ パ タ 
ー ン が いろ いろ あり まし て , いい 気 に な っ て 敵 
を 打ち まく っ て いる と , 変則 的 な 敵 の 動き に や 
られ る 場合 が あり ます . 
と に か く こ の ゲー ム で 高 


こう いう ゲー ム も 。 や っ て 


前 回 紹介 し た 績 コム パッ ク の 「『 魔 女 モ へ カ の 館 』 の 機種 を PC- 
PASOPIA と 書き まし た が , 
また 同社 の 『 聖 剣 伝 説 』 は PC-8001 の 他 PC-8001mkII, 


8001, 
зү 


РС-8801, 


可能 に 近い で あろ う . 
この ゲー ム は , 見 た だ 目 は 単純 その も の で す 
が 。 一 度 や っ て みる と も 面白 く , 2 時 間 
や 3 時 間 は , 飽き ず 537. Ж, アド ベ ン 
チャ ー ゲ ー ム と か シミ ュ レ ーション ・ ゲ ー ム と 
D, いろ いろ と 複雑 な ゲー ム が 流行 し て いま す 
3, こう いっ た 単純 明解 の リア クシ ョ ン ・ ゲ ー ム 
も う 一 度 見 直す べき で は な いで し ょ うか ". 
(問い 合わ せ 先 〉 25/2 
45151 東京 都 渋谷 区 代々 木 1-37-1 FAG} E 
ル 5F ® (03)375-3401 


PC-8001 は 間違い 


支 連 続 的 に 落ち て く る ミサ イル を 避け な が ら イ 
ン セ クト を や っ つけ ろ ノ 


PC-8801 で も N-BASIC モ ー ド で 使用 可能 で す . 
以上 を 町 正 し , お 詫び 申し 上 げ ま す . 


PiO 編 集 部 


A 


すさ きい を あす て あく ん な は 
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Copurightio) Т.ҒИ21ТА 


製品 紹 人 
ゲー ム ・ バ パソ コン 


/-2000 


カシ オ 計 算 機 身 
Ұ29,800 


PV-2000 の 外観 は , 非常 に コン パク ト に 仕上 が っ て 
いま す . 297х211х46 (m) で プラ スチ ッ ク な どの 多 
用 に より 重き は わずか 1,100g と いう 軽 き で す . これ な 
ら 手軽 に 友達 の 家 へ 持っ て 行く こと も で きま すね . 

カラ ー は 白 を 主体 と し て キー ボー ド 部 の キー の 周り 
が 黒 で キー の 押す 部 分 は 白 に な っ て いま す . カー ツル 
・ キ ー は 8 方 向 備 えて お り , ゲー ム を する と き に 便利 
に な っ て いま す . 

し か し キー ボー ド が タッ チ 式 の た め , アク ショ ン ・ 
ゲー ム の よう に 動き の 必要 ほな ゲー ム に は 不 向 な の で は 
な いで し ょ うか ? 実際 に は オプ ショ ン て 使い 勝手 の 良 
い ジ ョ イス テッ ク が 低 価格 で 用 意 き され て いる の で , ゲ 
ー ム を する と き は これ を 使う 方 が 良い だ ろう し , その 
方 が 楽し め る の で 問題 な いと 思い ます . 

本 体 左 上 の 紺色 の 部 分 は , スラ イド 式 の フタ に な っ 
て お り , この 下 が ゲ ー ム な どの 別売 の カー トリ ッ ジ を 
差し 込む 拡張 用 の スロ ッ ト に な っ て いま す . 残念 な こ 

と は 間違え て 電源 を 入れ た まま カー トリ ッ ジ の 抜き 差 
し を し て し まっ だ と き に , PC-6001 の よう な 電源 を 
OFEF に する 仕掛 けが な いこ と で す .『 パ ツッコ ン ゲ ー ム ・ 
マシ ン 』 と 言う で らい な ら , せ め て 前 述 の よう な 仕掛 け 
は 絶対 に 必要 だ と 思い ます . 

拡張 用 の スロ ッ ト は この ほか に , RAM を 増設 する た 
め の ス ロッ ト と , セン トロ ニク ス 人 準拠 の プリ ンタ ・ イ 
ンタ ー フ ェ イ ス の スロ ッ ト が 本 体 背面 に 用 意 き され て い 
$3. いずれ も 拡張 時 に は , 体内 に 収まっ て し まう と 
思わ れる ぐら い の ス ペー ス が あり ます . 

本 体 を コン パク ト に する た めか , 電源 は 本 体 と は 別 
に な っ て いま す . その た め 電 源 ス イッ チ は 電源 アダ プ ブ 
タ の 方 に 付い て いま す . その 他 に は 本 体 左 側面 に ジョ 
イス ティ ッ ク ・ イ ンタ ー フ ェ イ ス が 2 つと , 本 体 右側 
面 に ビデ オォ 出力, RF 出力 , オ ー デ ィ オ 出力 , カ セット 
・ イ ンタ ー フ ェ イ ス へ の 出力 と いっ た コネ クタ が 並ん 
KG x JA 


「 画面 出力 1 


ユン ピュ ー タ か ら の 画面 出力 は ビデ オォ 出力 家庭 用 
テレ ビ に つなげ る RF 出力 の 2 種類 が 用 意 き 

また , ディ スプ レイ に よっ て は 横 32 文 字 が 見 えな いた 
め に コン ピュ ー タ 側 で 対応 策 が 施し て あり ます . つま 
b РОМС] + [MODE] で 32 文 字 と 30 廊 字 の 切り 換え が で 
きる の で す . 

これ ら の 機能 に より ディ スプ レイ を 選ぶ と いう こと 
は まず な きそう て す . 


この 2 つの 写真 は 両方 と も 
『 楽 が き ス ペ シ ャ ル 』. こん な 
ふう に 自由 に 設定 が 変え られ 
る . 


縦 は 24 廊 字 の た め ゅ 1 画面 768 文 字 か 720 文 字 に な り ま 
+. 廊 字 数 は この クラ ス の 標準 し いっ た と ころ で す . 
1 文字 は 8X 8 ドット て 構成 きれ て いて , グラ フィ ッ 
ク は 30 文 字 で 240X192 ド ッ ト で , 32 文 字 だ と 256X192 
ドッ ト の 分 解 能 に な っ て いま す 

ゲー ム を する と き に は , あま り ド ッ ト が 細か く て も 
動き が 遅く な っ て し まう と いっ た こと が ある の で , І 
の 程度 で 充分 で し ょ 3. 

カラ ー は 16 色 が 可能 に な っ て いま す . 16 色 あれ ば 色 


が 足り ず に ゲー ム が つま ら な 《 な る と いっ ただ よう な こ 
と も な ICM 
VDP( ビ デオ ・ デ ィ ス プレ イ ・ プ プロセッサ) に TI 社 の 


TMS9918A を 使っ て お り , この LSI の 機能 で ある スプ 
ライ ト 表 示 の 32 枚 の うち 28 枚 まで が 使用 可能 に な っ て 
v る) 

スプ ライ ト 機 能 を 簡単 に 説明 する と , 8X8 ド ッ ト 
また は 16X16 ド ッ ト の 動画 で それ ぞ れ 2 倍 に 拡大 する 
こと も で き , その 動画 が 28 枚 まで あり ます . この 動画 
を 移動 する に は , 表示 位置 座標 を 書き 換え ます . 

この 機能 より 画 面 内 を 高速 に 移動 きせ る こと が で き 
る の で す . この と き , スプ ライ ト の 優先 順位 に 従 が っ 
T, 順位 の 低 じ スプ ライ ト は 順位 の 高い スプ ライ ト に 
消 る きれ る た め , 3 次 元 的 な 効果 が 得 ら れる の で す . 
制約 と し て , 同一 走査 線上 に 5 個 以上 の スプ ライ ト 
が 存在 する と , 優先 度 の 高い 4 個 の スプ ライ ト だ けが 
表示 きれ て し まう と いう こと が あり ます . し か し 動き 
を 求 ゆ る プロ グラ ム に は 最も 適し て いる 機能 で す 


「 ソフ トウ ェ ア ~] 


本 体 に 内 蔵 き れ て いる ソフ トウ ェ ア は , C83-BASIC 
の Ver1. 0 tk, 同じ BASIC の 画面 の 下 4 行 し か 使わ 
な い 4 行 BASIC の 2 タイ プ が あり ます . それ に 加わ え , 
画面 全体 に 手軽 に 16 色 カラ ー で 絵 が 描 り る 『 ピ クチ ャ 
ー』 や , スプ ライ ト 画 面 を 作成 する 『 ア ニメーション 』 
の 2 つの モー ド が 用 意 る され て いま す . 

PV-2000 で プロ グラ ム を 組 も うと 思っ た ら 『BASIC 

で 全体 の 流れ を 作る 』,『 ア ニメーション で 動 《 も の の 
絵 を 描く 』, 『 ピ クチ ャ ー で 背景 を 描く 」』 と いう 大 きく 
わけ て 3 つの 作業 で で き あ が り ま す . その 際 役立つ の 
が 4 行 BASIC で す . 

FEF ВА スト また は 画面 に 描い た 絵 の 
どちら か 一 方 し か 表示 で き な い と いう の で は 不便 な の 
<, この 4 行 BASIC を 使う こと に より リス ト も 見 え 
T, し か も 絵 の 方 も 見 える と いう わけ で す . 

全部 の モー ド に つい て 言え る こと は , キー ボー ド を 
それ ぞ れ の モー ド で いろ いろ な 意味 に 使う こと で キー 
の 数 を 減ら し , 初心 者 が キー を 間違え た り 捜 す の に 手 
間 を か ける と いっ た この が な いよ ょ うに 作ら れ て いる こ 
と で する оа БЕ 
の 意味 を 変え て いる の で す . 

BASIC は 整数 型 が の で , 本 体 の み で は 高度 な 計算 に 
は 不向き で す . し か し , オ プシ ョ ン で 実数 BASIC ROM 
カー トリ ッ ジ が 発売 子 定 な の で 期待 で き る で し ょ う . 


また ゲー ム 拡 張 BASIC ROM カ ー ト リッ ジ も 発売 子 
定 な の で , オリ ジ ナ ル ゲ ー ム 作り が いっ そう 手軽 に で 
きる よう に な る で し ょ う . 何と いっ て も 一 番 の 強 味 は 


ゲー ムカ ー ト リッ ジ で す . カモ セッ ト ・ テ ー プ な どの 信 . 
頼 性 の 低い メデ ィ ア で は な く , カー トリ ッ ジ に 入っ た 
ゲー ム な の で , 扱い 方 も 楽に な り ま す . 定 価 は 4,800 円 
と それ は ほど 高価 で は な い の も 魅力 で す . 

カー トリ ッ ジ に は ゲー ムセン ター で 同じ み の 『 フ ロ 
ント ライ ン 』」 や 『 ミ スタ ー パ ッ ク マ ン 』。「 ギ ャ ラガ 』 
『 ス キー コマ ンド 』」 や 『 パ チン コ -UFO』 な ど が あり 
ます . 

ゲー ムカ ー ト リッ ジ は カー トリ ッ ジ を 差し 込ん で 電 
源 0 N で 即 ス ター ト し , その 動き や 音 は ゲー ムセン タ 
ー の 雰囲気 その も の で す . その 中 で 一 番 ユ ニー ク な カ 
ー ト リッ ジ が 「『 楽 が き ス ペ シ ャ ル 』」 で す . これ は 今 ま 
で の ゲー ム と 違い , 自分 で ゲー ム に 手 を 加え る こと が 
で きる の で す . キャ ラク タ を 3 つの 中 か ら 選 び , 背景 
を 描く と オリ ジ ナ ル ・ ゲ ー ム の 完成 で す 、 BASIC 
知ら な く て も 自分 だ け の ゲー ム が 作れ て し まう の で す . 
現在 カー トリ ッ ジ は 9 種類 し か あり ませ ん が , これ か ら 
も っ と も っ と 増え る で し ょ う . 楽し み で すね . 


(m 張 一 ] 


PV-2000 の 拡張 は ゲー ムカ ー ト リッ ジ , BASIC グ 
レー ドア ッ プ ROM カ ー ト リッ ジ , プリ ンタ ・ イ ンタ ー 
TEAR WEITE FE La ST 
イス , 増設 RAM, ジ ョ イス ティ ッ ク と 多数 に わた っ て 
別売 り で 用 意 き れ て いる の で 容易 に 行 な を ます . 


% зная 

Г 最後 に 1 

PV-2000 は 29,800 と いう 低 価格 に も か か わら ず 。 い 
ろ い ろ な 楽し い 機 能 が あり 拡張 性 に すれ て いま す . 

この パソ コン は 自分 で 簡単 に ゲー ム を 作れ る し 、 ゲ 

ム セ モン ター レベ ル の ゲー ム も カー トリ ッ ジ で 用 意 き 
れ て いま す . つま り 遊 び の た め ゆめ の パー ソナ リコ ユン ピュ 
ー タ ー と 言え ます . MSX 規 格 の パッ コン と 比べ る と 
ゲー ム 一 点 張 り で 欲張っ た 機能 は 付い て いま せん が , 
それ で これ だ け 徹 底 し た 機能 に な っ た と いう わけ で し 
Е 

また この 機械 の マニ ュ ア ル は 『 楽 が き ハ ンド ブッ ク 』 
と 『 ゲ ー ム づく り マ ニュ アル 』 の 2 種類 が 付い て いま 
+. 2 冊 と も 誰が 読ん で も わか りや すく 構成 され て お 
り , ハン ドブ ッ ク を 読み な が ら PV-2000 に 向かっ て 
キー を た た き , 1 冊 読 み 終 を る と ゲー ム が 1 本 で き あ 
が っ て し まい ます 。 

今 ま で の マニ ュ ア ル よ り も 格段 に 良く な っ て いま す . 
『 ゲ ー ム づ 〈《 り マニ ュ ア ル 』」 で は サ プ ル ー チ ン や 。 使 
い 方 な ど が 細か く 載 っ て いて , これ を 参考 に し て いろ 
いろ な ゲー ム が 作れ る よう に な っ て いま す 。 こ れ ほ ど 
親切 な マニ ュ ア ル は 他 に 例 を 見 ませ ん . 

ゲー ム マ シン を 待っ て いた 人 に は これ ほど 良い マシ 
ン は な いで じき まう 
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デー タモ スト 社 と 言え ば, リアルタイム ・ 
ー ム と し て 名 高い 『AZTEC』 や 中世 騎 士 の 戦い を ゲー ム に 仕立 
て た 最新 作 " ツ パイ ルス トッ ド 』 が APPLE フ ァ ン の 間 で 大 人 気 で す 

ST, その デー タモ スト 社 の 社長 と 副 社 長 が , 2 人 揃っ て , 
1/0 編 集 部 を 訪れ て くれ まし た . 今回 の 来 日 は 日 本 の マイ クロ コ 
ンピュータ 市 場 視察 の た め ゆめ だ そう で す . ちょ うど 開か れ て いた 
ご らん の と お り の 巨漢 の 2 人 を 案内 し て 行く 
こと に な り ま し だ た が,。 ビジ ネス 用 マシ ン 中 心 の ショ ー だ っ た た 
DD, ゴー ドン 社長 は 
THuhhm, …this is not my show.』 
と , 自分 の 捜し 求め る 普及 型 機種 の 少な いこ と に た め 息 を も ら 
CTED F CI 

2 人 は デー タ シ ョ ー 以 外 に , 


っ ぎー 


秋葉 原 。 新幹線 , 


その 巨体 か ら は 想像 も る できない くら い 精 力 的 に 見 て 回 り , 1 つ 
の 結論 を 得 た よう で す . 
『 日 本 の ハー ドウ ェ ア は 実に すばらし いで き で す . 新 発 売 の 16 


ビッ ト 機 PC-5500 に し て も 。, 
し dE ча 


ホー ム ・ コ ンピュータ の RX-78 に 
グッ ド ・ マ シン で す 。 し か し , ゲー ム や アプ リ ケ ー シ 


ョ ン な どの ソフ トウ ェ ア に は 余り 見 る で きも の が あり ませ ん ね . 


も し , 日 本 の ハー ドウ ェ ア が アメ リカ で 販売 され る よう に な っ 
о, 私 たち が す ば らし い ゲ ー ム を 作り ます . 楽し み に し て い 


て ぐだ る さい .』 
と 自信 だ っ ぷり に ゴー ドン 社長 は 言い ます . 
だ 5 に 何 が アド バイ スズ は , EWM E 
『 私 た ちの 場合 , プロ グラ マー 以外 に デザ イン の スタ ッ フ も 
わっ て , ゲー ム を 作る ん で す よ . その 他 に , ディ レク ター も 加 
ХХ, ゲー ム を より 選 練 され た 型 に 仕上 げ ま す .』 
お の さと も 

と ころ で デー タモ スト 社 は , 既に 日 本 の コン ピュ ー タ 用 の ソン 
フト も 開発 し て いる の で す . それ は , あの パナ ソニ ッ ク ,。 つま 
り ナ ショ ナル の JR-200 用 ゲー ム で , JR-200 を 持っ て いる 人 な ら 
ぜひ 1 度 遊 ん で みて 欲し い の が , ! と い 
ラフ デン シン グダグダ の ゲー ム て すう ぞ の よく で きだ た グラ フォ ックス 
(pou с L L Su. ++. 


日 本 の プロ グラ マ 


スワ ッシュ バッ クラ ー』 


モス ト 社 副 社 長 ボ プ ・ 
タモ スト 社 社長 デビ ッ ド 


人 リアル タイ ム ・ ア 
AZTEC; の 一 場面 


p JR-200 で も 走る APPLE ソ フ ト 
スワ ッシュ バッ クラ ー」, 発売 
コム バッ ク 
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アド ベン チャ ー ゲ 


夜 の 新宿 な ど , 


Уп 


全 左 の から プロ ー ダ ー バ ンド 社 社長 ダ ゲ ラス ・ カ ー ル スト ン 氏 , 
グラ マー ズ 3 社長 田屋 与 志 男 氏 


4 プロ グラ マー ズ 3 で SMC-777/70 
に 移植 中 の 『 チ ョ ッ プ ・ リ フタ ー』 


А すでに SMC-777/70 へ 移植 が 完了 し て いる 『AE』, こん な 美しい 画 
面 が な ん と 全部 で 8 枚 


日 本 を 同じ 時 期 に 訪れ た の は , ブロ ー ダ ー バ ンド 社 の ダグ ラ 

ス ・ カ ー ル スト ン 社 長 . 今回 の 来 日 で は 福岡 の シス テム ソフ ト 
と 契約 を か わし , APPLEII 用 の ヒッ ト ・ ゲ ー ム 3 本 を PC-9800 
シリ ー ズ に 移植 し , 日 本 上 陸 を 始め まし た . 

カー ルス トン 氏 へ の イン タビ ュー に 同席 し た の は , APPLE 

プロ グラ マー 集団 と し て 名 高い ゲロ グラ マー ズ 3 の 田屋 与 志 男 
К, 今回 の プロ ジェ クト で プロ グラ マー ズ 3 は 。 ソニ ー の SM 
C-777 を ター ゲッ ト に , 世界 の APPLE フ ァ ン を わき だ た だせ だ た だ 
『A.E.』『 チ ョ ッ フ ・ リ フタ ー』『 ロ ー ド ・ ラ ン ナ ー』 の 3 本 を 移 
植 中 だ と いい ます . 今年 の クリ スマ ス 商 戦 で は プロー ダー バン 
ド 社 , プロ グラ マー ズ 3 の ゲー ム が , 日 本 の パソ コン ショ ッ プ " 
の あちこち で 見 られ る こと に な り そ う で す . カー ルス トン 氏 に 
アメ リカ の パッ ソコ ン 界 の 現状 を 聞い て み ま し た . 

『 テ アメ リカ で は , ホー ム ・ コ ンピュータ の 分 野 が 大 変 ひ どい 状 
況 に な っ て いま す . ホー ム ・ コ ンピュータ 分 野 と は , ТІ, コモ 
72), マッ テル な ど ,200 ド ル ( 約 5 万 円 ) 以 下 の ク ラ 
ス の 分 野 な の で す が , コモ ドー ル を 除い て どの 会 社 も 大 量 の 在 
庫 を か か えて 苦し ん で いま す . 特に TI が か な り の ダメ ー ジ を 受 
ルル た Pr ai 

ЖИЕ, イン タビ ュー の 数 日 後に TI が ホー ム ・ コ ンピュータ 部 
門 か ら 撤 退 す る と の ニュ ー ス が 入っ て きま し た . 

『 一 方 で , パー ツナ ル ・ コ ンピュータ の 分 野 は , 非常 に 安定 し 
た 成長 を 遂げ て いま す . 結局 ホー ム ・ コ ンピュータ の 分 野 で は , 
ハー ド に つい て も ROM カ ー ト リッ ジ に よる ソフ ト に つい て も 。, 

- 般 の 人 を 相手 に し て いる た だ ため 宣伝 広告 費 が 大 きく な りす ぎ て 
し まう の で す 。 と ころ が パー シ チ ル ・ ユ コジ ピュ ー タ の 分 野 だ 
Е, 専門 誌 に よる 広告 だ け で 済む た めで し ょ う .』 

ハー バー ド 大 出身 の 優秀 な ビジ ネス マン らし く , 
МЕС, 


ドー ル , 


こん な 分 析 
(D) 


ЕМ-7 


BASIC 


STEALER GAME 


南海 の 孤島 ハル に は , 古代 都市 の 遺跡 が 
あり , その 中 央 に ある 宮殿 の 中 に は , 銀色 
に 輝 や く 5 人 の 魔物 に 守ら れ た 金銀 な どの 
財宝 が 隠さ れ て いる と , 昔 か ら 言 い 伝え ら 
れ て いた . 探検 索 の あな た は , た っ た 1 人 
で ハル 島 の 伝説 を 確か め る た め に 出発 し て 
行っ た . そし て , 財宝 を 守っ て いる 魔物 が 
5 体 の ロボ ッ ト で ある こと を つき と め た の 
で ある . 

あな た は ロボ ッ ト の 目 か ら 逃 れ な が ら , 
みごと に 財宝 を 取り 出す こと が で きる か ノノ 


フロ グラ ム の 説明 


全体 の 流れ を 表 1 に , 使用 変数 名 を 表 2 
с, 仮想 V-RAM の 内 容 を 表 3 に 示し ます . 
その 他 詳 し いこ と は リス ト を 見 て くだ さき さい. 


プロ グラ ム の 入力 万 法 


#— BASIC ですから,。 リス ト を よく 
見 て 間違い の な いよ うに 入力 し て くだ さい . 


CERE ETE EEEE EEEE EEE EEE EEEE a 
L NS: 8TEALER * 
P E E E EAE AE AE AE AE E AE AE BE E 424244444 
CLEAR 300, kHAFFF 
DEFINT А-2: RANDOMIZE ТІМЕ-52000 
WIDTH 49, 251COLOR 7,@íCONSOLE 9,25,0, 


FOR 1-9 TQ 7íCOLOR=(I,I):NEXT. 
DIM X(4),Y(4),V(4),W(4) 
DIM А1%(9),А27(9),А5%(9),А4%(9),С1Хх(2 
7),C24(27),C3 (9) ,C44 (27) 
70 HS=1000 
вә GOSUB 50910 
109 "7-4 スタ ー ト 
110 Mem さ INe 1 1 日 じ = ら 
199 "лу 49-8 
200 "ту 
Ө FOR I=&H7000 TO&H7SE7』POKE 1,5%іМЕХТ 


スチ ー ラ ー ゲー ム 


表 1 


プロ グラ ム の 説明 


туи 

У, w 

X(), Y(1) 
v(i), ж) 
G 

U 

А1%, А2%, 
A3%, А4% 
C1% 

C2% 

І, В, $, Т,11, 
12, ІЗ, РФ 
ТІ 


表 3 仮想 V-RAM の 内 容 


ТЕА! ЕН GAME BASIC リ スト 


229 ON м мара GOTO 240, 250, 240 

2350 RESTORE 100209: ВОТО 270 

249 RESTORE 10310:6070 270 

250 RESTORE 10610:6070 270 

280 RESTORE 10910 

279 CLSICOLOR 5 

280 FOR Кед ТО 23:READ АФ: РАІМТАФ 

290 FOR 1“Ә ТО JOrIF ASC(MIDS (АФ, 1+1,1)) 
=32 THEN POKE ЫН7000%Кж49%1,9 

500 МЕХТіМЕХТ 

519 ІІМЕ (0,0) ~ (30, 25), "Ш", 4,В 

529 FOR 1-о ТО 7 

550 X=RND#28+11 Y=RND*#20+2 IF PEEK (&H7000 
+Y#40+X)<5 GOTO 550 

$40 LOCATE X。YIPRINT" "yıPUTAA(X#14“, уже) 
-(X%16+15.Y*8+7).C1X.F8ET 

350 POKE KH7000+Y#40+X, $3 NEXT 

549 LOCATE ©, 22. РАТМТ" "laPUTWA(O,176) -( 


ОР 


RUN る させ る と , タイ トル と キー の 説明 
が 表示 る され, KU, 何 か 好 き な キ ー を 押す 
と ゲー ム が スタ ー ト し ます 。 

初め ゆあ な た だ は, 左下 の 出入 口 の 所 に いま 
すか ら , ロボ ッ ト に 捕まら な いよ うに 財宝 
の 所 まで 行っ て くだ さい . 人 間 は [2], [4], 
6], [8 の キー を 押す と , それ ぞ れ 下 , ж, 
Ж, 上 に 移動 し ます . 

財宝 を 取る と き は , その 前 まで 行っ て , 
財宝 の ある 方 向 の キー を 押し ます . する と , 
人 間 の 体 が 白く な る の で , IAEI, 初め 
の 出入 口 ま で 戻っ て くだ さき さい. 出入 口 に つ 
いた だ たら, 財宝 を 取る と き と 同 じ よ うに する 
L, 財宝 を 外 に 出し て , 人 間 の 体 が 元 の 色 
に 戻り ます . 

な お , 財宝 は 1 個 ず つ し か 持つ こと が で 
きま せん . 財宝 を 8 個 持ち 帰る と 1 面 終了 
と な り , 時 間に合わ せ て ボー ナス が 加算 さ 
n, 次 の 面 に 移り ます . 

し か し , 途中 で ロボ ポット に 捕まる と , $ 
され て し まい , その 面 の 初め か ら や り 直 し 
に な り ま す 。 ғ); ЗАЩаНЬЕ, > 
и. ) 


< 


15, 183) ,C2%, PSET 
370 POKE &H7000+22#40, 4 

369 COLOR 6』LDCATE 52, 2:PRINT“STEALER" tL 
INE (51,1)-(59,5), "+", 5,В 

390 COLOR 7 ョ LOCATE 32,B:PRINT"SCORE":LOC 
ATE 35, 9: РБІМТИВІМӘ НӘ" § SC 

400 LOCATE 32, 121PRINT"HIGH-"1 LOCATE 52, 
15: РАТМТ"ВСОВЕ" 4 LOCATE 35, 14:PRINTUSING™" 
TUTTI 

419 LOCATE 32, 17rPRINT"ROUND" » LOCATE 34, 
181PRINTUSING"###" 5N 

420 LOCATE 32,21:PRINT"MAN "$M 

510 FOR I=@ ТО 4100508 Sé01X (1) =X ¥ (1) my 
VCD = Ст) =O РИТ@ (X#16, Y#B) = (X#14+15, Y| 
#8+7) , A44, PSET, 41 NEXT 

520 PLAY"T25OLBABCDEABCDEAECDEFG" 


525 G=8 
550 X=1』Y=221PUKE &H7000+Y#40+X, 21 РИУТ@(Х 
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Рю 


STEALER GAME BASIC リ スト 


#16,Y#B)-(X*16+15,Y*8+7),A4X,PSET, ё 

540 FOR 1=0 TO 2000: МЕХТ 

550 TI=BO01V=01W=O: U=éı GOTO 1010 

560 X=RND*2B+1iY=RND*22+1: IF PEEK (&H7000 

+X+Yw49) く >9 GOTO 560 

570 POKE KH7000+Y#40+X, 11 RETURN 

999 "4у 

1000 ’ ヒト 

1010 S=kH7000+Y*40+X:1F PEEK(S)=1 GOTO 1 

810 

1020 RmPEEK(&HFDG1 ) 

1050 V=0rW=0: IF R=50 THEN W=1 ELSE IF R= 

52 THEN V=-1 ELSE IF R=54 THEN \У=1 ELSE 
IF R=54 THEN W=-1 ELSE 1310 

1040 РОКЕ 5,0 

1050 ОМ PEEK (S+W#40+V) +1 GOTO 1090,1810, 

0,1150, 1060, 1190 

1060 IF U=é GOTO 1190 

1070 SC=SC+1@*NiG=G-1íU=6:PLAY"B64","B64 
м, "B44" 

1080 COLOR 7ıLOCATE $$, 91PRINTUSING" #### 

#"sıSCrıIF 820 GOTO 1190 ELSE 1700 

1090 PLAY"C64", "G44"ıLOCATE X, YıPRINT" " 
1100 X=X+ViY=Y+WiíiON V+W*#2+3 GOTO 1130,11 
20,1150,1110,1140 

1110 РИТФ(Хе16,Үж8)-(Х%14%15,Ү%8%7),01%, 

PSET,U:GOTO 1190 

1120 РЦИТФ(Хж16,Үж8)-(Хж16%15,Үж8%7),А2%, 

PSET,U: GOTO 1190 

1130 PUT@(X*16,Y#*8)-(X*16+15,Y*8+7),A3X, 

РВЕТ, М: GOTO 1190 

1140 РИТФ(Х%16,ҮҰ8)-(Х%18%15, Үж8%7),А4%, 

PSET,U:GOTO 1190 

1150 IF U=7 GOTO 1199 

1160 COLOR Sr LOCATE X+V, Y+WıIPRINT "mM", 
1170 U=7ıPLAY"G64", "G44", "G44" 

1180 POKE S+W#40+V, 5: GOTO 1149 

1190 POKE kH7000+Y#40+X, 2 

1599 ' пж» 

1510 FOR 1-0 ТО 4 

1520 S=&H7000+X (1) +¥ (1) #401 РОКЕ 8, ӘЗІР U 

=7 GOTO 1400 

1530 ON RND#4 GOTO 1560, 1370, 1400 

1550 IF PEEK(B+M( 1 ) 4G+V( 1】 ) ) く < くさ GOTO 1370 
1560 IF РЕЕК(8+\ (Г) 49-М(1)2<5 THEN SWAP 
У(1»9,МК(193У(19е-У(19308070 1590 

1370 IF PEEK(S-V(1)*%*4@+W(1))<3 THEN SWAP 
V(1),W(ID sW(1)=-W(I):GOTO 1390 

1380 GOTO 1350 

1599 FOR Кед ТО 100:NEXT:GOTO 1510 

1400 A=ABS(X-X(I)-V(1I))+ABS(Y-Y(I)-W(I)) 
sB=ABS(X-X(I)+W(1))+ABS(Y-Y(I)-V(I)):C=A 

B8(X-X(1)-W(1))+ABS(Y-Y(1)+V(1)) 

1410 ON -(PEEK(S+W(1)*#40+V(1))<3)— (PEEK ( 

S+V(1)*40-W(1))<3)#2-(PEEK(S-V(I)*40+MW(I 
))<3)*4 GOTO 1510, 1420, 1440, 1450, 1450, 14 

60, 1470 

1420 SWAP V(I), ,W(I)IV(I)=-V(I) GOTO 1510 
1459 SWAP V(1),W(1)3W(1)=-W(1):GOTO 1510 

IF А>В AND RND>。2 GOTO 1420 ELSE 15 


IF AC AND RND>:2 GOTO 1450 ELSE 13 
IF В>С AND RND>。2 GOTO 1430 ELSE 14 


IF BCA AND В<С GOTO 1420 ELSE IF C< 
А AND C<B GOTO 1450 
1510 LOCATE X(I),Y(ID iPRINT" "j 
1529 X(I)=X(1)+V(I)D:Y(1)=Y(I)+W(I)(POKE 
&H7OGO+Y (1) #40+X (1), 1 
1530 ON V(1)+W(1)#2+3 GOTO 1560, 1550, 154 
0,1540, 1570 
1540 PUT@(X (1) #14, Y(1) #8) -(Х(1)*16+15,У( 
1) #8+7) ,A1%, PBET, 4: ВОТО 1580 
1550 PUT@(X (1) #14, Y (1) #8) -(X (1) #16+15, ¥ ( 
1)+8+7),А2Х,РЗЕТ, 41 ВОТО 1580 
1560 PUT@(X(I)*16,Y(I)*8)-(X(1)#16+15,Y( 
1) #8+7) ,АЗХ,РВЕТ, 41 ОТО 1580 
1570 PUT@(X(1) #14, Y (I) *8)-(X(1)#16+15,Y( 
1) +8+7) ‚А4, РВЕТ, 4:50Т0 1580 
1580 NEXTiTI=TI-1:GOTO 1010 
1700 ’ яу カワ ル 
1719 LINE(1@,3@)-(49@,8@),PSET,@,BF 
1729 IF TICO THEN TI=Q 
1730 SYMBOL (10,55), "BONUS "+STR%(TI*1@), 
5,4,4 
1740 P%="T2S@LëéAGFDAGFDEDEFG"IPLAY Р®,Р® 
„Ре 
1750 BC=SC+TIıN=N+1 
17650 FDR 1ед ТО 4000: МЕХТі80Т0 210 
1800 ° Ула» 
1819 P$s="T25@LëDFEGCDFEGDCEFGFDEC"iPLAY 
Ps, P$, PS 
1820 LOCATE X,YıPRINT" "j iPUT@(X*16,Y*8) 
-(Ха16%15,Үж8%7),С5%,РВЕТ,Ф 
1830 FOR 1-0 ТО 20001 МЕХТ 
1840 M=M-1ı IF М>9 GOTO 210 
1900 'GAME OVER 
1910 LINE (10, 30) - (490, 80) ,РВЕТ,Ф, BF 
1929 SYMBOL (15,52), "GAME OVER" 
1930 РФ-«"КЕСЕСЕСПЕҒОҒЕС"іРІ.АҮ P$, 
1940 IF ВС<=НВ GOTO 2000 
1950 HS=SCiHS%*=SC% 
1940 LINE (65, 155) - (487, 159) 。 PBET。 6, BF 
1970 SYMBOL (70, 140) , "NEW RECORD !!",4,2, 
5 
1980 LOCATE の ,221PRINT STRINGS (80, 32) 1 
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1990 COLOR 7ıLOCATE 5, 221 INPUT"What’s yo 
ur name ",5С% 

200% ” 

2010 FOR I=@ ТО 5000:МЕХТ 

2929 SYMBOL (100,192), “Push any key to ST 
ААТ !!",2,1,2 

2030 PRINTCHR%(27)+"9"iSC%=INPUT%(1)iGOT 


"INST 

WIDTH 40,25 

SYMBOL (50, 10) , "STEALER", 8,6,5 

SYMBOL (300, BO) , "Made Бу ИТ", 4,2,5 

LOCATE 4,14:COLOR ё 

РКІМТ "Кеу" 1 COLOR 7 

PRINT" 779 п лм 4 

№72" 

РКІМТ" シマ シタ 。 uhu ソコ 

594 2" 

5080 PRINT" оға ` マモ マレ 
ДЕРІ " 
5090 PRINT" 571 / OM wk ト 9 
INI 9 1 コス ズリ 


5110 PRINT" 9-2" yq" Тө? 
y? 27-74» 
5120 PRINT" 
өзе” як 

5130 PRINT" ر “چو‎ до へ 49 
Фадл." 
5140 COLOR 2:LOCATE 5,25іРНІМТ"Рияһ апу 
key to START !!"1 

GOSUB 5640 

* MUSIC AND WAIT 

PLAY"0450M2000" , "0530М2000" , "0530М2 


ANIN 日 リウ アリ 、 ソ レラ 


T25oL6CECFEBDRBCECFEGBDRBDFCABCG 
DFECABCB" IPLAY P$,P$,P$ 
А%=1МРИТ® (1) 
FOR 1-д ТО 400091 МЕХТ 
RETURN 100 
*READ СНА DATA 
RESTORE 5810 
1=0 ТО 9IREAD А1Х(191МЕХТ 
I=@ TO 9』READ 2X(1)』NEXT 
I=@ ТО 9IREAD A3X(I):NEXT 
I=@ ТО %íREAD А4%(1):МЕХТ 
1-0 TO 9』READ C3XZ(1):NEXT 
I=@ ТО 26』READ C1X(!)』NEXT 
1-9 ТО 261 ВЕАО С2% (1) 1МЕХТ 
RETURN 
"рата 
DATA 9760, 40860, 760, 4080, 6124,6112,16 
32, 1848, 960, 4080 
5820 DATA 960, 4080, 940, 4080, 14312, 2024,1 
632, 7392, 940, 4080 
5830 DATA 960, 4080, 960, 4080; 6120, 4120,16 
32, 3676, 960, 4080 
5840 БАТА 940, 4080, 940, 4080, 4120, 10212, 1 
652, 3494, 940, 4080 
5850 DATA 112, 504, 49%, 2032, 4072, 6120, 165 
2, 1904, 112, 504 
5060 БАТА -1,-2017,-5457,-12877,-12877,- 
8773, -8773,-1,0,201,8104, 16580 
5870 БАТА 12276,12276,12276,0,-1,-1,-1,- 
7609, -3505, -7609, -3505, -1 
5880 DATA 9,0,0 
5890 DATA 1807, 1807, 1807, 1807, 1793, 1795, 
1807, 1807, 255, 255, 255, 255 
5990 БАТА 241,241,255,255,-1,-1,-1,-1,-1 
5,-15,-1,-1 
5910 БАТА 0,0,0 
"тау 2 рата 
’ 1 МЕМ 
DATA 


DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 


DATA 


DATA 


10190 


Дэ, 


STEALER GAME BASIC リ スト 


10980 DATA "№ кн п на шн шә 
m. 


DATA "E ия иш ш mua m に 

DATA "m mm 
DATA "№ шан CENA ERAD каз 

DATA "№ шынын пына w a 
DATA "mm шш Е ma 

DATA " 
DATA "mm шы шының su s ша 

DATA 
DATA "№ | ш 

DATA 
DATA "ш mm mms sma пш s и 

DATA " 
DATA "№ m L: п кап шн 

рата " 
БАТА "g нин... мою ma 


ADAL араараа) 


ГТ ард 


日 立 グ ルー プ で は , 昭和 60 年 3 月 か ら 茨 城 県 筑波 研究 学園 都市 
で 開催 され る 国際 科学 技術 博 監 会 『EXPO "85』 へ の 出展 に つい て 。 
この た びそ の 基本 テー マ と 出展 構想 に つい て 発表 し まし た . ЖЖ 
テー で は 『Interface 一 技術 と の 自由 な 対話 』 で す . 

目 補 では, 今後 21 拉 紀 に か け て ます ます 高度 な 技術 が 私 達 の 社 
会 や 家庭 に 入り こん で くる と 了 予想 され る 上 で 、 を の 高度 技術 を 人 
問 が うま く 使 いこ な せる よう , 常に 技術 を 人 間 の 視点 で 見 直し て 
いく 姿勢 が な いと, 本 当 の 高度 技術 社会 の 到来 は 期待 で きず 『 人 
と 技術 と の TInterface』 22, 今後 の 技術 開発 を 進め て いく 上 で 大 
き な 課 題 で ある と 考え , 今回 の 基本 テー マ に も これ を 選び まし た 、。 

2 パビリオン の 総合 色彩 デ ラン は , 世界 的 デザ イナ ー で 特に 和牛 の 
使い 方 に は 定評 の ある フラ ンス の アン ドレ ・ ク レー ジェ 氏 が 担当 
し 。 出 展 内 容 と し て は 1 階 が オー プン ・ ス ペー ス と し て 日 立 の ロ 
ポッ ト が 芸術 に 挑戦 する ロボ ッ ト ・ ア ー チ スト ・ コ ユー ナー、 世界 
の 情報 を と スピーディ ー に 大 型 デ ィ ス プレイ な ど に 映し だ す 電 子 情 
報 キ ンター, 観客 の 電子 写真 を 撮り 希望 の 背景 画面 と の 合成 写真 
を 作り だ す 電 子 写真 館 の 3 つの コー ナー で 『 技 術 と の 自由 な 対話 』 
が 楽し ゆめ ます. 

そし て , 2 階 で は 日 立 グ ルー プ 館 の 中 心 と な る 円 形 回 転 劇場 で : 
5 分 毎 に 客席 が 回 転 し 、 3 つの 劇場 で 過去 、 現在 , 未来 に お ける 
入間 と 技術 と の 関係 を 動物 形 ロ ボッ ト や アデ ア ニメーション, コンピ 
ュー タ ・ グ ラフ ィ ッ クス に よる 立体 映像 。 LEE Зо FEK EEE 
ELT, 楽し くわ か りや すく 展開 し ます . 

開催 まで あと 1 年 と 迫っ だ 科学 万 博 は , 21 世 紀 の 生 活 を ひと 足 
先 き に の ぞ き 見 る 。 タ イム マシ ン と な る で し ょ う 、 
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. 作 ミニ ブロ 


РС-ВОО1тКкП 


ое. ` 


『 マ イコ ン ・ ゲ ー ム の 本 3 」 の PC-6001 
用 「 ザ ・ キ ャ ン デ ィ ・ キ ャ ン デ ィ 」 の 続編 
ЖЛ 


A BUD Ж 


上 か ら 降 っ て くる キャ ン デ ィ や 卵 や イン 
ペー ダー を ネッ ト で 受け 取っ て くだ さい . 
た だ し , 身体 に これ が 触れ る と 人 が 死ん で 
し まい ます 。 ダ イナ マイ ト は キャ ッ チ し な 
いで くだ さい . 身体 に か すっ て も 平気 で す 
が , キャ ッ チ する と 間違い な 〈 く 死に ます . 

1.000 点 ご と に スピ ー ド は 速く , 落下 物 は 
多く な り ま す . 


BASIC, マシ ン 語 で で き て いま す . 詳細 
は 別表 . フロ ー チ ャ ー ト を と どうぞ . 

テキ スト 画面 に ビル , グラ フィ ッ ク 画 面 
に 人 や 落下 物 を 描い てい ます . 優先 順位 の 
関係 で , や や 不 自然 に 見 える と きも あり ま 
す が 。 変更 し よう に も ハー ドウ ェ ア の せい 
な の で …… . ビル は な いよ りあ っ た 方 が 良 
いで し ょ う . な い 方 が 良い 場合 は 380 行 と 
540 行 の COLOR3 を COLOR0 に し て くだ さき 
>. 


A жең Ж 


ダイ ナマ イト の 数 
DC71H の 04 を 01 一 03 に 

全体 の スピ ー ド 
DC57H の 22 を 任意 の 数 に 


見 か け は キャ ン デ ィ だ が 触れ る と 死に ます 


落下 物 の 数 
DC66H の 0A を 任意 の 数 に (ただし, 余り 
多く する と 病 走 の 可能 性 あり ) 


25 ве Е 
x prez 
単純 な ゲー ム で す が , か な り 上 難し く で き 
て いる の で , 2,000 点 まで 取れ れ ば か な り の 
(Жо) 
ЖІ BASIC 行 番号 マッ プ 


も の で し ょ う . 


REM 
初期 化 

メイ ン ・ ル ー チ ン 

説明 画面 表示 

ワー ク ・ エ リア 初期 化 1 
ワー ク ・ エ リア 初期 化 2 
ゲー ム 本 体 
音楽 演奏 サブ ルー チン 
音楽 デー タ 


つい に I/O に も 弟分 の 雑誌 が で きま し た ね . それ も マイ コン ・ ゲ ー ム 専門 誌 の よう で 
T3 I/O, Ait, Lit, РЁ, 誌 と 買っ て いる の で し ょ う が だ ない. 
イコ ン ・ ゲ ー ム の 本 [@| が 売ら れ て いる 本 屋 の 夢 を 見 まし た . 
ン ・ ゲ ー ム の 本 I@ 早 く 出 し て くだ さい 。 お 願い し ま ー す . Р.5.1. 久しぶり に NEXT の ビデ オォ を み ま し た . や っ ぱり OFF COUSE は いい で す 


スコ ア 

ハイ ・ ス コア 

ルー プ 用 

マシ ン 語 ワー ク ・ エ リア 用 


音楽 デー タ 
ビル の デー タ 
マシ ン 馬 コー ル 用 


人 の V-RAM 
人 の 方 向 (81, #2) 
クロ ッ ク (1оғ0) 


ттттттттт 
ی‎ өл сл «л сл (л л ہے‎ л 
Ф со со со со со со со о 
© О О зз Фф > соту о 


я 
"出現 し て いな い 
落下 物 の V-RAM 


ダイ ナマ イト 出現 フラ グ 
ダイ ナマ イト の V-RAM 


2 落下 物 処理 サ プ ・ フ ロー チャ ー ト 


いや やあ, 実に けっ こう で す な / Us Ubat. いま 
〇 誌 を 切 ろ うっ と ! (I/O で は あり ませ ん よ ) 話 は 変わ り ま すか が , ЖН, > 
どん な ゲー ム が 載っ て る か は わか り ま せん で し た が …. 工学 社 の 皆さん . マイ コ 


表 4 マシ ン 語 アド レス マッ プ 


1 CANDY CANDY PART 21 
| Әу A.G.C. 1985 1 
1 Mitsutoshi kyo | 
م‎ 
„жөөк initialize текке те та ы 
CLEAR100, КНО?ҒҒ: БЕҒІМТА-2 
CMD SCREENZ, 9,6: МІрТН49, 25: CONSOLEO, 
25,9,1 
180 DEFUSRO=&HDAD8: DEF UBR 1 =&HDBCO』 DEFUSR 
2=&HDC2 ゆ 』 H$=" 00000 
190 erete main теке текке к. ““ғ” 
200 60808230: 80548350 
210 GOSUB420: 8070476 
220 Heee explanation жент аж... 
250 CMD CLS3:COLORS: PRINT" *** CANDY САМ 
DY PART 2 жж 
240 СО ОКвФаРКІМТІРБІМТ" 
АМЕ COMPANY 1983 
250 COLDR7』PRINT:PRINT』PRINT "くく KEY FUNC 
TION >>": РКІМТ:РКІМТ" = کم‎ 
269 PRINT" LEFT 141 151 RIGHT":PRINT" 
فت‎ ле; 
279 COLOR4tPRINTIPRINT" 
© POINTS 
289 PRINT" CANDY ...... 
290 PRINT" INVADER .... 30 POINTS":PRI 
NT" EGG ........ 40 POINTS 
300 COLOR3IIPRINTIPRINTIPRINT"# Today'a H 
1GH-SCORE "H$ 
319 COLORZ: PRINT: PRINT" 
KEY ]"』COLOR7 
IFINKEY$<>" "ТНЕМ520 
GOSUB6 1 0: RETURN 
’w#### work area clear 1 жене 
AD=&HE5 昌 9』 POKEAD+6, 12 


by ARIBUNTA G 


DYNAMITE ... 


19 POINTS 


С PUSH THE SPACE 


h~~, Р.5.2. ジャ イラ ス は 面白 い / 


非常 に 面白 い / 
Р.5.3. これ が 載る ころ は 委員 長 の 任期 $ 切 れ て る し , 友人 の S 君 の 生徒 会 長 の 任期 も 切れ て いる こと で し ょ う . で も 受験 が …. 


キー 入力 1 

А, H^ К, 

4 X24 ド ッ ト の クリ ア 
же Е 


А, ~ 
人 の 表示 1 


乱数 発生 
キャ ン デ ィ の 落下 
ADET 。 


360 FORI=OTO4 : РОКЕАр+7 +1, 48: МЕХТ: = さ 』 ら を = 
"0000 
370 POKEAD+13, Xo 
380 КЕБТОКЕ29@:1 ОСАТЕе, 5: COLORI: FORI=@TO 
15:КЕАрВ%:РКІМТВӨ: NEXT: COLOR7 
390 LINE (0,85) - (79, 99) ,PSET, 3, BF 
400 RETURN 
410 '#nese work area clear 2 жеккен 
429 POKEAD, 9: POKEAD+1, «HBO: POKEAD+2, 1:PO 
KEAD+3, 1 
459 FORI=OT049: POKEAD+16+I4#3, ©: МЕХТ: РОКЕ 
й0+12, © 
440 РОКІ =0Т03: PUKE&HEBOO+ 1* さ 。 Әг NEXT 
450 RETURN 
460 ’инии" дате жеее енене че 
470 ГОСАТЕФ®, ©: PRINT “SCORE "S$" 
-ізСМр CLS? 
480 ЕОК1=0ТО15: ВЕЕР 1: ВЕЕРФ: LOCATEI, 2: PRI 
NT" -. 
490 LOCATEI,3iFRINT" .——— "у: СОСАТЕТ, 41Р 
RINT" ‘O "у: РОКТ=оТО5©: МЕХТТ, I 
509 РКІМТ"ВАМЕ ТАКТ" : РОКТе010500: МЕХТа 
INE (0, 2)- (50,4), " ",BF 
510 A=USRO (©) 11 ОСАТЕ1 ё, 15: PRINT" Ah ! 
king! 
520 МеМ-1:5%ш"“іҒОКІе71011:5%-«59%СНК9(РЕ 
EK (AD+I))』NEXT 
550 A=USR2 (0) 1 A=USR2 (©) 1 IFM=OTHENSSO 
540 COLOR3:LOCATE1é6,1S1PRINT"1I 11 11 HA 
"s COLOR7: GOTO210 . 
6038629: IFVAL (S$) >VAL (НФ) THENH$=S$ 
GOT0O200 
"жшше тивіс subroutine жеж 
CMD CL93:0UT81, Or PUKE&HDBCC。5 
READM: IFM 255THENA=USR 1 (М) : GO0T0590 
WIDTH, t РОКЕ&НОВСС 2: RETURN 


MAN “М 


Shoc 


し か し , これ は ギャ ラガ を 3D に し た だ け の よう な 気 が し な いで も な い の で すか 


619 КЕЗГОКЕ649: 05070589 

620 КЕ8ТОКЕвФ0: 8070580 

850 ”жжиетитивіс data знинининининии 

640 РАТАЗ4, 34, 27, 27, 50, Ið, 22, 22, 27, 27,30 

‚34 

859 РАТАЗО, 30, 22, 22, 27,27,20, 34, 56, 56,22 

‚36,40,40,24,24,22,22,22,0,255 

889 DATA25。 25, 20, 20,20, 19, 17, 17,25, 25, 54 

‚34,54, 34, 54,0 

579 ЮАТА20, 20, 22,22,22,20,22,22, 17, 17,20 

, 20, 20, 22, 25, 25,255 

6590 rrtt screen data «етекке» 

490 рата" 

799 DATA" 

719 DATA" 

720 рата" 

730 DATA" | 

740 DATA" 1 

759 DATA" 1 

76@ DATA" | 
1 
' 


کم 
AKIBUNTAI‏ 1 
mr‏ 
4—44 
ВАМЕ I‏ 
F 1‏ = 
Б.Ж, Дз,‏ 
ыз — |‏ 
1 

1 


— 


779 рата" 
780 рата" 
— 
790 DATA" | 1 111 
ーー っ 
Boo DATA" 
Фоо і 
810 рата" 
— 
820 рата" 
ECORD | 
830 рата" 
— 
B49 рата" 
' 


СОМРАМУ 
ез ғә 


あー か . 
(ナシ ャ ・ デ ベ バック) 


93 


РС-8801 


マシ ン 語 (Nsa-BASIC モ ー ド ) 


RACKET GAME 


N Ee 


MART 


一 見 古典 的 レヒ レン ガ く ず し ゲー ム で す が , 
その 実態 は 逆転 的 発想 か ら 生 まれ た 『RAC 
КЕТ GAME; Tt. 決し て ラケット て 玉 
を 当て な いよ うに 注意 し て お 楽し みく だ さ 


遊び 方 — 


プロ グラ ム は 9000H 一 99CFH ま で の マシ 
ン 語 で で き て いま す . 入力 は Nss モ ニタ の S 
コマ ンド まだ た は EE コマ ンド で キー イン し て 
くだ さい (入力 ツー ル を お 持ち の 方 は それ 
EEKE); 

入力 し 終わ っ た ら 必 ず テ ー プ また は ディ 
スク に セー プ し て くだ さい . 竣 走 し だ たら 今 
まで の 苦労 が 水の泡 で すか ら …. 

スタ ー ト は G95BO で す . スタ ー ト する 
一 画面 レン ガ で 表示 され [Y] キ ー を 押す と ゲ 
ー ム ・ ス ター ト で す . キー は [4], (51%- 
で ラケット の 左右 移動 、 [SPACE| キー で ボ 
ー ル 発射 で す . 

- 見 ブ デ ロッ ク く ず し で す が 内 容 は か な り 
ラケット で ボー ル を 打っ て は いけ ませ ん ! 


Add 
7000 
9010 
9020 9 
9033 
9040 
9050 
9040 
9070 
9080 
9090 
9оАдо 
257-772 
99 ビ 9 
9009 
90ЕӨ 
чоғи 


万 点 く らい , 


違っ て いま す 。 まず ボー ル は ラケット 自身 
か ら 発 射る され 真 上 に 行き ます . する と スク 
ロー ル ・ バ パー が 『 2 本 左右 に 動い て いて , ё 
れ に 当たる と 反射 し て 真下 に 戻っ て き 

戻っ て きた ボー ル が 自分 の ラケット に 当 
А ДИ Л S 1 ナス され まこ に が 
で すか ら う まく ボー ル を スク ロー ル ・ バ バー を 


くぐら せ て レン ガ を 壊し て いっ て くだ さい . 


まだ, ボール が レン ガ に 当たっ て 壊せ ば も 

な り ま す が 。 その後 レ ン ガ の 

破片 が 真下 に 落ち て きま す . この 場合 スク 

ロー ル ・ バ バー に は 反射 し な いで 落ち て きま 

す の で ラ ケ ッ ド だ 当 だ ら な か いま よう に し で く 
gp ap bp q s > 


スク ロー ル ・ デ ー タ ・ ア ドレ ス 
が 
ラケット ・ ア ドレ ス 
ボ ポール ・ ア ドレ ス 
ラケット ャ ウラ アド レス 
ポー ル ・ ウ ラ ア ドレ ス 
れん が 破片 ウラ アド レス ① 
” アド レス ① 
п ウラ アド レス ② 
” アド レス ② 
右 ス クロ ー ル ・ フ ラグ 
= ГА 
ポー ル 上 昇 フ ラグ 
n 下降 V 


スコ ア 
ラケット 数 


[5PAcg] キ ー フ ラグ 

レン ガ 数 

レン ガ 破 片 ラ ラグ ① 
п © 


Sum 


Add 
9100 
9110 
9129 
91509 
9140 
9150 
91650 
9179 
9180 
9190 
9160 79 
91Во 
91C0 
91рө 
1E ウ 


> MARIO BRS. や り ま し た か ? あり ゃ あ 最 高 に 面白 いね …. ある 日 , 僕 が 友達 と 2 台 の MARIO BRS. で 
き 僕 は 398,810 点 で 全 機 滅亡 し た けど 。 
727,030 点 を 出し て 戻っ た ら 友 は 1 匹 だ け 死ん で 120 万 点 く らい . 
《 そ 一 / 


ETF. 


м 
Ok 
2 


変更 点 


る スク ロー ル ・ バ ー の 間隔 は 普通 位 に 設定 し 
て あり ます が , 変え だ い 方 は 9231H の AOH 
を 変え て くだ さい . 小さ くす る と 上 難し く 
な り ま す . 

e 全体 の スピ ー ド は 9601H の 10H を 変更 し 
て くだ さい. 小さき くす れ ば 早く , 大 きく 
すれ ば 遅く な り ま す . 

@ こ の ゲー ム で は ラケット の 移動 は |4|, 
[5] キ ー に し て いま す が , [4], [6] キー の 
方 が よい 場合 は 95CAH の DFH を BFH に 
変更 し て くだ さい . 

表 2 マシ ン 語 サブ ルーチン 


1 ドット 書き 込み 
3 キャ ラク タ 書 き 込 み 
レン ガ 5 列表 示 
右 ス クロ ー ル 
= n 
ラケット 右 移動 

ヶ жет 
ボー ル 上 上昇 
[SPACE] キーON 処 理 
ポー ル 下 降 
初期 設定 
メイ ン ・ ル ー チ ン 
スコ ア 表 示 
ゲー ム 画 面 表示 
GAME OVER 処理 
初期 画面 表示 
レン ガ 落 下 ① 

п @ 


数 の 競争 を し て た だん だ . その と 


友 は 何と 510,000 点 で らい いっ て , ま だ 一 匹 も 死ん どら ん か っ た . 仕 方 が な いか ら PRO SUCCOR を し て , 
まだ また 仕方 が な いか ら 、 ゼビウス で 65 万 点 出し て 戻っ た ら あ と 5 匹 で 210 
ボク は むき に な っ て 隣り の ゲー ム ・ モ ンタ ー で MARIO BRS. を や っ て 430,000 点 で らい 出し て 戻っ て くる と . 友 達 は 


PiO 


RACKET GAME マシ ン 語 リス ト 


9399 
95109 
9320 
9530 
9340 
9550 
93659 
9579 
9580 
9590 
IIAV 


9520 7E 


оо vo 
49 AF 


いな か っ た 。 ハ イス コア の 215 万 点 を 残し て . 話 に よる と 友 は ファ イヤ ー ボ ー ル を 1 面 で 3 回 も 消し て すご い ス ピー ド に 追わ れ , や られ だ らし 


O (馬鹿 だ ね ). P.S. MARIO BRS. の 必勝 パタ ー ン , 誰か 教え て くだ さい 


(NO HART OF IRON) 


Ө ミニ ブロ 


М2-ВОК/С, بوس‎ 


BASIC 


GASBARASY RESCUE 


PRE 209X Ж, 地球 第 1 期 国際 宇宙 探検 
隊 が 30 年 ぶり に 帰還 し た . そ の と き , ЖА 
雲 Gasaran か ら 持 ち 帰 っ た 無機 動物 Gasba 
rasy が , 地球 の 強 光 線 と 高温 に より 徐々 
に 肥大 し て いる の に 誰 も 気付 か な か っ た . 

ある 日 突然 , Gasbarasy が 容器 の ふた 
を 壊し , 研究 所 の 人 間 を 堅い 始め た . 研究 
所 の と びら を 閉め , 外 へ 出る こと だ け は 防 


い だ が , 30 人 の 人 間 も 閉 じ 込 め ら れ て し ま 
っ た . さあ , あな た は 救助 艇 に 乗り 込み , 
SEA V e 


: 救助 艇 
: 救助 艇 右 移動 
: と びら 開閉 


C. au k sa G 


と びら を 開き , М PR 
な が ら 救 助 艇 を 動か し , 人 間 を 助け 出し ま 
3. 敵 が 人 を 1 人 食べ る と 分 裂 し 1 匹 増え 
ます . 救助 が ゆっ くり だ と , 敵 は 人 を 食べ 
どん どん 分 裂 し ます か ら 敵 の 中 に 積極 的 に 
入っ て いく 必要 が あり ます . 


ежи 


最初 , КІЗ 5 匹 , 人 は 30 人 ラン ダム な 位 
置 に 配置 され ます . 敵 は 人 を 食べ 分 裂 す る 
と と も る に, 1 画面 クリ ア す る ご と に に 3" 
つ 増 えま す . 人 が 0 人 に な る と 画面 クリ ア 
ЗИ, また だ 30 人 が 再 配置 され ます .( 人 が 0 
人 に な っ て も 救助 艇 が 外 に 出 て と びら 6 が 閉 


早く 助け な いと みん な 食わ れ ち ゃ う ぞ 


ЕЕЕ 
TULL 


と 思い ます . 


1 号 に 『APPLE は な せ 売 れ な いか 』 と いう 意見 が 出 て いま し た が , 


= > 


ャ スバ ラシー レス キュ ー 


БЕ T 


Ë LU 


HHHHHHHHH 


まっ て いな いと ゲー ム 進 行 中 な の で 画面 は 
クリ ア さ る れ ま せん ). 

敵 を や っ つけ る 武器 は まだ 発見 され て い 
BOOT, ЖІ 6 ЖІУІН b DFS 
救助 する こと に な り ま す . 敵 の 動く 速度 は 
救助 艇 より 遅い の で すか が , ШАТ 2 
と や られ る 危険 も 増し ます . さら に , 敵 は 
ワー プ ' し て くる と き が ある の で 注意 が 必要 
TFs 

また , 敵 に エネ ルギー を 吸収 され , 停電 
する と き が あり ます . そう する と CRT は 
ІНІ, 修理 が 完了 イ す る まで 3 秒間 は メ ク ラ 
状態 で 敵 と 戦う こと に な り ま す (ゲー ム は 
進行 し て いま す ). 

(57-9) 


・ 救 助 衝 に 人 を 1 人 乗せ る と 10 点 


・ 外 に 出 て と びら を 閉め る と (救助 完了 ) 
十 20 点 / 人 
・ 画 面 ク リア デ す る と 十 100 点 
(GAME OVER) 
・ 救 助 艇 が 3 隻 と も や られ た と き 
・ 敵 が と びら か ら 外 に 出 た と き 
・ 敵 の 数 が 30 匹 に な っ た と き 


Fagus ОСІН ТЕСЕ 
3. 1/O 誌 "81 年 9 月 号 の カン フル ZP- 5 
0 Z3 9 で バー ジョ ン ・ ア デップ し た も の は , 
文 番号 5 0 の POKE 1 7 8 2 8, 0 を POKE 
19876, 0 に する 必要 が あり ます 。 

ワー プ の 頻度 は 行 番号 2 50 で , FEH 
度 は 行 番号 2 6 0 で 決定 し て いま す の ぞ て で 各 
自 で 好き な よう に 書き 換え て くだ さい . 

フロ ー チ ャ ー ト を 図 1 に , 行 番号 の 説明 
を 答 1 に 示し ます . 


は っ きり い 
コン パチ と いう 手 も あ り ま す が 。 ハー ド が 揃っ て も ソフ ト が まだ 高い . 
№, 完成 度 か らい っ て し か た が な いと いう で し ょ う が …. 
少し ずつ 出 て き て いま す . ディ スク も 6 も 敬 及 し つつ ある し 。 


EDT LLLLLL 


っ て 中 高生 の ユー ザー で は APPLE を 手 に 入れ る の は 無理 だ 
ン フ ト 7, 8 本 で ハー ド か が 1 台 買 え そ うな 値段 で す . + 


BUT 最 近日 本 の ソフ ト で も APPLE ソ フト に た ち う ち で きる ソフ ト が PC-8001 等 で 
日 本 の ソフ ト が APPLE に 追い つく の も そう 遠く は な いと 思い ます . P.S. や っ ぱり 


EIGASBARASY RESCUE BASIC リス ト 


10 КЕМ жж GASBARASY RESCUE жж 

28 DIM Т<502,Сс<50),0(42.ТУ(302,ШРС502 

38 ОЫК-1:Ғ-3:НТ-10:5-0:Т-5:Т13- "бодайй" 

40 GOSLB 610 

50 6ЕТ0%:РОКЕ17828,0 

68 ІҒУНІ (Т1%2-100003>9ТНЕНРОКЕ57546»1 

70 IFD$="U"THENFV=-4@: GOTO 210 

8û IFD#="M"THEHFU=40:GDTO 310 

98 IFD#="H"THENFU=-1:GDTO 310 

100 IFD#="K"THEHFU=1:60TO 510 

110 IFD#="J"THEH 370 

120 IF(HT=0)P*<(FP=53367)5*<DR=1)THEHHT=10:T=T+2:S=S+100@:GOSUB 410: GOTO 40 
158 IFC(II)=@THENC(II)=3:G0SUE 240 

140 ІҒШР-1ТНЕМЫР-0: GOTO 160 

158 #=TCII2+TUCII> 

160 Т!=РЕЕКСХ> 

178 ІҒТ(С112-55366ТНЕН 480 

188 IF(T1=67)+(T1=905)THENGOSUB 240: GOTO 148 

190 IFT1=229THEN 450 

200 ІБЕ(Ті>2812ж(Т1<286ОТНЕНТ-Тж1:Т<Т2-Т<112:С(То-СС11%12:6050Б 298:60Т0 220 
210 РОКЕТ(112,8 

220 ТСІІ2-Х5:РОКЕТ(112,207:С<112-С(112-1: 11=11+1: 1FII>TTHENII=1 
258 БОТО 58 

248 TUXII)=U(RHD て 1)*4+1 う 

258 К-ЖМр(12:1ІҒЕ<6.1ТНЕМЫР-1: Х-Т(112%ТУС112%6 

268 ІҒК<0.01ТНЕНТІЗ- "100008": РОКЕ5Р546,й 

270 СЕс(ҒР-532482/40:ІҒ<СК-ІНТ(СК220.92%(Х<553292%(52540852ТНЕНШР-0 
280 RETURN 

298 HT=HT-1:MUSIC"1-GUR": ТЕТ=ЗАТНЕН 434 

380 RETURH 

318 F1=FP+FUiF2=FEEKKF 1 > 

328 ІҒ(Е2-672%(Ғ2-902%(Ғ1-532680%(Ғ1-555272%<Ғ1-554072ТНЕН 150 
330 РОКЕҒІ»229:РОКЕҒР,0:ҒР-Ғ1 

340 IFF2=207THEN 458 

350 IF(F2)201)*(F2<206)THENS=5+10:HT=HT-1:HR=HR+1: GOSUB 430 
368 GOTO 130 

370 IFDR=1THEHPUKE5 さ 366, 0: DR=0: GOSLIE 640: GOTO 130 

388 РОКЕ53366,67:ЫЕҒ-1: GOSUB 600 

398 IFFP=53367THENS=5+HR*+20: НК-й: GOSUE 450 

400 GOTO 136 

410 MUSIC"C1E#D#GIT#CFCCC":IFT=>30THEN 480 

420 RETURH 

430 IFS>HSTHENHS=S 

440 CURSOF0,@:FRINTUSCCORE ";5: ТАЕ<15); "HISCORE ";Н$; TRB(31); "LEFT "$F: RETURN 
450 Ғ-Ғ-1:РОКЕЕР, @: MUSIC "aC 1 Ra 1 Rn C" 

460 GOSUE 440: IFF=ATHEH 496 

470 БОЗИВ 790: GOTO 50 

488 MUSIC" 1 こ C1R ニ C1R ニ C1R ニ C1K ニ C1" 

490 РОКЕ57346, 1 

500 РОКН=1Т05 

51а CURSOR1S, 11 

520 PRIHT"GRME OVER":GOSUB 606 

530 CURSOR15, 11 

540 PRINT" ":GOSUE 600 

550 NEXT 

568 CURSOR0,23:PRIHT"TRY AGAIN ? C/M)" 

570 GETD ま ! IFD ま =" "THEN 50 

588 IFD ま ="N"THEHSTIP 

59й БОТО 570 

12515) PORTE OSDNERTARETIRN 


630 РКІМТ"% й" 
640 FORH=1TO6 

650 РКІНТ"Е EH №3 ва 
66а РКІНТ"% EH EE EF 
6708 РЕІНТ"# 

68а НЕХТ 

698 PRINT БОНН СИЯ 

700 FORI=1TOHT 

718 X=INTCRHDC1)+10)#3+1: У=ТНТ CEHD 1 2ж72 120+40 
720 H=X+Y+53248: 1ЕРЕЕКСН><>@ТНЕН 710 

258 РОКЕН, 282+ 1НТ<ЕНОС 1) #42: HEAT 

740 U<K1x=-40:U(2)=40:U(35=-1:U(X4)=1 

750 FORI=1TOT 

760 м-ІНТ(ЕНОС12ж102ж5%1: ҮзІНТСЕНрС12ж72ж120%80 
770 Т(12-Х4У/455248: ІЕРЕЕКСТ(122< >ӨТНЕН 766 

788 РОКЕТ(12,287:СС10-3: ТУСТ>=ИСКНОС1 >ж4+1 >: НЕХТ 
790 НЕ=@: 11=1:РР=53367:РОКЕЕР› 229: GOSUB 450 

зав RETURN 


APPLE の GAME や り た い Р.5.2. JR-200 用 の SWASH BUKLER, PC 用 の LODE RUNNER が ある そう で すか が , まだ 一 度 も 見 だ た こと も や っ 
た こと 6 も あり ませ ん . これ ら の GAME の 感想 を 聞き だ いで す . (山本 小鉄 と は 全く 関係 の な い 山 本 ) 
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ru /」 な ど と 言わ ず に , 一 度 遊 ん で み 
て くだ さい . 結構 楽し め る ん じゃ な いか と 
思い ます . 


スロ ロペ ペグ 


あな だ ただ は, 宝 を 拾 お うと 思っ て 工場 に 忍 
び 込 み ま し た . LDL, ドー ナッ ツ を 池 の 
中 に 落と し て し まっ だ た から, АХЖ. 

レー ザー は 狙っ て くる し , 池 の 中 に は 人 
喰 魚 が うようよ . あな た は 生き 延び る こと 
が で きる か ノ 


GAME の 説明 


人 間 は В, 2) 4, 6 で それ ぞ れ 上 
左右 に 動き ます . そし て М @ で 
ЕЕ: (М1). ISL, Fi 
じ 方 向 に 2 度 続け て ジャ ンプ する こと は で 
きま せん . 氷 の 上 で ジャ ンプ する と 死ん で 
(сфе b: 

ESTO ドー ナッ ツ の 上 に ある 水 
の 上 に 立っ て [2] を 押せ ば 回 収 で きま す 
(2). た だ し , 途中 で レー ザー に 当たっ 
120, サビ ラメ ア に 食べ られ だ りす る と 死 
に ます . 

コイ ン と ドー ナッ ッ ツ を 全部 と れ ば , クリ 
F USE C 

4 面 か ら レ ー ザ ー ガ ン の 動き が 速く な り , 
7 面 か ら エ レベ ベーター の 速度 が 速く な り ま 
$. そし て 3 面 ク リア する ご と に 。 コー ヒ 
ー ブ レ イク が あり ます . 

3 回 死ぬ ね と GameOver に な る の で す が 。 
べ ベス ト 5 に 入っ て いれ ば 名 前 が 登録 どき ま 
{ 


落下 中 . ノ 当然 この 後 死に ます 


MIMUSASHI 


ご ちゃ ご ちゃ と 書き まし た が , や っ て み 
る の が 一 番 だ と 思い ます . 
я 1 


固 を 押す 


メロ が ラム に 9 いて 


まあ , オー ル BA S IC な の で 問題 は な 
いと 思い ます . 

ご ちゃ ご ちゃ な プロ グラ ム で す が 。 勘弁 
し て くだ さい 。 パグ は 全部 とっ だ つも り で 
す が 。 あ っ だ ら ゴ メン ナ サ イ . 

変数 表 を 書い て お きま す の で , 適当 に 改 


0509, 


あし まい に 


この プロ グラ ム , BA S 1 C の 割 に は , 
結構 速い と 思い ませ ん か ? 作者 自身 も 熱中 
ЕЕ. 

Hi-Score は … と て も じゃ な いけ ど 書 け ま 
tA. 

それ で は Good-bye / ЕО) 


この まえ , マイ コン で ゲー ム を や っ て た ら 知 ら な い お じ さん が 来 て 言い まし た .「 こ れ 。、 すごく 高 いん だ ろう 」. ぼ く は うな づき まし た . ま が 。 
ここ まで は いい の で す が 。 次 の 言葉 で す .「 3 万 円 で らい する ん で し ょ う 」. ぼ く は 思わ ず 「16 万 /」 っ て 叫ん で し まっ た 。 : ああ 。 ぼく 高校 入 
れる の か な あ ? 悩ん で いま す . 
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(ベン ネー ム ) 


Ро 


ОИСИ DOUGHNUT FISHING BACIC リ スト 


1 КЕМ 0--0--0 DOUGHNUT FISHING 0--0--0 525 IF У>0 THENV=V+1tPOSITIONL 1 #8, O1 PAT CURSOR1O, 6 РАТМТ"А B C DE F 8 H I 
2 КЕМ MUSASHI 8 GRAPHIC ORIGINAL No.2 ТЕКМ-8,1.2%:РОБІТ10М252,1.2%81РАТТЕБМ-В,1.4 4 

5 КЕМ $1G0T0390 CURSOR1O, BIPRINT"K L ММОРОНВ 
4 КЕМ = = тт = PRATT 325 』FABS(X-L1)>ABS(Y-L2) THENS4O 

SREM TY ТУГО Іт Оч 330 GOTQ さ eaO CURBOR10, 10:PRINT"U VW X Y Zr e 
6 КЕМ - - - - エエ テト - <+ 540 IF X<L1 THEN 1.1-41-1%80Т0580 

TRER P Y p тоот ттн $50 IF X>L1 THEN し 1=L1+14BOTOSBO 1490 СОКБОК10, 141 PRINT "МАМЕ. " 

В КЕМ ~ | с RI K A 360 IF Y<L2 THEN L2=L2-1:GDTO3BO 1500 CURSOR15,15:PRINT" y 
9 REM + ょ トー エエ + +u ә 370 IF Y>L2 THEN L2=L2+1:GOTO380 CURSOR10, 161PRINT" ¬ 


10 REM 

11 GOSUB1O000:GOTO4500 

12 RENE 2772 (F АМИА 

15 IFGH=1 THEN 5070100 

16 POSITIONX#8,Y$8:PATTERN-8,CL$ 

20 ВЕТАФ: IF(A0="4")+(A0="6")+(A0="B")+( 
A$="2")+(A$="7")+(A$="9") THENGOT025 

21 Ав="" 

25 IF(A0="")+(A0=B0)+(A0="4")+(ñ0="6")+ 
(As="8") + (А 2") THENIFJ=1THENB=liJY=1 
ЗО IFJY<>1 THEN ІҒАФ»"7"ТНЕМАв-11В--1102 
11: ЈУ» 11 Вее "9 "1 РОКЕФОрЗ5, О: РОКЕФ0р29, 57 
40 IFJY<>1 THEN IFA$= THENA В--112- 
11.Үе-11ВФӨм"7"іРПОКЕФОр35,551РОКЕФ0029,0 
45 IFJ=1 THEN 6070120 

50 ІҒАФе«"4"ТНЕМ Х-Х-11РОКЕФОр55, 551 РОКЕ 
$0D29, 57: IFCHARACTERS ( X, Y) "THENX=X+1 
80 ТҒАФ= "6"ТНЕМ X=X+11PUKE$OD さ 5。 55: POKE 
$0D29, 57: IFCHARACTERS ( X, Y) =" "ТНЕМХ=Х-1 
70 IFA0="B"THEN Y=Y-1:POKE00D35, 55: POKE 
$0029, 571 IF (CHARACTERS (X, Y+1) =" ") +(CHAR 
АСТЕВ® (X, Y+1)="] ") THENY=Y+1 

ВО IFA$="2"THEN Ү=ү+1: РОКЕФОрЗ5, 55: РОКЕ 
$0029, 571 IFCHARACTER%(X, Y) =" g" THENY=Y-1 
B3 IFA0="2"THEN IFCHARACTERS (X,Y) ="~"TH 
ENY=Y-11GH=11P=151F=11 TS=-11 GOTO1OO 

84 IFME=2THENOW=OW+ 1 1 IFQAW=QOTHENQW=01 GO 
T0150 

85 GOTO200 

99 REMMI 7-74) 77: НА 

100 IFF=1 THEN TS=TS#-1:F=0 

101 РОВІТІОМХ%8,Р%В:РАТТЕКМ-Ө, CL$ 

102 Р=Р+Т8 

104 СФ«СНАНАСТЕКФ(Х,Р) 

108 IFC$="0" THEN CURSORX,PIPRINT" "18С 
=SC+201 MUSB1C"+COAFC" 1: СА=СА+11 Fi 

108 IFC$="=" THEN P=P-11F=1 

110 IFP=Y THEN GH=O 

112 IF(C#="<")+(C#=">")THEN MUSIC"-C3"I 
6010900 

117 РОБІТІОМХ%В,Р%8:РАТТЕКМ-В, М26 

118 80Т0200 

119 REMMA 9,272 11 ИН 

120 X=X+AIY=Y+B 

125 C%=CHARACTER%¿(X,Y):D%=CHARACTER%(X- 
1, Y+1) i E#=CHARACTER%(X+1, У+1) !F$=CHARACT 
ЕК6(Х,Ү%і1) 

130 IF(F@=" ")+(Fé@="@")+(F0="0")+(F*="H 
") THEN IFB=1THENKA=KA+1 

155 ІҒАФ«"7"ТНЕМ IFB=1THENIF(D#="W8")+(D 


580 У-О 

390 IF У>2 THEN LINEL188+3,7,L188+3,L2$ 
84311 ІМЕІ.1%8%2,1.2%8%5,252,1.2%8%5 

400 IF У>2 THEN BLINEL148B+3,7,L138+3,L2 
%8%5: BL ІМЕІ1%845,(.2%845,252,1.2%8%5 

405 IF У>2 THEN V=O:IF(X=L1)%(Y=L2)THEN 
900 

410 IF У<1 THEN РОБІТІОМ_ 148,0: РАТТЕКМ- 
8,11% 

420 IF У<1 THEN РОБІТІОМ252,_2%0: РАТТЕК 
N-B ュ し くも 

450 80Т0700 

499 RENN サ ヒ * 277 (F МИНИ 
500 CURSORX1,18:PRINT" " 

510 CURSORX2,181PRINT" " 

520 СОВКВОКХУ, 20:РКІМТ" " 

550 СОКБОКХ4, 20:РКІМТ" " 

540 X1=X1+14IFX1>27THENX】=1 

550 X2=X2+141FX2>27THENX2=1 

560 Х3шХ5%14ІҒХ3>27ТНЕМХЗ3е1 

570 X4=X4+1: IFX4>27THENX4=1 

600 CURSORX1,181:PRINT" <" 

610 CURSORX2, 1BIPRINT"<" 

613 CURSORX3,;20: PRINT"<" 

615 CURSORX4, 201 РКІМТ"<" 

620 807015 

700 CURSORXS, 19:РКІМТ" " 

702 CURSORXS, 191:РВІМТ" " 

705 CURSDRX6,19IPRINT" " 

705 Х5=Х5-1:1ЕХ5< 1ТНЕМХ5=27 

710 X6=X6-14 IFX6 く 1THENX6=2 フ 

720 CURSORX5,19:PRINT")>" 

730 CURSORXé, 19: PRINT">" 

740 REMGOTO15 

799 КЕМ 1040 フ * リ ント МАНИЯ 
BOO CURSORIO, 141: РАТМТЕТВНТ® (SPACES (8) +8 
TR$( BC) 。 日 ) 

950 807015 

899 КЕМЫНЫНЫНЫ レンチ" マック МОКОЮЦОИЕ 

900 MUSBIC"R さ "IFORI=OTO5 

901 00=00+1: МЫБІСМІО%Ф ( "СЕВСЕВ", OO, 1) 
902 РОВІТІОМХ КӨ, ҮҰВІ РАТТЕКМ-8, М1 ® 

903 МИВІСМІр%( "ВЕВЕВЕ", OO, 1) 

904 РОВІТІОМХ #8, Ү%8: РАТТЕКМ-8, CL$ 

905 МЕХТ 

906 00=0 

907 РОБІТІОМХ #8, РЖВ: РАТТЕКМ-8, CL$ 

909 МАМ=МАМ-1 

910 ТЕМАМ=ОТНЕМРОКЕ® 952, 166: 60T01300 
920 X=3íiY=4:GH=O:F=li:TS=-1 


CURSOR10, 171 РАТМТ" | 416 311 


CURSOR10, 18: PRINT" ме 


CURBDR 10,21』PRINT" コン トロ ー ル 


4550~EURBOR さ 。 $ PRINT" —————— 
" 


Е. 

1560 CURSORS, 231 PRINT" "n tM— 
ف‎ zk S 

1570 CURBORO』21FORI=OTO2OIPRINT" 1748 
TRING? (CHRS (3), 30) "| "NEXT 

1600 CURSORXN, YNIPRINT СМ 

1610 ВЕТА® 

1620 IFA$="4" THEN РОКЕФ952, O1 ХМ=ХМ-21 1 
FXN<9THENYN=YN-2 ХМ=27 1 IFYN<STHENYN=9 

1630 IFA$="6" THEN PDKEW952。01XN=XN+21 1 
FXN> 27THENYN=YN+2 XN=9: 1FYN> THENYN= き 

1635 CURBDRXN。 YNr PRINT ND%$ 

1650 ІҒАФ«" " THEN РОКЕФ952, 1661 МИВТС"+ 
C1"160T01670 

1660 GOTO1400 

1670 C%=CHARACTER%(XN+1,YM+1) 

1680 IFC$e"@"THEN1730 

1690 NES (ММ) =C%! IFC$="r"THENIFNN> ОТНЕММ 
NeNN- 1 1 NE ® (NN) =" " s CURSOR1S+NN, 141 PRINT" 
"iMUBIC"-C1"1BOTO160O 

1700 CURSOR15+NN, 1 41PRINTNE き (NN) 

1705 NN=NN+1』 IFNN> 13THEN1 730 

1710 GOTO1400 

1730 FORI=OTO14 

1740 N%(NO)=N%(NO)+NE%(I) 

1750 МЕХТ 

1800 PRINTCHR%(6):CURBORO, O 

1999 RENIN CATE пес" во МИНИН 

2000 PRINT"r "STRINGS ("—", 37) 8" " 

2010 FORI=OTO21 

2020 PRINT"| "$ SPACES (37) 5 "| "NEXT 

2030 PRINT""$ STRINGS ("—", 57) 3"4 " 

2040 СИЯБОВ11,11РБІМТ"-- 240% ta? —" 

2060 CURSORS ы РАТАТ» i"ICURSOR 1, 1 PRIN 
TH1 1 CURSOR21。61PRINTNW(1) 

2070 CURBOR7。B!PRINT"2"1CURBOR1 1, B1PRIN 
ТН21 CURSOR21 , Bt PRINTNS (2) 

2080 CURSOR7, 101 РКІМТ" 5" 1 CURSOR11, 10: PR 
INTHS! CURSOR21 , 101 РАТМТМ (3) 

2090 CURBOR7, 121 РКІМТ" 4" 1 СИВЗОВ1 1, 12: РВ 
INTH4! CURSOR21 , 121PRINTNS (4) 
2100 CURBOR7。141FRINT"5"1CURBOR11。141PR 


Фе "Н" ) THENKA=O: B=Ot JY=01 Y=Y-1 950 D=O INTH5:CURSOR21,14:PRINTN%(5) 
140 IFAW="9"THEN 1ЕВ=1ТНЕМТЕ (Ев "М" ) +(Е 980 CURSDR さ さ 。 21: РКІМТМАМ 2110 CURSORG, 1BtPRINT" コ ンカ イ / SCORE л “J 
$="H") THENKA=OI B=01 JY=01 Y=Y-1 990 607015 BI チン #70." 


145 IFC$=" 織 "THEN IFBe1THENKAmOIJ=O! BeOI 
JY=OI Y=Yー1 


999 RE MSN フリ ア ИИИНИН 

1000 ME=ME+1 t W=w+ 1 1 САО: DO=DO+ 11 DeO 
1010 X=4iY=4:Q1=O:GH=Or:J=O:F=11:TS=-1 
1015 IF 00> 25ТНЕМ00=25 

1017 PRINTCHRS (6) І: GRAPHI1,C, O1 

1020 CURSOR12, 121PRINTWS "メン フリ アシ マシ タリ 
10 さ O_MUBIC"C さ RFRRRDRGRRRRCDEFBASF さ " 
1040 PRINTCHR$(6) 1 CURSORO, O 

1050 IFM>2THENMN= 1 

1060 IFM>STHENQO= 1 

1190 ІҒМЕ= УТНЕММЕ =0: 606487000 

1200 ОМ МЕ+1 80Т05000, 5500, 5590 

1299 REMM GAME OVER МИМИМИЫЯНИЯ 
1300 PRINTCHRS (6) 1 GRAPHC, 11,01 

1305 CURSOR7, 10:РКІМТ" г г mm ~ 


2120 CURBOR7,21:IPRINT"t%í(*F` PITY ? ( 
Y cr М)" 

2150 ВЕТА® 

2140 IFA0="Y"THENPOKE0952, 0! BF=1 1 BOBUB2 
0000: 80704890 

2150 IFA$="N"THENPRINTCHRS (6) 』 PDKE$OD さ き 
„55: PUKE$OD29。571 END 

2160 80702130 

2999 REMM セツ メイ Мо. 1 МИНИ 
23000 РВІМТСНКФ (6) 1 8КАРН11, С, 01 

2010 PRINT" ФФ DOUGHNUT ег 
HING № 

3020 PRINT" 

3030 PRINT" —k—E—Y— 
а 5 ニン イマ ス 


THEN KA=OiJ=OIB=OIJY=O 
M")+(E%#="|")THENY=Y+1: X=X+ñ: 
60T0900 

148 80Т0200 

149 КЕМЕК ILA -7- КИМ 

150 CURSOR7, У7ёРАТМТ" | " 

155 CURBOR19, YBI PRINT" | " 

160 Ү7=ү7+1: [ҒҮ7> 14ТНЕМҮ7=5 

165 ҮВ«ҮВ-111ҒҮВ<5ТНЕМҮВе14 

170 CURSQR7,Y71PRINT"W " 

175 CURSDR 19。 YI PRINT "И" 

180 IFCHARACTER@(X』Y) = "а" THENIF J< > 1 THEN 
Ү=ү-1 


MAN л 940 


190 IF (CHARACTERS (Х,Ү+1) =" ") +(СНАКАСТЕ 1 PETEN 3040 PRINT" | mmm | I 
КФХ, Y+1)="| ") THENY=Y+1 1310 CURSOR7,11:PRINT"I THI IF | | 3050 PRINT" | 171181191 Г № 4682 / ツル 
199 REN 7-% L サー チ I = P: レノ ۽ چ‎ 
200 C$=CHARACTERS (X, У) 1 D#=CHARACTER%(X, 1520 CURSOR7, 124PRINT" レ コレ ュ ト ヒュ トー ыз 5060 PRINT" | トー トー テー I I 
үзі) ыы 5070 PRINT" | га \ Игл | N 922 07827 
205 ТЕВ<>1ТНЕМРОБТТТОМХ В, УВ: РАТТЕРМ-В 1350 ТЕМРО6: HUB1C"C6C5C さ C6WDSDSD5SC さ CS-B “сәт” 
«М19:0070210 5С5"іТЕМРО7 зово PRINT" | 148 461 Н 
207 РОБІТІОМХ%8В, У#8:РАТТЕВМ-16, М2% 1339 REMM HIGH SCORE 7 | 5090 PRINT" J — — I N 759 * t 
210 IFC%*="@"THEN CURSORX,Y:PRINT" 1540 IFH1<SCTHEN Н5=Н41Н4=Н31НЗ=Н21Н2=Н ик же = 
1С"СОАЕ +Е "1БС=5С+101СА=СА+1 11H1=SCINS (5) =N$(4)1N$(4) =N も ( さ ) INS (5) N$ 3100 PRINT" | 216 ги 
220 ІЕСФ«"|"ТНЕМ 900 (2)1№8(2) еМ6(1)1М0-1180701400 5110 PRINT" | 121 ПЕ а гы 
225 IFCA=B+DDTHEN1OOO 1350 1FH2 く BCTHEN H5=H41H4=H さ !H さ =H21H2=B qz, rt 
230 IF(D$="| ")+(D%#=" "“)+(D%="|l| CiN6(5)=N0(4)1N0(4)=NS(3):NS(3)=NS(2): NO 3120 PRINT" | .. ҰШЫ | 
(J<>1) 8 (GH=0) ТНЕМ257 -2:00701400 3150 PRINT" —— W am #259 
253 IFKA>2 THEN 6010900 1560 IFH3<SCTHEN H5=H4:H4=H31H3=85C:N%(5 = レッ ツウ 
255 6070299 ) =N$(4) 1 № (4) «М6(3):М0-23: 850701400 2140 PRINT" ! 
237 POSITIONX#8, У#В:РАТТЕВМ-В, CL$ 1570 IFH4 く SCTHEN Н5=Н41Н4=5С1№ (5) =№ (4 5150 PRINT" W134i ЭР: и 
240 D=D+1:Y=Y+1:C$=CHARACTER% ( Х, Y+1) 1 IF ) t NO=41 60701400 スル コト Y 
(Ce$="W")+(C#="s")+(C%="H")THEND=O1G0T015 1580 IFH5<SCTHEN Н5=5С:М0=5: 60101400 $160 PRINT" 110 POINT ! 
245 РОЅІТІОМХ#8, Ү#8: РАТТЕКМ-8, M2% 1390 GOTO1800 5170 PRINT" 01-799 И 392. 
250 IFD>1 THEN 6010900 1599 БЕМАЫМШИНШИН NAMING S~ N 3180 PRINT" 120 POINT ! 
255 POSITIONXš8,Y*s8íPATTERN-8,CL%$ 1400 XN=91 YN=51 NN=01 N$ (NO) =" ч 3190 PRINT" Hinu3" M +927 ノ ウエ 
260 GOT0240 1405 FORI=OTO14:NE%(I)=""!NEXT ЕТГІ 
299 RE MMM LASE GUN Wanqa 1410 ND$=" г-у "+СНАФ (1) +6ТКІМӘФ (CHR$ (4), 5200 PRINT" " 
505 O=0+11IFO>MN THEN O=0160T0315 3)+"| "+СНА® (3) +"| "+CHR$ (1) +STRINGS (СНА ( 3210 PRINT" 17929 ll MAN n ож" 
310 В0Т0500 4,3) +“ 2 VAR. 
315 IF У<1 THEN РОБІТІОМІ.1%8,0:РАТТЕКМ- 1420 С№=" "+CHR®( 1) +BTRING¢ (CHR (4), 3220 PRINT" 
BCL@ 39%" “+CHR0(3)+" “+СНА® (1) +BTRINBW(CHRS( 5225 РОБ1Т1ОМ56,641РАТТЕВМ-В,М1® 
520 IF У<1 THEN PDBITIODN2 さ 2,L2*BPATTER || 4,9440" 3250 CURBOR1 さ , 251 РАІМТ"РОВН r84 KEY" 


N-8, CL% 
521 IF(X=L1) $ (YeL2)THENV=V+i 


1450 PRINTCHRW(6) 1 GRAPHI1,C,O1 
1450 CURSOR11,3:PRINT"r Let“s Naming 2 


5240 ВЕТА® 


Рю 


DOUGHNUT FISHING BASIC リ スト 


3260 60703240 
5299 REMM で ツメ イ Мо. 2 ИК 
5300 PRINTCHR$(6) 1 ӨНАРН11,С,01 

5510 PRINT" ө DOUGHNUT FIS 
HING ое 


РААМТ"И H H H РАТМТ"И 


5100 PRINT" WH H ну H [Д PRINT"N 


" 
5110 РАМТ" ИН mj waj s на РАТМТ"И 


5520 PRINT" 4 

5350 PRINT" Wip vts | FOS РАТМТ"ИН н H H H РВІМТ"{ 

eers / 

5540 PRINT" Г РАТНТ"ИН H H нен 5820 PR INT T, 
3350 PRINT" “43349 И ウェ ノ コ オ リ ノ + 

ウェ ニク チ 6-9 PRINT "IIH шана шнш нши ния 6000 CURSOR3O, 2: PRINT "о: 0 

5560 PRINT" " 6005 CURSOR3O, 2: PRINT "о. 0 

3370 PRINT" .ба,-т-ғо Ú леу カイ シュ PRINT"IH H ФОН нн н 6010 CURBOR さ O, さ ! PRINT"| HIGH | 


2 すす" +22. 6020 СУВБОВ$О, 4 1 PRINT"| SCORE | 


3380 PRINT" " PRINT "ママ ママ ママ や や て て や ママ や と て と て て て て と と と と と 6030 CURSDR さ O, З: РАТМТ" ———0 

5590 PRINT" <,>196* う メ ア ERS ai 6040 CURSOR30, 9: РАТМТ" о ———0 
таз" PRINT"H 6050 СОКБОКЗО, 104РКІМТ"| YOUR | 

3400 PRINT" u 6060 CURSOR30,11:PRINT"I SCORE | 

5410 PRINT" I в 96° 937 = РАТМТ"И 6070 СИВБОКЗО, 12: РАТМТ" 0: о 

セッ ショ ワ スルト 6080 CURSOR3O,161PRINT"O 0 

3420 PRINT" I " PRINT" 6090 CURBDR3O。 171 PRINT "| MAN | 

3450 PRINT" ШИЙ 11/4:-7- | MAN ъй” 6100 CURSOR3O, 18ІРБІМТ"| 207" 21 
2 YIR. РАТМТ"И 6110 CURBDR3O, 19 РАТМТ" 0 0 

3440 PRINT" I " 8120 CURSOR3O, 7tPRINTRIGHT ® ( SPACES (8) +8 
5450 PRINT" I и YLI мамл РАТМТ"И TR@(H1),B) 

a 2 6150 CURSDR さ O。 14: PRINTRIBHT$(BPACE$(B)+ 
$460 PRINT" " PRINT '——— BTR@(8C) , 8) 

3470 PRINT" MUSASHI “S Ú eyr- アウ 6140 CURSORJ1,211PRINT"Ph"I MANI" осу" 
ッ チ そ 9272. 5230 GOTOeOOO 8199 REIN l` -Js 9 オフ МИА 
3480 PRINT" "A 5500 PRINT 6200 Q=INT(RND(1)827)+1 

3490 PRINT" GRAPHIC Ú コイ ント ト "ー ナ РКІМТ peaeeeeeeeee 6205 IF (Q=8) + (0=20) THEN 6200 
.%:-9-ұ%22" 6210 ІҒСНАНАСТЕНӨ(0,21)““ “THENCURSORQ, 
5500 PRINT" " РАТМТ"И DOUGHNUT FISHING 211РВ1МТ"0"101=01+1 

$510 PRINT" ORIGINAL No.2 W PIAN 2) 8220 IFQ1<DOTHEN6200 

FI" Zoli PRINT"“ 8990 MUSIC"CS+C"1GOTO1S 


3520 PRINT" 

5525 РО81Т10М18,56:РАТТЕКМ-8,116 
5525 POSITION3S2, 541 PATTERN- 日 , し さす 
3530 CURSOR 1 さ , 2 さ 』PRINT"PUSH r83 KEY" 
5540 ВЕТА® 


7000 REM COFFEE BREAK НИКА 
7010 PRINTCHRW (6) 1 CURSORO, Ot МОФ "FEDC" 
7020 PRINTIGRAPHI1,C, O1 
7030 PRINT" ---------С QF FEE B R A 
Kーーーー ニ ーーーーー"IPRINTIPRINT 


РАТМТ"И ” 


LM ЕН ма ин nasa 


5550 ТЕА®="Б"ТНЕМВОТО4890 РАТМТ"И H H H H H 7040 PRINT" 
3560 60105540 7050 PRINT" It- デル 
4499 КЕМЕ 75.0 июн РБІМТ"ШЕН H v H нен 42 Ға. 
4500 PRINT" 7060 PRINT" 
4510 PRINT" Сз сан py s FORA F 5380 PRINT"I H v НӘ шш w шина 7070 PRINT" It-9 ノ 
Лала] ғғ 
4520 РАМТ" [г УіЫ 5390 PRINT" ШЕН H H 7080 PRINT" 
нні 7090 PRINT" 29-4 744 
4550 PRINT" HHIIIIIIIIIIIIIIIIIIHII 5400 PRINT"H H на тин а-а уо 9 07% 
км 7100 PRINT" 
4540 PRINT" анны 5410 РКІМТ"Н ЖИН . H нн 7110 PRINT" I l 929-97 
ПИГ VIE カマ イマ セン 。 
4550 PRINT" UIHIIIIHIEIIE2HIcHIIIHI 5420 РААМТ"ИНЫЯ H ман ЫН НЕН» 7120 PRINT" | егін! 
ИН 7130 PRINT" wasan! | 94972 + 
4560 PRINT" IIIIIIIIIIHIIIIIIIHIIIII 5450 PRINT"HH ӨН н нн ин +» 
ма 7140 PRINT" | лае 
4570 PRINT" 1 c c °S lli 5440 PRINT" ЖЕНЕ “w иш H 7150 PRINT" 1 mR | CR *- 9 
әү 972774. 
4580 PRINT" ب‎ чыч шаш ыыы も 5450 PRINT"IH H H H H н 7160 PRINT" — 


.— ы 


4590 PRINT" 

4600 PRINT" ЕЕ 
этте 

4610 PRINT" Lam бай ы a 
Нат 

4620 PRINT" "I ни HII HI Hilli 
ШШ 


7161 MUSIC"R3" 

7182 РОВІТІОМВО, ВО: РАТТЕКМ-16,М16 

7163 11МЕӨ2,81,56, 124 

7164 CURSORS, өіРБІМТ"27 +73" 

7188 CURSORS, В:РАІМТ" 2° 72" 

7170 FORI=12T015 

7180 FORJ=éTO9 

7190 CURSORJ,IIPRINT" “tMUSICMI DS (MUS, J 


5460 PRINT "j ему 


5470 РАТМТ"И 


и 
5480 РАТМТ"И 


5490 РАТМТ"И 


4650 PRINT" 9 ы НЕДЕН -5,1) 

tps 5500 PRINT"N 7200 NEXTJ 
4640 PRINT" et. И а У ATEN 7210 МЕХТІ 

Ilim 5510 РАТМТ"И 7220 CURSORS, &: PRINT "アー s 
4650 PRINT" "I и ИНЕТЕ ИЕН 7250 CURSORS, 日 』PRINT" 59297" 


5520 PRINT "キーーーーーーーーーーーーーーーーーーーー 一 


5530 BOTOeOOO 
5590 PRINT 
5600 PRINT" 


7240 MUSIC"FSRCCWCSCREF" 

7245 CURBQR9。204PRINT"H I T Eo 
ET 

7250 BETAS 

7260 IFA$=CHR$ ( 13) THENRETURN 

7270 80707250 


PRINT" Eb c? ty ние С | 


PRINT" Q ーーー つ ー ロ ウロ ーー ロワ ы 


PRINT" 


4690 PRINT" Р.Г. ta А اع‎ 15 5610 PRINT"H DOUGHNUT FISHING 9999 КЕМЕМЕН ョ や Мо. 1 каН 
4700 PRINT" w. | ИЕ 10000 CONBOLEC40。 М, ВО, 24 

1985... 5620 PRINT"H 10010 POKE%$952, Ot DEF КЕҮ(5) =РОКЕФ952, 16 
4710 PRINT" ь د‎ аланда 4 ك ا‎ Ф6ІРОКЕФОр55, 55 | РОКЕФ0р29, 573 


4720 PRINT" 

4800 MUSIC"C4FA+C2R+C+C+C4A2RAAA4F AF CBC 
4FA+C2R+C+C+C4+CAFC2RCCC4F 8" 

4810 PRINTCHR$(6) 1 CURSORS, 1 21PRINT "セツ メイ 

Ж СОЗО?" 22? (Y or N)" 

4820 GETA%$ 

4850 IFA%*="Y"THENGOTO3OOO 

4840 IFAW="N"THENGOTO489O 

4850 60104820 

4890 PRINTCHR$(6) 1 CURSORO, О: GRAPHI 1, C, O 
1 

4999 RENN カー メン ソノ 1 шиа 

5000 PRINT 

5010 РАМТ" 4———— n  ——  .s"Ps—od- 


РАТМТ"И 


PRINT"H 10015 ТЕМРО7 

10020 ВРАРНС, 11,01 

10025 DIMX(é),Y(6),N6(5),NE%#(14) 

10030 М18="<<"+СНЯ® (24) +" {+ "+СНВ$ (24) +" 
sB" 
10040 M20#="<<+*"+CHR0(24)+"+Z<" 
10050 Ll%#="+-zTDD("+CHR%0(16) 
10055 L2$="¢ 11I 1B"+CHR$( 16) 
10080 1.3%-СННФ(7)%4: DEDI! "+CHR%0 (7) +CHR% ( 


5640 PRINT" | nas | Нан 
5650 РААМТ"И HH | н н НУН 


5660 РКІМТ" HH | H шін H 


5670 PRINT" HMH | Шш Ән | нм м 


5680 РАТМТ"И H HI H WH HH (46-СННӨ(7)421ШІ>"»СННФ(7) +СНА® ( 


5690 РААМТ"ИУН ú H | WH H | H WI Е1%= "с 77а" 
10090 Ғ2Ф-СННФ(7) + "Иа" +" +СНАФ (7) 


10200 Ү1=18:Ү2=18: ҮЗ=20: Y4=201 YS=191Y6= 


PRINT" Ia 


DOUGHNUT FISHING 


X1=11X2=15:X3=101:X4=241:X5=7:X6=23 
10220 Ніе0іН2е04Н5-0і H4=01 H5=01 BF =O 
10250 FORI=1TO5r+N%@(I)="Mr. ?"аМЕХТ 
19999 RENN Ln ¢ Мо. 2 МИННИ 
20000 X=3ı Y: し L%=BTRINB@(CHR$(O) , 8) 
20010 V=01 GH Ғ«11Т8--118-15:05-5 
20020 DO=5:MAN=5:ME=O0:Y7=5:YB=14 

20050 MN=21 W=Ot SC=01 QO=21 СА=0:01=0 
RETURN 


РААМТ"ИН I нин | H 


PRINT"H 


5720 PRINT"NH Н v 


ке 
РАТМТ"И . v 


mm ан кана 
H н Юи 


PRINT "ПНИН | H н тана м 


PRINT "Пани ИНИ 


" 
5740 РАТМТ"И H НЕН ғ нан 


PRINT" H 


5750 PRINT" j Ж“ naa a тель r e e Av A о: 


PRINT" H H H He H 


5760 РАТМТ"И 


PRINT" АН HNN КИН ЕН | 


P Ріо No.1 p.34 の ビデ オ ゲ ー ム ・ ク イズ の 答え を 送り ます . まず , 空中 飛行 物 で は トー ロイ ド ,。 タル ケン 。 Si, ギ ト ス パリ オ , ジ アラ 。 
Же, 977, ザ カ ー ト , プラ グ ・ ザ カー ト , カツ レ ・ ザ カー トバ キュ ラ 、 シ オナ イト ,。 ソル バル ウ で す 、 地上 物 そ の 他 で は アン ドア ジェ 
ネ シ ス , パーラ 。 カツ レ ・ バ ー ラ 。 スペ シャ ル ・ フ ラッ グ ,。 ジル バク 。 ログ ラム 。 デ ロ ー タ 。 カツ レ ・ デ ロー タ 。 ドモ グラ ム ,。 グロ プ ダ ー。 
ボ ポ ザ ・ ロ グラ ム 。 YAT, プ ブルズ ・ ア イ よ と いう の は カツ レ ・ ザ カー ト の ユー ド ・ ネ ー ム で す 。 P.S.1. モビ ウス で 始ま っ て すぐ に 右 下 へ 行 


Х1 


Hu-BASIC+ マ シン 語 


% А. а. А | 
Ë 2 P % ap 72 
F Т0 шз 9 


HESIZER У1.8 
SYNT ым; 


"83 6/21 


r Main о -m Г 
Кеу 
Portamento === 
te 


же || 


|| っ hr тә» 


Lp reais dosil lator — 
іле 
ل کے‎ 


最近 , PSG を 塔 載 し た マイ コン が 増え て 
いま す が , その 使用 例 の ほとん ど は , PS 
G 用 の 1C の 最低 限 の 機能 を 使っ て , 単純 な 
音 を 出し て いる に すぎ ませ ん . そこ で 私 は , 
『 ど こま て 音楽 用 の シン セ に 人 迫 れ る か 』 と 
いう こと を 人 訪 頭 に シン セ の シミ ュ レ ー ト を 
し て みる こ сс ы. 


通常 アナ ログ ・ シ ン セ は , VCO か ら の 信号 
に フィ ル タ を か け 。 倍音 成分 を カッ ト す る 
こと に より 音色 を 変え て いま す が , PSGE 
は , フィ ル タ に 相当 する 部 分 が な いた め に , 
それ が で きま せん . 

そこ で 本 グロ グラ ム で は , 混ぜ 合わ せる 
倍音 の 高 さ と 強 る を 変え る と いう , いわ ば 
エレ クト ー ン 的 方 法 に より , 音色 を 変え る 
こと に し まし た 普通 の アナ ログ ・ シ ン セ や 
の 機能 は ほとん ど シ ミュ レー ト し て ある は 
ТҮ. 


CLEAR %НП800 を 実行 後 、 BASIC, 
マシ ン 語 と 打ち 込み , モー プ し て くだ さき さい. 


Hu-BASIC を 起動 後 、 BASIC, マシ ン 語 
部 分 を テー プ か ら ロ ー ド し , RUNš+ C < 
а. 


デー タ を 入れ て くだ さい (デー タ 以 外 の 入 
力 に は [RETURN] キー は 不用 で す ). 大 部 
分 の デー タ は 0 以上 100 以下 の 数 字 を 入れ 
ます (小数 も 可 ) . 

以下 注意 を 要する と ころ の み 説 明 し ます . 
key: 一 番 低 じ A( ラ 音 ) の 周波 数 を 入れ 
ます . 53 以 上 の 数 字 を どう ぞ (上 限 は あり 
ませ ん が , あま り 大 きい と 何 も 聞 こえ な く 
な り ま す ). 

Scale: 副 発 振 器 に 主 発振 器 の 何 倍音 を 


出る せる か , と いう 設定 を し ます (小数 も 
入力 で きま す が 。 普通 は 2 一 5 で らい の 整 
数 を どう ぞ ). 


key Ł Scale は , 0 が 入っ て いる と エラ 
ー が で る の で , 最初 に か な ら ず 設定 し て く 
だ さき さい. 
EG: 一 100 以 上 , 100 以 下 の 実数 が 入り 
г 
Memory Write : No. を 選び 名 前 を 付け る 
t, 画面 の デー タ を 記憶 し ます . 途中 で 記 
憶 を 取り 消し た く な っ た ら , 名 前 に 何 も 入 
れず に [RETURN] キー を 押し て くだ さい . 
上 記 以 外 の パラ メー ター は , 説明 を 省き 
ます . 意味 の わか ら な い 人 は , 辞書 で も ひ 


き な が ら 適 当 に 数 字 を 入れ て みて くだ さい . 


すぐ に わか る よう に な り ま す . 

ЗС, PLAY を 選ぶ と, “МАТ” と いう 
字 が 出 て ,。 し ば らく する と 『 ヾ READY” に 
変わ り ま す . それ か ら は 自由 に 演奏 を 楽し 
ん で くだ きい . 
gsc | キー で , デー タ 設定 モー ド に 戻り ま 
+. な おお, PLAY 中 は マシ ン 語 を 呼ん で い 
る の で [BREAK] は 効き ませ ん . 

また だ た, メモ リ Nol に 最低 限 の デー タ が 入 
っ て いる の で , 音 が どう し て も で な い 人 は 


右 下 に メニ ュー が 出 ま す の で デー タ を 使っ て くだ る 
入力 また は 変更 し た い パ ラメ ー タ を 選び , 


a FEE 


デー タ ・ エ リア お よび ワー ク や エリア は 
D800H か ら で す . 


0800—0859 

0870—0892 
0920—0931 

0932 

0936 

0940, 0941 

0943, 0944 


X 1 の キー 入力 は 割り 込み を か け て 行 な 
っ て いる だめ, 一 度 に 1 つの キー し か 読め 
+, 理論 的 に 複 音 シン モ は 作れ ませ ん (1/ 
O イン ター フェ イス を 通し て , 鍵盤 を 外 付 
け す れ ば 別 ). 私 は 前 に ハー ド や シン セ ャ を 
少々 いじ っ て い だ の で , プロ グラ ム も シン 
モ の 構造 に 基づい て 作り まし た . 
参考 文献 
1)* 内 部 サブ ルー チン 活用 法 1? Oh!MZ5 月 号 
2)^ 逆 アモ ンプ ブラ の 作成 と を その 応用 例 ?. Оһ! 
MZ5 月 号 
3)*BASIC-VOICE 6001”, I/O, 83 年 3 月 号 
4)" X1 全 回 路 図 ", 1/О, "83 年 6 Н> 


h, プラ スタ を 打ち 続け る と 隠れ メッ モー ジ が 出 ま す (10Р+5). Р.5.2. スペ シャ ル ・ フ ラッ グ は 4 箇所 ある スペ シャ ルフ ラッ グ ・ ジ ゾー ン 


を プラ スタ ー で 打つ と 出現 し ます (フラ ッ グ は ゲー ム 


ご と に ジー ン 中 を 移動 する ).P.S.3. 


て は 破壊 で きま せん ).PS. 4.. エ リア 7 の 2 つ 目 の グロ プ ブダ ー は 10,000p 十 s. СТ. 


ン ル は 全部 で 44 本 あり ます (全部 出せ る が 、 す べ 


(RIN) 


101 


リス ト 1 モノ フォ ニッ ク ・ シ ン セ BASIC UZ Һ WI 


LICK OFF:INIT:WIOTH 88 


&HD800:REPEAT OFF: 
110 GOSUB 796 
120 GOSUB 140 
130 GOSUB 420 
140 60508 900 
150 GOTO 136 
168 CLS:CSIZE 2 
170 PRINT#0, ーー  "; 
180 PRINT#9, "| SYNTHESIZER 91.0 М 
190 РАТМТНО, "| Бу 2% ЧЕ з 67/21 у 
200 PRINTHO, ーーー و«‎ 
210 PRINT 
220 PRINT" — Main Oscillator ——— T г Envelope Generator ーー つつ" 
238 РКІМТ" | I 
240 PRINT"I И 
250 РАМТ" | ЕГІ I5 
ba 
I 
| 


260 PRINT" | 
270 PRINT" | 
280 PRINT" | г-- Low Frequency Oscillator — 
290 PRINT" ト ーーーーーーーーーーーーーーーーーーーーーーーーー | 
308 PRINT" — Sub Oscillator 1 и 
310 PRINT" | 
320 PRINT" | үз 
339 PRINT" | h 
340 PRINT" —  " Y " 


350 PRINT"ーー Sub Oscillator 2 —eÀl O > —ə—a." 


360 PRINT" | |" 
370 PRINT" | 1" 
380 PRINT"I |" 


З?@ PRINT" ーー y.N" 

400 FOR Ізі TO S:FOR J=1 TO Q(XI):LOCATE HCI, J), ЭСТ, JD :PRINT N$(I, JD iNEXTINEXT 
410 RETURN 

420 CONSOLE 14,11,37,43:CLS:PRINT 
430 PRINT" Main oscillator 


t 
440 PRINT" Sub oscillator 1 tias 
450 PRINT" Sub oscillator 2 Ж, 
460 PRINT" Envelope Generator 14" 
470 PRINT" Low Frequency Oscillator : 5" 
480 PRINT" MEMORY : 6" 
490 PRINT" PLAY t SPACE KEY" 


S00 K$=INKEY$(1):BEEP 

510 IF К%-" “ THEN RETURN ELSE IF К$="6" THEN GOSUB 1000:GOTO 420 

520 K1=VAL (K$): IF K1<1 OR K1>5 THEN 420 

530 GOSUB 540:60Т0 420 

548 CLS:PRINT 

550 FOR I=1 ТО ОККІЗІРБІМТ TAB (45) ; МФ (КІ, ID $ TAB (58); ": "j IE NEXT 

568 PRINT" MENU :5РАСЕ KEY" 

570 K$=INKEY$(1):BEEP 

588 IF К$=" " THEN RETURN 

590 K2=VAL (K$):IF К2<1 OR K2>Q(K1) THEN 540 

6088 D=D(K1,K2):PRINT"NO. ";K2;" DATA :";D(K1,K2);:INPUT"- ",0 (КІ, К2) : ВЕЕР 
618 GOSUB 420:60Т0 540 

620 IF Kl=1 AND K2=1 THEN 730 

638 IF K1=2 АМО K2=1 THEN 740 

648 IF Кі-З АМО K2=1 THEN 750 

650 IF Кізі АМО K2=4 THEN IF D(K1,K2)<-100 OR D(K1,K2)>100 THEN 780 ELSE 760 
660 IF D(K1,K2)<@ OR D(K1,K2)>100 THEN 780 

678 H1=H(K1, K2)x8+110:H2=H1+ABS (D (КІ, K2) ) V1 =V(K1, K2) Ж8+2:02 =01 +3 

é80 91-9(К1,К22ж8ж2: 92509143 

690 LINE (НІ, V1) - (Н1+100, V2), PSET, 0, BF 

700 IF D(K1,K2)=0 THEN RETURN 

710 LINE (H1, V1) - (H2, V2), PSET, é, BF 

720 RETURN 

730 IF D(1,1)<53 THEN RETURN ELSE CONSOLE:LOCATE 26, é6:PRINTUSING"H#HHHHzZ"$D (1, 1) 1 
CONSOLE 14,11,37,43:RETURN 

740 CONSOLE:LOCATE 26, 14:PRINTUSING "НН"; О (2, 1) :СОМЅО Е 14,11,37,43:RETURN 
758 CONSOLE:LOCATE 26, 19: PRINTUSING "ни" ;0 (3, 1) :СОМЅО Е 14,11,37,43:RETURN 
768 CONSOLE:LOCATE 14,9:1Е D(1,4)>=0 THEN PRINT#0, "+" ELSE PRINTW80, "- 

770 CONSOLE 14,11,37,43:GOTO 679 

780 D (K1, K2) =D: RETURN 

798 ОІМ N$(S, 5),Н (5, 6), (5, 6), D(5, 6), 0 (5), M$ (6), MG, 5, é) 

800 RESTORE 1180 

810 РОК 1=1 TO é:READ N$(1, DD :H(1, 1) =4:0(1, 1) =S+I:NEXT 

820 FOR I=2 TO 3:FOR J=1 TO 3:READ МФ (І, JD :H (1, Ј) =4:0 (1, J) =Ix5+J+3:NEXT:NEXT 
830 FOR I=1 TO 4:READ № (4, 1) :H(4, 12 =40:0 (4, ID =5+1:МЕХТ 

848 МФ (5, 1)="Late":H(5, 1) =40:0 (5, 1) =12 

850 01) =6:0 (2) =3:0 (3) =3:0 (4) =4:0 (5) =1 

848 FOR І-%Н0870 ТО &HDS?F:READ N も :POKE І, VAL ("&H"+N$) NEXT 

870 FOR Ізі TO 5iFOR J=1 ТО 01) :READ М1, І, J) :NEXT: NEXT 

880 МФ (1) ="Standard" 

890 RETURN 

900 CLS:LOCATE 40,18:COLOR 2:С512Е 2:РАТМТНО, "WAIT ":COLOR 7 

910 FOR 1=1 TO 48:А= (2^ (10-1) /12) /р (1, 1) ж125ж1000) :В=А:С=ВҰ254:РОКЕ &Н0800+1ж2- 
1,С:С=В MOD 254:РОКЕ &Н0800+1ж2-2,С:МЕХТ 


920 POKE &HD°?20, 0, APT 2.0.3. 0.4. 0.5.8. 
930 POKE &HD?32, 0, D (5, 1) ж2, 54%1,1,1,0,1 


+1,0 (4,2) ж2, 54+1,0 (4, 4) ж2, 54+ 


ゆ ゅ マイ コン を し た ら 受 験 勉強 が で き な い , 受験 勉強 を し た ら マ イコ ン が で き な い .。 どう この 山 を 乗り 切る か ./ 今 ま で は 両立 で きた の だ が . 
PI, だこ さよ で ろ ま まま SIMO (IMO の か すま き ) 


リス ト 1 モノ フォ ニッ ク ・ シ ン セ BASIC !) Z F 
1,3, 15,0 (4, 3X. 14, 0 
940 POKE &HD?42, 128/ (D (1,2) +1) 
950 IF D(1,4)>=0 THEN D=D (1,4) ж1. 27 ELSE D=D (1, 4)x1. 27+258 
940 POKE &HD?50,D (1, 3X2. 55,0, 128/0 (2,1), 128/0 (3, 1), 0, 0,0 (1, 6) жі. 28,0 (1, 5>ж1.28, 
о ‹2,3) жі. 28,0 (2,2) жі. 28,0 (3, З) жі. 28,0 (3,22ж1.28 
970 CLS:BEEP:LOCATE 480, 18:COLOR 5:С512Е 2:РЕІМТНӨ, "READY":COLOR 7 
988 SOUND 7,&B11111000:CALL 8НЕ1Е0:500М0 7,8811111111 
990 RETURN 
1008 CLS:PRINT 
1010 PRINT" MEMORY WRITE R 
1020 PRINT" MEMORY READ т 2" 
1939 РКІМТ" МЕМУ :ЅРАСЕ KEY" 
1048 K ま =INKEY も (1) 
1050 IF КФ-" " THEN RETURN ELSE IF КФ-"1" THEN 1060 ELSE IF КФ="2" THEN 1120 ELS 
E 1000 
1068 CLS 
1078 FOR Ігі TO «іРБІМТ" “1%” "МФ СІ) :МЕХТ 
1080 INPUT" MEMORY NUMBER :",М:1Е №1 OR N> る THEN RETURN 
1090 М%=" ": INPUT" MEMORY МАМЕ 1", M$: IF M$="" THEN RETURN ELSE M$ (N) =МФ 
1100 FOR 1=1 TO 5:ҒОК Ј=1 ТО @ (1) :M(N, 1, J) =D (1, J) : NEXT! NEXT 
1110 RETURN 
1120 CLS:PRINT 
1130 FOR Ізі TO &:РКІМТ" рт "МФ СІ) NEXT 
1140 INPUT" MEMORY NUMBER 1", М:1Е NCI OR М>6 THEN RETURN 
1150 FOR Ізі TO S:FOR J=1 ТО Q(I):D (I, J) =MCN, І, J) : NEXT: NEXT 
1160 FOR Кісі TO S:FOR K2=1 ТО Q(K1):GOSUB 620:NEXT:NEXT 
1178 RETURN 
1180 DATA Key, Portamento, Vibrato, EG, Tremolo, Level 
1198 DATA Scale, Tremolo, Level 
1208 DATA Scale, Tremolo, Level 
1210 DATA Attack Time, Decay Time, Sustain Level, Release Time 
1220 DATA 8$, 31, 51, 32, 57, 45, 34, 52, 35, 54, 34, 59,55, 38, 49, 39, 4F, 50, 20, 40, SE, SB, SC, 9 
8, 60,21, 71, 43, 77, 65, 24, 72, 25, 74,26, 79, 75, 28, 69,29, éF, 70, ЗО, 60, 7E, 78, 7С, 12 
1230 бата 226, ð, 0, ð, 9, 100, 2, 0, 0,3, 0, в, в, 0, 108, в, в 


БАТА2А,27,99,22,1В,99,11,Ғ8,ЕҒ,19,22,27,99,3Е,097,52 
ОАТА29, 90, 3E, OD, CD, С7,26,С0,07,8Е, C3, ВЕ, 8D, ЗА, 29,90 
РАТАЗС, ЕЕ, ©8, 28, 06, 32,29, 90,C3, BF, BD, 2A, 27,90,22,18 
DATA90, 11, 9 日 。 00,19, 22, 27, 9O, AF, 33, 29,90,18, D4, 2A, 27 
DATA?G, 22,1E,90,11,F8,FF, 19,22, 27,90, ЗЕ, OD, CD, C7, 26 
DATACD, D7, 8F ,C3, BF, BD, 2A, 27,90,22, 1B,90, 11, 08,00,18 
DATAEG, ЗЕ, Өр, CD, C7, 26, 2A, 27,90,22, 1B, 90,CD, D7, BF,C3 
DATAGF ВС, CD, D7, ВЕ, C3, OF, 8C, 2A, 27, 90, CD, 4D, ВЕ, ЗЕ, ЗВ 
DATACD, C7, 26, ЗА, 29,90, 3C, 47,7E, 23, CD, 68, BF, 3E, 20,CD 
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筆者 の 所 属し て いる サー クル を 紹介 する . Ж 
葉 大 学 絵画 同好 会 ど で あ る. 御覧 の と お り の 悲惨 
な サー クル で ある 。 


集まれ マイ コン 仲間 / 


太 さ ん 


野村 


新 製品 ラッ シュ , 新 技術 ラッ シュ の 昨今 の 事 
情 に つい て いけ ず 、 の ん びり マイ (Our) ペ ー ス を 
決め こん で いる 3 人 で す . 前 列 向 か っ て 左 か ら 6 野 
Н. 植田 、 後 方 は も う 1 人 の 上 田 、 PC-9801. 
FP-1100 等 を 愛用 中 . 


宮内 博史 さん 


我 が 高校 の VIC ユ ー ザ ー. 左 か ら ゲ ー ム 製作 中 
の 渡辺 孝幸 。 その 隣 は 、 ロ ボット の 手 を 作っ て 
VIC で 動か し て よろ こん で いる 山崎 克也 . そ の ま 
СМ, ゲー ム 作 り と VIC で の 音楽 演奏 を や っ 
て る 宮内 博史 。 最後 は VIC で の CG に 挑戦 し て い 
る 久保 貴 嗣 。 

以上 4 人 は VIC の 可能 性 を 最大 限 に 活用 し ょ 
うと 日 夜 努 力 し て いる の で す . これ を 読ん だ VI- 
CC ユー ザー よ , も っ と 自分 の コン ピュ ー タ を 見 な 
お そう じゃ な いか ! (10 月 30 日 文化 祭 に て ) 


ラン ダム ハウ ス の 新作 ゲー ム 
『CHANGER』 の 作者 


変態 お じ さ ん が 唯 ちゃ ん に 前 いか か る と いう 
ちょ っ と 異常 な ゲー ム . この 作者 は どん な 人 か 
な ? 実は この 2 人 だ っ た ん で すね (S) 


その 中 で 自分 の スペ ー ス ・ シ ッ プ が 活躍 し 飛び 回 る の だ か ら た ま ら な い . 
<š. いや は や 芝 し い ゲ ー ム が で きだ た 6 も の で すね 


ー か ら も 続々 と 出 て くる で し ょ う . 


見 まし た か !? SEGA の 『 ア スト ロン ・ ベ ルト 」 | 目 の 前 に めちゃ くち ゃ 美しく リア ル な 宇 


ХЦ, な ん と レー ザー ディ スク の 画面 を 合成 し て 使っ て いる そう で す . な ーー る ほど . 


海 が 好き 


被写体 を ご 紹介 いた だ た し まし ょ う 。. ЖЭБЕМ- 
ТОЛ, 27 VORR, LEAD の スー パー DX | 
海 が 好き / の 私 で す . 

私 の VIC も どう や ら 寿 命 の よう て で 。 シフ トモ と 
コン トロ ー ル キー が ぶっ こわ れ て し まい まし た 、 
これ を 直す の に いく て くら か みか る ん で し じょう か . В | 
葉 原 は 速い いな あ . | 


河内 健二 さん (写真 を ) 

第 1 号 完成 ふと 気がつく と 。 所 間 か ら の 
逃 避 で 始め ゅ た マイ コン も 仕事 に な っ て し まっ ろ っ 
味気 な いよ ー/ それ で も ゲーム は ゲー (F 
りな が ら 楽 し ゆめ た の ど し た . 


石塚 一 郎 さ ん (SAS) 
現在 埼玉 医科 大 学 在学 中 、 自 動車 ラリ ー・ 軽 
音楽 ・ ラ ジュ ン と 、 ЖЖ. ЕС, 
今回 マイ コン の 味 を 覚え て し まい , つい に 学校 | 
へ 通う 時 間もなく な っ て し まい まし た . | 
※CHANGER は 0."83 年 12 月 号 に 掲載 され て いま す 。 | 


また コム バッ ク か 5 \4.000(〒500) で 発売 きれ で いま | 
す . お 問い 合わ せ は 容 (03) 375-3401 失 コム パッ ク ま で | 


宙 空 間 が 広がり , まる て 映画 の よう で ある , 


お まけ に 爆発 する と 座っ て いる シー ト が バイ プレ ーション する と き 
. 果たし て どう や っ て こん な 写真 の よう な 画面 を リア デル ・ タ イム で 動か し て いる の か と 思 
お そら く 今 後 こ の よう な タイ プ の ゲー ム が ほか の メー カ 


( げ え むふ り いく) 


MZ-700 


S-BASIC 十 マシ ン 語 


MZ-700 が 発売 され て か ら 早 いも の で も 
Э 1 年 に な っ て し まい まし た . 最近 MZ-700 
の 記事 や , リス ト の 紹介 な ど が 少な く な っ 
て きた と 思い ませ ん か ? 

そこ で , 私 も 1 人 の MZ-700 ユー ザー と 
し て 『 モ ンス ター ガム 700, %, 全国 の 
М2-700 ファ ン の 皆さん に お 届け し ます . 
寒い 冬 の 夜 , 温か い コ ー ヒ ー を 飲み な が ら , 
モン スタ ー ガム で お 楽し みく だ さい . 

k 


AJ 実行 方 法 
方 
v 
ЁЎ, BASIC プ ログ ラム を 入力 し て くだ 
きい. そし て セー ブ が 終わ っ たら, BYE |СЕ 
と し て , МВООО [СВ と し て か ら マ シン 語 


を 入力 し て くだ きい . 終わ っ た ら , $8000 
СЕРЕ BC1O: モ ンス ター ガム ZOO[CR 


を 早く 殺し て 面 を クリ ア し て くだ さい 、. 
と ころ で , Mr.Y の 武器 で す が , [2] [У 
で キノ ュ を 左右 に 出し ます ( 図 2). それ で 
図 1 キャ ラク タ 


s.s... 
г m sm мо 
"бз ала aa аа 


Я bh ダグ ダク ン バー バー パー ビル ク Mr. Y 


ガム を 殺し て 〈《 だ きい . し か し ,。 キノ コ は 
右 下 の 方 に 紫 の O.K. マ ー ク が 出 て いな いと 
出せ ませ ん . 

KU, 武器 と は いえ ませ ん が [SPACE] キ 
ー で 壁 が で きま す ( 図 3). この 壁 は 使い 方 
次 第 で いろ いろ と 役に立つ で し ょ う . これ 

図 3 MrY の 武器 ( 壁 ) 
¥ [SPACE] キー を 押し た と き に 部 分 が 壁 と な り ます . 


E CELIS, 

書き 忘れ まし た が , BASIC プ ログ ラム の 
モー ブ が 終わ っ て も RECORD PLAY } 
ボタ ン は その まま に し て お いて くださ きい. 
BASIC プロ グラ ム の セー ブ は , SAVE “Ж 
ンス ター ガム 700” と し て くだ さい . 

実行 方 法 で す が , LOAD* モ ンス ター 5 
ム 700” [CR | と し て くだ さい . ロー ド が 
終わ っ て も PLAY | ボタ ン は その まま に し 
て お いて [WI| を 押せ ば O.K. で す . 

ЗЕНА 


САМЕ の 説明 


最初 に タイ トル が 表示 され 音楽 が 流れ ま 
3. 曲 が 終 わっ た ら [SPACE] キー を 押し て 
くだ さい 。 すると, すぐ で に ゲー ム ・ ス ター ト 
ОЗ. 

あな た だ は 画面 中 央 下 に 出 て いる 丸い カプ 
+ [t| は | | | きっ | で て で, 上 下 左右 に 動か し 
て 全部 の モン スタ ー に ぶつ か ら な いよ うに し 
て くだ きい (モン スタ ー と 重なる と 死に ま 
す が , 触る ぐら いな ら 死 に ませ ん ). 

各 面 に 5 匹 が へ と いう モン スタ ー が いま 
3. その が ガム と いう モン スタ ー を 1 匹 残ら 
ず 殺 せ ば 1 面 ク リア と な り ま す . 

(ер, ダグ ダク ン , バー バー。 00—60 
ルク ( 図 1) と いう モン スタ ー が 出 て 邪魔 
を し ます . ELT. その 3 種 の モン スタ ー 
は 殺せ ませ ん か ら , ガム と いう モン スタ ー 


x I の 部 分 は 通れ ます が , 通っ て いる 間 は 点滅 し ます . 


も 右 下 の 方 に 水色 の О.К. マー ク が 出 て い 
な いと 出せ ませ ん . そし て , 一 定時 間 が だ 
つと 壁 は 消え て し まい ます 。 

735, O.K. マ ー ク に つい て で す ヵ ゎ + 
ュ を 使え ば 紫 の O.K. マー ク は 消え ます が , 
一 定時 間 が た つと また 出 ま す . 壁 の 場合 も 
同じ で す . Mr.Y は, キノ コ に ぶつ か っ て 
も 死に ませ ん か ら ご 安心 を . 


ЖАСООСУ キノ コ を 1 回 出す 
と 5 点 , 壁 を 1 回 出す と 10 点 ガム を 1 匹 
殺す と 20 点 で す . 

ボー ナス 得点 に つい て は , 各 面 を クリ ア 
する ご と に 100 点 プ ラス され , 毎回 変わ っ 
た だ 音楽 が 流れ ます . つい で に , Mr.Y は 5, 
10 面 に 1 人 プラ ス さ る され ます . 


ガム を 1 匹 だ け 残 し て , キノ コ , Erk 
当 に 出す こと で す . そう すれ ば だ いた い 高 
得点 に な る で し ょ う . 

し か し , その 方 法 は あく まで も 他 の 3 種 
の モン スタ ー が 少な い 場 合 に 有効 で す . ま 
X, どう し て も 高 得点 を と り だ た だい 場合 は , 


図 2 Mr.Y の 武器 (キノ コ ) 


oO ガム が 進む 方 向 「 < 
ож-%/а 
Oo ガム が 死ぬ 場合 
өө 
O ガ ム が 死な な い 場 合 
000000 
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(ルッ 


ある ちょ っ と し た 方 法 を 使い ます (だ だ し 
9 面 ま で し か で きま せん ). 

その 方 法 と は , 一 番 下 に いる ガム を 殺し 
СУЕТЕ, ыт 
な ど を 適当 に 出し 続け て いる こと で す . モ 
ンス ター は 絶対 に 近づき ませ ん (ガム の 他 
は ). つ いで に 画面 に は 出 ま せん が 。 ある 一 
定時 間 が 過ぎ る と Mr.Y が 死に ます か ら 気 
を 付け て くだ さい . 


で すし 
それ ほど マシ ン 語 を 使わ な か っ た の で 人 今回 
の プロ グラ ム は めちゃ くち ゃ に か ら ま っ て 
(іс, それ に マシ ン 語 の サブ ルー チン を 
記録 し て お いた 紙 半 分 を な くし て し まっ た 
ос, あと 半分 の マシ ン 語 サ プ ブルー チン は 
公開 で きま せん で し た ( 喪 1). 

それ か ら , BASIC で 使う 変数 を チェ ッ ク 
し て いた の で す が 。 こん が ら が っ て し まい 
表 に で きま せん で し た だ た. すみ ま へ ん . 

と ころ で , マシ ン 語 プロ グラ ム は 壁 を 消 
+, 面 に 応じ て XY 座標 や Mr.Y な ど を 消 

これ だ け キ ノコ を 置い と け ば 安心 ? 


$, 捕まっ た か の 判定 . が ム は 0 匹 か , Ж 
初 の タイ トル カラ ーー 表示, САМЕ UP, 
音楽 , 変数 を し まう , etc. な ど に 使い まし 
Т 

BASIC プ ログ ラム は , それ ら の マシ ン 語 
サブルーチン を BASIC と リン ク し て 使っ て 
СТ. マシ ン 語 の 音楽 は 。 ゲー ム を や っ 
て いる と き に 鳴っ て いる 音 で す . マシ ン 語 
の 音楽 を 使う と BASIC プ ログ ラム の 早 き に 
は 影響 し な い 長 所 が ある の で 使い まし た . 
あたり まえ か な ?. 

マシ ン 語 に つい て は , まだ 改良 を 加え ら 
れる よう に 作っ た だ たため, まだ まだ 省け ば 省 
ける ルー チン が いく つか ある よう で す . 

HN, オー ル ・ マ シン 語 プ ログ ラム は 作 
れず , や は り BASIC プ ログ ラム に 助け られ て 
いま すか ら , BASIC プ ログ ラム も 無駄 な 部 
分 が ある よう で す . それ か ら BASIC プ ログ 
ラム は 少し 暗号 化し て ある 所 が あり ます . 

ROSS 


2 == 
最後 に 
Y 

この ゲー ム は な か な か 飽き な いで , か な 
り 楽 しめ る ゲー ム だ と 思っ て いま す . 

な る べ で く キャ ラク タ の 動き を も リアル っ ぱ ぽ 
く や ろ うと 思っ て 作っ た ゲー ム で す が 。 š 
だ まだ の まう で すま こる T= 
は 14 面 が GAME UP で す が , まず いけ な 
いと 思い ます . いけ だ ら PiO PiO な ど で 
報告 し て くだ さき さい. つい で に この ゲー ム を 
や っ て の 感想 。 Your Score, バグ な ども 
ご 報告 し て いた だ ける と 誠に うれ し い の で 
す が . 

まだ MZ-721 を 買っ て 8 箇月 あま り で 
マシ ン 語 も この ご ろ わ か る よう に な っ た 初 
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心 者 で す が , また 新しい ゲー ム を 作る 子 定 
‚| 17705 
で す (し か し 受験 が 真 近い ). O 


ЖІ マシ ン 語 サブ プ ブルー チ ン に つい て 


М.Ү を 消す 
モン スタ ー を 消す 
Mr.Y を 表示 
死ん だ Mr.Y を 表示 
ダグ ダク ン を 表示 その 1 
Ж 
” 3 
その 1 
り 22 
” 3 
その 1 
ws 
п 3 
その 1 
” 2 
ダグ ダク シン 
バー バー 
バー ビル ク 
キノ コ を 左 に 表示 
п ая” 
Mr.Y 上 に 行く 
"СК" 
ng n 
"ж w 
モン スタ ー 上 に 行く 


面 に 応じ て X, VÆR 
壁 を 消す 
両側 の 白い 壁 を 表示 
捕まっ た か 調べ る 
調べ る 

n 
ガム = 0 か 
最初 の タイ トル 


etc. 


LIN 
ぅ 0 60SUB1421 GOSUB1 36: GOTO21 


$ 05К(%8600): GOSUB24: USR( $B6O7 > : RETURN 
4 058 <$8618>:6051824:15К ($8617 >: RETURN 
5 USR($B629)! 5050624: USR( $В627 > : RETURN 
6 USR〈$B639〉! 6051824: USR($B637) : RETURN 
7 05К(%В640):8051/829:1/5К(%86472: RETURN 
8 USR($B659)』 6050629: USR( $В657 > : RETURN 
9 USR〈$B669)』 5050634: USR( $B667) : RETURN 


10 GETA$: ТЕЯ$ =" "ТНЕМ20 
11 USR($B040) 


12 T=T-1:IF(R$="Z")*(T<1)THENUSR($B2B0):SC=SC+5: T=35: МЫЅІС"+С0+6": 807020 
13 IF(R$="X")*(T<1)THENUSR($B2D0):SC=SC+5: T=40: MUSIC"+CO+A" : 607020 

14 IFR$="ü"THENUSR($B300):G0TO18 

15 IFA$="B" THENUSR( $B33O) : GOTO18 

16 IFR$="8"THENUSR(#$B360):GOTO18 

17 IFA$="g"THENUSRC ま B399): 807018 


18 (6К(%В9602:05К8(%Б9В02: Н=РЕЕК<$В02Е >: IFA=1 THENUSR ($472: 60Т076 


19 IF(R$=" "y*(T1<-90)THENT1I=?5:UU=1:SC=SC+10:MUSIC"-F@-FƏ0":60SUB72 

20 USR($BD59) 』 USR($B989) : RETURN 

21 GOSUB18:G0SUB124:T=T-1:T1=T1-1:IF(T1<10)*(UU=1)THENUSR($B850):UU=2 

22 CURSOR さ く 。 13: РЕТНТ$С: 60508129 

23 GOSUB124:FORK=1TOKK:GOSUB10:R=INT(RHD(1)*Z)+1: ONAGOSUES, 4,5, 6,7, 8, 9: НЕХТК: GOT 


059 
24 USR($B060):USR(f$BRE0) 


25 ONRGOSUB26, 27,28:GOSUB10: RETURN 


26 05К(%8220):05К(%В0С02: RETURN 
27 USR($B220) : USR( $BOEO) : RETURN 
28 USR($B220) : USR($B100) : RETURN 


29 USR($B060):USR($BRE0) 


30 ONRGOSUB く 1 » 32, 33: GOSUB1 0: RETURN 


31 USR($B250) : USR($B1 20) : RETURN 
52 USR($B250) : USR( $B1 40) : RETURN 
33 USR($B250) : USR($B160) : RETURN 


54 USR($B060):USR($BRE0) 


Ж 


P なんと, LEVEL 3 MARK 4 が あっ た の で す !! これ は ぼく の 友 達 の 友達 か ら 聞 いた (直接 開い た わけ で は な い ) OTT», 秋葉 原 で 見 か け 
KESIT. それ も な ん と 色 は GREEN だ っ た そう で す . P.S. マク ロス ー 今 年 の 夏 十 新 作 三 見 に 行く / と いう 式 を みん な で 覚え まし ょ う . 
(P.S. と は Perfect ソ ル ジ ャ ー だ と 信じ きっ て いる Pー ニ こん ) 


Рю 


モン スタ ー ガム 700 BASIC U АР 


リス ト 1 


35 ОНК605М836, 37, 38: GOSUB1 0: RETURN 

36 USR($B280):USR(f$B180):RETURN 

37 05К(%8280):05К(%В10802: RETURN 

38 USR($B280):USR(#$B1C0):RETURN 

39 T=T-1:T1=T1-1:TT=TT-2:GOSUB10 

40 IFT<1THENCURSOR33, 20: РКІНТІ2,01"0.К": 607042 

41 СИК50К33,20:РКІМТ" 5 

42 IFT1<-90THENCURSOR33,21:PRINT[S5,01"0.K":G0T044 

45 CURSOR33,21:PRINT" "sG0SLIB10 

44 USR($BE00):FORJ=1TO3:PC=0:PC=INT(RNDC(1)*5)+1:0N РС 8050845,47,49,51,53:МЕХТ/: 
805118124: 6050818: 601068 

45 C=PEEK〈$B921 > : IFC=2THENUSR($B5Hg)』 6050655: USR($ESA7 ) : RETURN 

46 605081530: RETURN 

47 C=PEEK( $6022): IFC=2THENUSR ( $BSB0): 6050855: USR #6587) : RETURN 

48 GOSUB131:RETURN 

49 С-РЕЕК(%В0232:ІҒС-2ТНЕМЦ5К(%85С02: 60SUB55: USR(#B5C7):RETURN 

50 GOSUB132:RETURN 

51 C=PEEK($E024): IFC=ZTHENUSR ( $BSDO) : GOSUBSS: USR($B5D7):RETURH 

52 GOSUB1 33: RETURN 
53 C=PEEK〈$Bg25)』 IFC=2THENUSR〈$BSE9) : GOSUBSS: USR( ま BSEZ) : RETURN 

54 GOSUB1 34: RETURN 

55 GOSUB1 29: 6050810: 05К<%В0602: В=ІМТ‹КМО 1 )ж4)+1:0Н В GOSUBS6» 57, 58, 59: 601068 
56 USRC$B3CA): RETURH 

5? USR($B3F0):RETURN 

58 USR($B480):RETURH 
59 USR($B4E0):RETURH 
60 ІҒШ2480508124 
61 ІҒТТ<ӨТНЕН?6 
62 С-РЕЕК(%В02Ғ):ІҒС-1ТНЕМРОКЕФВО?2Ғ, 2: GOSUB135』 РОКЕЗВО20+РС, 1:5С-5С%20: RETURN 
63 R=INT<XRND(1)*3)+1:USR($BD00) 
64 8050В10:0М А GOTO 65,66,67 
65 USR($B1E0):USR($EE00):RETURN 
66 USR(#B299) : 60SLIB 10: RETURN 
67 USR($B1E0):USR($BE00):RETURN 
68 USR($B960):USR($B9B0):R=PEEK($B02E): IFA=1 THENUSR ($475: GOTO7E 
69 GOSUB124: USR($BB さ 9) : Я=РЕЕК <$В628> : IFA=1 THENUSR( $472: 507092 
70 60501818: IFW>?GOSUB1 24 

71 607021 
72 КЕ5Т0КЕ?4:05К(%47) 
73 FORJ=1TO011:RERDX,V:POKE$D000+X+V*40,$SR:RERDX, Vs P0OKE#$D000+X+V*40, $5A: RERDX, V: 
POKE$D800+X+Y*40, $EF : RERDX; V: POKE$D0008+X+V*48, $EF : NEXT J: RESTORE 126: RETURN 
74 DRTR13,7,13,8,14,7,14,8,10,11,10,12,11,11,11,12,12,11,12,12,19,7,19,8,20,7,20 
»8,21,11,21,12,22,11,22,12,25,11,23,12,7,15,7,16,8,15,8,16,16,15,16,16,17,15 
75 DRTH17, 16,25, 15,26»15,25,16,26,16,11,19,11,20,12,19,12,29,13,19,15,20,20,19,2 
0,20,21,19,21,20,22,19,22,20 
76 M=M-1:TEMPO7:USR($47) 
7? FORI=1T03:USR(#B080):MUSIC"-E@R-FƏR9" :USR($B0R0):MUSIC"-EQ@R-FƏR9":HEXT 
78 USR($B8R0):TEMPOS:MUSIC"DSESGSB6G3ESR1D3SE3SG38RGG3ESR1D3SE3G3B6G3B3+C3+DS+C3B3G 
Ты 
9 IFH=9THEN82 

89 GOSUB1 11: 6050681 : GOT021 
81 C ま = "0000000" : CURSORSS, 18: PRINTLEFT#<(C$,;M-1):RETURH 

82 R$#="k G AME O UE R ж 
8$ FORI=1T019:CURSOR8,11:PRINTLEFT$<R$,I):TEMPO7:MUSIC"-CR3+CR3":HEXT 
84 MUSIC"R9R9+R+B+R+B+E+F":CLS 

85 CURSORS, 8: PRINT"TRY AGAIN [Y/N] ?" 
86 GET A$:IFA$="N"THEN CLS:CURSORƏ,Ə:PRINT"BV BE": MUSIC"+AGR+AORIR": CLS: LIMIT MA 
X: CLR: МЕШ: USR( $472 : END 
87 IFA$="Y"THEN90 

88 GOTO86:REM SHARP MZ-700 BV 3297 キリ シタ 

89 TEMPO7:FORI=1TO7?:COLOR;,0,I:CLS:MUSIC"+G0-G0":HEXTI:COLOR,,7,;@:CLS:CLR:R#$="* 
E N D *":FORI=1T09:CURSOR13,7:PRINTLEFT$<(R$,I):MUSIC"-BR2+BR2Z":HEXTI:POKE#$C040,0 
:MUSIC"+AQ+AQ" : 607084: REM: REM: REM: REM 
90 IFHI<SCTHENHI=SC 
91 GOSUB1 09: 601021 


92 MUSIC"RƏ9R9":CLS:PRINT:PRINT:PRINT:PRINT:PRINT" =—А—А ШОКК 
$47) 

95 РКІНТ" Б 

94 РКІНТ" жш” = д ж" 


I 
I 
95 PRINT" I 
96 PRINT" | VOUR SCORE + |" 
92 PRINT" I ү” 
98 PRINT" | < み ス +100 I" 
99 PRINT" | 
100 PRINT" | ШЕ 
101 PRINT" ЕЕ I" 
102 РКІНТ" | ДЫ 
105 PRINT" ニニ テー ニニ ニャー ニニ ニー 
104 PRINT" | (ғ 
105 РКІНТ" Бека СЕТ N 
106 5С-5С%100: (080605081 44, 145» 146, 147, 148, 149, 150, 151,152, 153,154, 156, 157,158 
107 CLS: GOSUB1 10: GOTOZ1 
108 СІК:НІ-500 
109 GOSUB149 
110 W=W+1 : POKE$B027, W: T=30: T1=-60: KK=PEEK($BD7F+W): IF (W=10) +(W=5) THENM=M+ 1 
111 ҒОКІ-17030:РОКЕ%В000%1,0: НЕХТТ 
112 05К(%В6702:КЕ5ТОКЕ 112:ҒОК 7-1 ТОШж2:КЕНр X:Z=X:NEXTJ:DRTR 8, 1,9,2,6,3,1,4, 1 
»4»4,5,35,6,0,6,9,7,8,7,8,7,9,7,0,7 


107 


Рю 
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115 0-0:0-РЕЕК(%С040): 1FQ=1THEN155 
114 И6К(%472:С010К,,7,0:С15:ҒОКІ-17050: CURSOR1 +1, 4: РКІНТС4, 07"8"; : МЕХТІ: РОКЈ=1ТО 
30: CURSOR1 +J; 23: РКІНТЕ4,021"#"; : МЕХТЈ + 

115 RESTORE116:FORI=1T036: READX Y: CURSORX Y: PRINTC4:01"38":NEXTI:TT=50000 

116 DRTR2,5,2,6,2,7,2,8,2,9,2,10,2,11,2,12,2,13,2,14,2,15,2,16,2,17; 2, 18,2,19,2, 
20,2,21,2,22,31,5,51,6,51,7,51,8,31,9,31,10,31,11,31,12,31,13.31,14,31,15,351,16, 
31,17, 31, 18, 31,19, 31,26, 31,21,31,22 

117 RESTORE117:FORI=1 TOW: КЕЯСХ, У: COLOR, » X» Vs МЕХТІ: САТА? 0,5,0, 5,0.6,0, 4,0, 7,8,1, 
0,7,0,5,0,7,0,4,0,6,0,1,0,3,0,4,0,5,0,6,0,7,0,5,0,5,0,6,0,5.0.4.0,7,0,1.0,7,0,4, 
9,1, 

118 ҒОКІ-17024: СОК50К4%1,7:РКІМТ"Е": :CURSOR4+1, 8: РЕТНТ"#" ; :CURSOR4+I; 11: РАТНТ" " 
$ i CURSOR4+1 12: РЕТНТ"®" ; : МЕХТІ 

119 ҒОКІ=17024: С0К$0®4+1 , 15: РКІНТ "8"; : CURSOR4+I, 16: РЕТНТ"#" ; FCURSOR4+I, 13:РАТНТ" 
№"; :CURSOR4+1, 20: РЕТНТ"®" ; : МЕХТІ: 4$В ($8858 >: USR($B960): COLOR: , 6, Ü 

120 CURSOR9, 1 iPRINT" r ": CURSOR9, 2:PRIHT"I€ 2 RZ 9 - p` 414: СИК50К9, 
ЗІРБЕІНТ" —n k s COLOR, 9 

121 CURSOR33,4:PRINT"HIGH-":CURSOR33,S:PRINT"SCORE":CURS0R3S3, 7: РКІНТНІ; 

122 CURSOR33,10:PRINT"vOUR":CURSOR33,11:PRINT"SCORE":CURSOR3Z,16:PRINT"MR. V": CUR 
SOR33, 23: PRINTW; "x2" 

123 РОКЕЯВд1р, 0: РОКЕ$ВО1Е, 0: 6050681 : RESTORE126: RETURN 

124 REHDH: IFR=1THENRESTORE126:RERDR 

НІ 5В-895000/0:51-ІНТ(58/2562:52-5Ң-51ж256: РОКЕЗВ15,52:РОКЕЗБ16,51:05К(%442: КЕ 
TURN 

126 DHTR1599, 2333, 1500, 2333, 3333, 2500, 3333, 2500, 4900, 4040, 4980, 4040, 2500, 3333, 25 
00, 3333, 4040, 4900, 5000, 6000, 7000, 5000, 6000, 7000, 1 

127 Q=0:Q=PEEK($C040): 1FQ=9THENUSR( ま CZ) 

128 MUSIC"R1R1R1R"iGOTOS9i КЕМ: КЕМ: КЕМ 

129 R=INTCRND〈 1 )* く ) う + 1 POKE$BC ロ 9 К:К-ІМТ<ЕНОс12ж22%1:РОКЕЗВ052,К:К-ІНТ(ЕНО(12ж35)9% 
1: POKE$BCO1 , К: POKE$B92F , 2: RETURN 

130 РОКЕФС015,%С0:РОКЕ%С014,%С08: RETURN 

151 РОКЕ%С015,%С0:РОКЕ%С016,%С0: RETURN 

132 РОКЕ$СВ17, $Е0: РОКЕФСВ18, $Е0: КЕТПЕН 

133 РОКЕ%С019,%40:РОКЕЗСӨ1П» $50: RETURN 

134 РОКЕ$СВІВ, #20: РОКЕ$С01С, #11: RETURN 

135 ОН PPGOSUB1 さ 9, 131, 132, 133, 134: POKE$B003, 0: РОКЕЎЕ004, 0: MUSIC"-F1-C0": RETURN 
136 CLS:CLR: COLOR: ,6,0: ҒОКІ=1ТО25: РКІМТ"#900000000000000000000000000000000000000 
"$ МЕХТІ: CONSOLE1» 23, 1, 58: CLS: ОЕ $С766 > : TEMP07:MUSIC"+RS#+RS#RRSG-F+#E-SE#-B#-R 
45RA4G5-F5+#E##-56#-B#-ASSRZ-G4R-GIR-G4R-GRR" 

137 GET A$: IFA$=""THEN 137 

158 MUSIC"+C+F+C": CONSOLE : CLS 

139 80508108: RETURN 

140 Я$="5НЯКР":В$="У.К":0$="ВУ БЕ" 

141 5С-іЕН(Н%92-5: W=LENCB$)-3: M=LEH(D#)-2:TEMPO7:MUSIC"R3+Fü+E+D+C+E+R":;RETURH 
142 CLS:CURSOR1,?:PRINHT"#p(3"3 080295 カラ PLAYS 127 29997" 

143 LOHD" モ ンス タ 5- De 7@0@0":CLS:MUSIC"+R0+B0+RÑO0+B0+CR9R":RETURH 

144 TEMPO06:MUSIC"B6R0B1B#RR6SRO8R18RBSR4+D6SRO+D1+D+#C6R0+8C1+8C+D9+DS+D1+D+DS+#DS+ 
#61+#0+#05+Е3+Е1+Е1+Е5+#05+#01+#05К@9+Е4К9" : RETURN 

145 TEMPO7:MUSIC"+F?+F4+D6+F6+G6+F6+D?RS+D6+C8R6+D6+CSR6+F7+F4+D6+F6+G6+F6+D?RS+ 
С7+С4+06+С6#Я?7КЭК" : КЕТПЕН 

146 TEMPO7:MUSIC"A4R1AZROAZROE4R 1E ZROEZRO+#C4R1 +#CZRO+#HCZROA4R1AZROAZROE4R1 AZRA+ 
#C2RO+E4R1+#C4R1+E6RI" 

147 MUSIC"A4R1AZROAZROE4R1 EZROEZRO+#HC4R1 +#C2ZRO+#CZROA4R1 AZROAZROE4RIEZROE2ROAE4R 1 
E4R1H6RSR9-C9+H1-GRKSR6 "3 RETURN 

148 ТЕМРО6: МОЅІС "ESDC5DEHGE さ EESDSCDGKSCSDE5GHSHGSEGSGESDC6RK5+C3+C+C5HG3GGSED さ DD5 
C3EG6RSCSDE5G+CHGE3EDSEC6R5R9R" : RETURN 

149 TEMPO06:MUSIC"F1R+C3+C1+C3+C+C+C+C+C#RRGFSRF3RCRFRCRFGRG+C6€R3+C3+D+C#RR#RRGF 3 
RGRR6R3D3RERF6R3":RETURH 

150 TEMPOS: MUSIC"FSF SGAAGA+C+D1 +CASFAZAGRSASAAGFF DDCRF GAG 1 AF SR" : RETURN 

151 TEMPO6: MUSIC"-D4RO-DS-DOR-DZRO-DS-F 4-EOR-E4-DOR-D4-#C1-D?RIR" : RETURN 

152 TEMPO4:MUSIC"C1DER1EDC+C+D+ER1+E+D+CCDER1EDC+C2+D2+D2+E2R2+E2+D2+C6 " : RETURN 
155 TEMPOS:FORI=1TO2:MUSIC"C1+C+E+C+G+E+C+ECR+DR+F+DR+DGB+E+R+G+#F+DB+C+E+CBGFD" 
1МЕХТ: МИ5ІС"С-В3С3-063Е3С363Е3%С5К9ЭК": RETURN 

4 TEMPO7:MUSIC"C1DEFGR4E1FGRBR4G1FB+C+D+ER3+C1ERGFEDR3C3-DE-FG-RB-C+CR7R":RETU 


155 ТЕМРО?:МИ51С"-СК++СЕ-СК+СК":бОТО127 

156 TEMPO?7:MUSIC"E6RƏESRƏE6SRO@F6G88EFƏ9FFDG6RƏ8DGROD6EFSGESEEROE6SRƏ8ESRƏE6GESRSBSR6E3 
RRG6RGRGR8-BC9CCR1+C8B6RG88#FB3BERSG6FES-BC9CCR9FRR1FRFERR" : КЕТПЕН 

157 TEMPO6:MUSIC"+C6B2#R6R2G3F1E3D1C3+C1B3S+C1+DSR1+DSR1+ESF1+ESR1+G2R2+F6+R2+F1+ 
EšS+D1+C3+#C1+DS+C1+D3S+C1R3S+C1+C3+#C1+DS+#C1+DS+C1EB3+C1+D2F2+D4" 

158 MUSIC"+E2R2+E4+64+F4R2+F2+G3+8#G1+R2R2+R3+F1+6G3R1+G4+F4+CSR1R1F1F6R9  :FRETURN 
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НС. P.S.3. МАХ MACHINE の ソフ ト 実 行 中 [SHIPT] + 何 か の キー を 押し 続け る と BREAK が か か る , (MINI BASIC 用 ) ( 愛 王 ) 
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J の ひと り 言 で ある . P.S. 1/0 が ぶ 厚 く な っ た な あと 思い き や 、 9 月 号 か ら だ ん だ ん 薄く な っ て きた で は な いか ./ Р.5.2. XEVIOUS は 面 
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оО) (о) PR, 物申す . マイ コン 族 へ “最近 。 ソ フト の 万 引 を 見 つけ た "と いう 投稿 が 多い よう で す が ,。 そう いう 人 た だ た ち は 我 々 善良 な マイ コン (ナイ コ‏ 
Ол Ол ン も 含み ます よ の ) 族 が 一 致 団結 し て つぶ さる な けれ ば な り ま せん .。 も し, 相手 が 怖い お 兄さん 方 どっ た ら 決 し て 1 人 で ゆく な ど と 大 胆 な こと‏ 
は せ ず , お 店 の 人 に 協力 し て も らい まし ょ う 〆 グ 逆 に 言え ば , 相手 が 小学 生 だ っ た り し て も 自分 と その 他 に 人 が いた ら 次 ませ て か ら お 店 の 人‏ 

112 RÈ に 言う より も , 盗む まえ に 言葉 を か け て あげ まし ょ う . そう すれ ば その 人 は 罪 に だ たり ませ ん ね . どう か ご 協力 を … グ 


(MZ-2200 を 使っ て SHIFT を 押さ ず に BREAK し て 暴走 と 間違え た 人 ) 


< 


PC-6001۰32K/mkIl +EXAS コ ン ッ パイ ラ ROM 


BASIC( コ ン パ イラ ) 


ブロ ッ ク ・ ワ ー ル ド 


BLOCK WORLD 


望月 商 弘 


数 の 国 に 生ま れ た チキ ン く ん は 今日 も 数 
の プ ブロック を 9 個 集 め な いと 家 に 入れ て も 
ら え ませ ん . そこ で , せっ せ と 集 め て いる 
と 悪友 の アオ スケ , アッ カマ ン , タコ くん 
ら が 邪魔 し に や っ て きま し た . 負け る な チ 
キン くん 


っ Cc つ cC つ C つ C つ C つ こつ こつ C つ に つて つ に つつ C つ に うつ に つ に 
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@“How Many Pages ?" に は 2 を 入力 し て 
ぐだ る 

@BASIC プ ログ ラム を せっ せ と 入 力 し て く 
だ る さい. 

ӨЕХЕС &H4OOO に より コン パイ ラ を 起動 
ве 

@“STRING LENGTH ?” に は その まま 

RETURN| キ ー を 押し て くだ さい . 


コン パイ ル が 終わ っ だ た だら も ちろ ん RUN 
で スタ ペー ЕЛ; 
ヨイ ショ 
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ЕВЕ Е 
DC つこ つこ С; T ЕЕ ESER кєт rar инеш шшш теш] 
52505050505 ЕСС СУЕ" 


あな だ ば は チキン て ん を う まく 動か し 。 ア 
オス ケ 。 アッ カマ ン , タコ くん を か わし な 
が ら 1 一 9 の 数 字 プ ロッ ク を 下 に 並べ て く 
だ る さい. 

チキ ン く ん は カー ソル ・ キ ー で 縦横 4 方 


向 に 動き , カー ソル 十 [sSpACE| キー で 目的 
方 向 の ブロッ ク を 押し だ りつ ぶっ た だ た り し ま 
+. 枠 の 各 辺 に 1 箇所 ずつ 赤い 部 分 が あり 
$3. そこ へ 数 字 ゲ ロッ ク を 押し 込む と 下 
Ува, 22122-90” 


ロッ ク が すべ て 並べ ば 1 面 終了 と な り ま す . 


アオ スケ ・ ア ッ カ マン は 半ば 気まぐれ に 
チキ ン く ん を 追っ て きま す . タコ くん は 完 
全 に 気まぐれ で 隣 に チキ ン く ん が いて も ま 
っ た く 無 関心 の と きも あり ます . また , 3 
匹 は 進行 方 向 に プロ ッ ク が ある と , これ ま 
だ 気 ま で れ に プロ ッ ク を つぶ し ます 。 この 
と き 同 じ 数 字 の ブロ ッ ク が 下 の 枠 の 中 に あ 
る と それ も つぶ れ て し まい ます .( あ と 1 個 
と いう と きこ れ を や られ る と と ガックリ). 

アオ スケ だ た ち に プ ブロック を ぶつ ける と ア 
オス ケ と アッ カマ ン は 目 が 消 を えて し ば らく 
休憩 し ます . タコ くん は 数 字 プ ロッ ク に な 
り し ば らく まる と と ョ コッ と 出 で きる ます 。 
プロ ッ ク を 3 個 以上 並べ る と アオ スケ 
と アッ カマ ン が 休憩 する と と も に 数 字 プ ブロ 
ッ ク が 8 個 補充 され ます . また , し ば らく 
の 間 TIME が 止ま り ま す . 
£ po 
пс с n y 2 DRD ig 
く な り , 当初 の TIME も 減り アオ スケ た だ たち 


の 休憩 時 間 も 短 か く な っ て いき ます . た だ 
L, 2 面 ク リア 時 に チキ ン く ん が 一 羽 増え 
37907 


得点 は , 数 字 ゲ ロッ ク を 下 に 押し 込ん だ 
と き と ア オス ケ だ ただちに ぶつ け だ と き に その 
数 字 に 応じ た 点数 (1]…10 点 , [6]…60 点 , 
豆 …100 点 ) が 与 を た られ ます . [ブロッ ク を 
並べ る と 100 点 , また 1 面 ク リア 毎 に 残り 
TIME に 応じ た ボー ナス 点 が 加え られ ます . 
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束 ブ ロッ ク を 並べ る こと が 各 面 を クリ ア 
する 近道 で す . TIME の 減少 も 止ま り ア オォ 
スケ た だ ち も 休 憩 し て くれ る し , 減っ て きた 
数 字 プ ロッ ク も 補充 きれ ま す . (ЖШ? > Z 
は た くる さん ある の で 並べ る の も そう 難し く 
は あり ませ ん . 3 個 並 ん を で いる と ころ へ も 
5 1 個 並 され ば また TIME も 止ま り ま す . 
アオ ォ ス ケ た だ ち が 動 け な い と き に 急い で 1 一 
ав песо E 


a 6 2С 1 же ет ен ШЕЛ 2С ЭС ШЫ 25 
JC ШЕ = DC жее T С ӘС 
С е 


Е Е 
ӘСТЕ ШЕ ЛЕ ЕКСЕ ЛЕ НЕ ЛЕТІН: Өшыл лы] 
ил ший nga Noemi ӘСЕ Eu Әр эже Cm CA FS ma тиз rE] 


いか に コン ンド イラ と 言え ど だ を 。 > E 
ゲー ム に 比べ る と どう し て も キャ ラク 衣 の 
動き が ぎこちなく な っ て し まい ます . 今回 
b, な ん と か 動き を な め ら か に と 苦労 し た 
の で す が い か が で し ょ うか .. 

話 は 変わ っ て , PC-6001MKI が 出 ま し 
たね. 私 も 出張 の 帰り に 大 阪 マ イコ ユン ショ 
ー で 見 まし て ビッ クリ . いよ いよ 和製 アッ 
プル と いう 感じ で す . そろ そろ 上 位 機 種 に 
乗り 換え よう と 考え てい だ の で す が ウ ー ン 


と ころ で 書き 忘れ まし た が 。 この ゲー ム 
で は 1 万 点 以上 出す と スコ ア 表 示 が お か し 
く な り ま す . も っ と も 作者 の 私 で き ぇ 6,000 
点 が や っ と . 1 万 点 目指 し て が ん ば っ て く 
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1 КЕМ HH ¥ FF E FF FF FE FF ЗЕ 
2 РЕМ ж BLOCK WORLD ж 
3 REM ж A&Y SOFT NO.3 +# 
4 REM кекете кент 


10 КЕМ жж MAIN жы 

20 SCREEN 3,2,2:CDLOR ,1,1:С0М50 
(Е,,,ФіСІЗ 

зе DIM CP( さ 6。21 ) 』 BUSUB 9910 


49 GOSUB 9010 
50 51=1000:52=1000: 35=1000: 84=10 
ら 91 85= 1 999 

60 GOTO 1010 

70 GOSUB 8300:SC=0:R=1 ı CN=3: CO=O 
Во TE=501-(R-1)*50:IF ТЕ<300 THE 
N TE=300 

99 Gi=0:G2=0: GI=O 


E 1 =26』 E2=29: E3=30: S0=0:; PR=0 
GOSUB 1510 


120 GOSUB 2010 
159 GOSUB 5010 
140 GOSUB 8010 
150 GOSUB 2010 
189 GOSUB 5110 


GOSUB 5210 


113 


Рю 


プロ ッ ク ワ ー ル ド ソー ス ・ リ スト 

209 GOSUB・B919 

219 GOTO 120 
1000 КЕМ жж ライ トル ** 

1010 CLS 

1020 YB=4: GOSUB 1400: XB= さ の 』 GOSUB 
1410 

1030 YB=22』 GOSUB 1400: ХВ=2: GOSUB 
1410 

1040 COLOR 3:LOCATE $, 4: РАТМТ "В 

LOCK -WORLD 

1050 LINE (44, 45) -(226,61),4,В:СО 

LOR 4 

1040 С=22: ХВ=В: УВ=12: GOSUB 7110: 

(ОСАТЕ7, 6ёРАТМТ "チキ ラク フラ 

1070 LOCATE7,7:PRINT "アッ カマ ン 

1080 LUCATE7。 日 PRINT "アオ スケ 

1090 C= さ の 』 YB=1 日 3 GDSUB 711011 ОСАТ 

E7。9』PRINT "9272 

1100 COLOR 2:FORY=&TO9: СОСАТЕ&, У 
PRINT "í" NEXT 

1110 COLOR さ 』LOCATE1。14』PRINT "H 
ІТ RETURN KEY! "J 

1129 Cm26』GUSUB 1300: GOSUB 1200 
1150 COLOR 4:LOCATE2,14:PRINT "А 

КҮ SOFT 1983"; 

1140 C=27:GOSUB 1 さ の 9』GOBUB 12001 

GOTO 1100 

1200 А%=ІМКЕҮФ: IF A$=CHR%(13) ТН 

EN 70 

1210 GOSUB 814@: LL INE (16, 168) — (25 

5,179),1,ВҒіКЕТИКМ 

1500 YB=i4: GOSUB 7110 

1310 С=С+2: YB=16』 GOSUB 7110: КЕТО 

RN 

1400 FORXB=2TO3@STEP2:C=RND(1)*1 

0+101 GOSUB 7119: МЕХТ: RETURN 

1410 FDRYB=6TU26STEP2』 C=RND( 1 ) #1 

0+10: BUSUB 7110:NEXT: RETURN 

1500 КЕМ жж GAME SCREEN жж 

1519 CLS 

1520 FORL=&HE2@@TOkHF9E@STEP64:P 

ОКЕ, &H74: POKEL +25, &H74 

1530 POKEL+32, «НОС: POKEL+57, &HDC 
іМЕХТ 

1540 і =&НЕ200: GOSUB 1959』 し =&HF66 

9』 BOBUB 1950 

1550 LINE (2064, の) 一 (255。 191 ) 。 さ 。 BF 
1560 LINE(7。 183) - (199, 191 ) 。 さ 。BF 
1579 FORT=19TO1638TEP さ 6』 LINE (212 
Т3-(251,7%12),4,ВіМЕХТ 

1580 RL=RND(1)*12%16+8:LINE(RL,@ 
)-(RL+15,5),4,BF 

1590 RL=RND(1)*#12*16+8 LINE (RL, 1 

63) (RL+15。 168) , 4, BF 

1600 RL=RND( 1 ) #13*12+é6: LINE (1, RL 
)-(4,RL+11),4,BF 

1610 RL=RND( 1 ) *1 さ 12+6』LINE(291 。 

RL) - (204, RL+11) 。 4。BF 

1620 YN=15:C=1: FORXN=4TO20STEP2 
1630 GOSUB 7010:C=C+1:ı NEXT 

1640 ҮМ=1: XN=27』C= さ 1 』 GOSUB 70101 

XN=28: C=32: GOSUB 7010 

1850 YN=4』 XN=27』 GOSUB 7010 

1660 YN=7』 じ = ささ 』 GDBUB 7010 

1879 YN=1O』 ビ = さ 4』B0BUB 7010 

1680 YN=13:CC=35:G0SUB 7010 

1599 YN=2:SG=S1:GOSUB 8400 

17909 YN=5:SG=SCiGOSUB 8400 

1710 GOSUB 8010 

1729 YN=11: XN=29』 509=СМ: GOSUB 842 

° 

1730 YN=14: XN=29: SG=Rı GOSUB 8420 
1740 XC=(RND( 1 ) +12) #21 YC= (КМО (1) 

+4) *ж2+18 

1750 C=22』GDSUB 7210:0050В 8210 
1760 C=19:T1=8-R:IF Т1<4 THEN Ті 

-4 

1779 FORT=ƏTOT1:GOSUB 1900:МЕХТ 
1780 ҒОКС»107018: FORT=0T04: GOSUB 
1900: NEXT: NEXT 

1799 GOSUB 8140 

1800 RETURN 

1900 ХВ= (RND (1) +12) #21 УВ= (RND (1) 

ж15) +2 

1910 BL=&HE2E1+XB+YB*192: IF PEEK 
(BL) く > の 6 THEN 1900 

1929 GOSUB 7129』RETURN 

1950 FORT1=LTOL+1288TEP64』FORT2= 

T1TOT1+25 

1960 РОКЕТ2,%Н77:РОКЕТ2%52, &HDDi 

МЕХТ: МЕХТ: RETURN 

2000 КЕМ жж Ф070 т” 

2010 ST=STICK(@):SR=STRIG(@):G=@ 

2920 IF ST=@ANDSR=@ THEN GOSUB 8 

13@:RETURN 


2030 PLAY "в14т69905164" 

2040 ОМ ST GOTO 2100, 2050,2150,2 
050, 2200, 2050, 2250, 2050 

2050 RETURN 

2100 A1=CH-544: А2=СН-5761 АЗ=СН-6 
07 

2110 IF SR=1 THEN 2500 

2120 IF PEEK(A1) く >G THEN RETURN 
2130 C= さ 6』 BUSUB 7210: УС=УС-1:С=2 
さ 』 GOSUB 7219』GBOSUB 8150 

2140 = さ 6』 GDBUB 7210: УС=УС-1:С=2 
ЗЕРЬАУ "с": GOSUB 72101 КЕТиКМ 
2150 А1-СН-158:А2-СН-190: А5=СН-2 
21 

2160 IF SR=1 ТНЕМ 2400 

2170 IF РЕЕК(А1)<>9 THEN RETURN 
2180 C=36:GOSUB 7210: ХС=ХС+1:С=2 
2: GOSUB 7210: GOSUB 8150 

2190 C=36:GOSUB 72101: XC=XC+11C=2 
21ıPLAY "с": GOSUB 72101RETURN 
2200 А!=СН+224: А2=СН+1921 АЗ=СН+1 
61 

2210 IF SR=1 ТНЕМ 2500 

2220 IF РЕЕК(А5)<>9 THEN RETURN 
2230 C= さ 6』 GOSUB 7210: УС=УС+1:С=2 
4: GOSUB 7210:GOSUB 8150 

2249 C= さ 6』 GOSUB 72101 YC=YC+11C=2 
4』PLAY "с": 60508 721 の 』RETURN 
2250 А!=СН-162: А2=СН-194:АЗ=СН-2 
25 

2260 IF SR=1 ТНЕМ 2600 

2270 IF РЕЕК(А5)<>9 THEN RETURN 
2280 C=36: GOSUB 7210: ХС=ХС-1:С=2 
1: GOSUB 7210:GOSUB 8150 

2290 C=36rGOSUB 72101 ХС=ХС-1:С=2 
tiPLAY "с": GOSUB 72101 КЕТОКМ 
2500 C2=23: 4=ー4 15』 QB=ー フ 99』 Ab=-4 
15: 7=&HFF 

2519 YU=O』 TA=ー2』 GOTO 2700 

2400 じ つ =22』Q4=ー さ の 』 人 Q5=ー2 日 』 6=ー2 ワ 』 
RA7=&HFE 

2410 YO=2: TA=Q: GOTO 2700 

2500 C2=24』 4= さ 2』 A5=448: A6=353: A 
7=&HFF 

2510 YO=0: TA=2: GOTO 2700 

2600 C2=211A4=-33: A5=-35; 6=ー さ さ 』 

А7=&НЕС 

2610 YO=-2: ТА=@ 

2700 C=C2:GOSUB 7210 

2719 IF PEEK (CH+A4) < >“НЗФАМОРЕЕК 
(CH+aA4) く >&H15 THEN RETURN 

2729 IF РЕЕК (А1) =&HSF THEN ロ =1 

2730 IF PEEK (CH+A5) く >A7 THEN 275 

° 

2749 XB=XC+YO: YB=YC+TA: GOSUB 401 

© GOSUB 5010: RETURN 

2750 IF PEEK (СН+А5) = の O THEN 2790 

2760 IF G=1 ТНЕМ RETURN 

2770 XB=XC+YO: YB=YC+TAiíiC=2@:PLAY 
"s1l4m999olc9"iG0SUB 7120 

2780 GOSUB 日 1 1 の 』 じ = さ 6』GOUBUB 71201 

RETURN 

2799 ХВ-ХСжҮО: УВ=УС+ТА: GOSUB 401 

の iPLAY "я14т900о7еВ 

2800 C=36: GOSUB 7120 

2810 XB=XB+YO: YB=YB+TAı C=C1: GOSU 

B 7120 

2820 IF PEEK (BL+A4) =0 THEN 2800 

2830 IF PEEK (BL+A4) «А7 THEN 5010 

2840 IF PEEK (BL+A6) =&HAO THEN GO 

SUB 4510 

2850 IF 6=1 THEN GOSUB 6010 

2860 RETURN 

5000 КЕМ жж アッ カマ ン жж 

5010 XE=X1íiYE=Y1:IF 0120 THEN BS 

=G1:GOSUB 5800:01-55: RETURN 

5020 IF E1=26 THEN Е!=27: ВОТО 50 


3050 El=26 

5040 C2=EliGBOSUB 5510 

3@5@ X1=XEiY1=YE:PR=0:RETURN 
5100 КЕМ ж» 7327 ** 

5110 ХЕ=Х2:ҮЕ=Ү2:ІҒ 08220 THEN ӨЗ 
= ロ 2 GOSUB さ 日 OO』 ロ 2=B5』RETURN 

3120 IF E2=28 THEN E2=29: GOTO 51 


5150 E2=28 

$140 C2=E2:GOSUB 3510 

5150 X2=XE』Y2=YE』RETURN 

5200 КЕМ жж タコ フン жж 

5219 IF G3=1 THEN C=E3:GOSUB 825 
O1 XI=XR: YI=YR 

5220 IF 8520 THEN GS=G3:GOSUB 38 
001 G3=GSı RETURN 

3230 C2=E3: XE=X3: YE=Y3: GOSUÐ 555 


° 
5240 X3=XEiY3=YE:RETURN 


3500 КЕМ жж ALIEN MAIN ** 

さ 519 IF ҮЕ<>ҮС ТНЕМ 353@ 

3520 IF RND(1)*2=@ THEN ҮО= (56М( 
ХС-ХЕ) ) +2: ХЕ=ХЕ+\У О: ТАз0і GOTO 362 
° 


3530 IF ХЕ<>ХС THEN 5550 
5540 IF RND(1)*2=@ THEN TA=(SGN( 
УС-УЕ) ) #21 УЕ=УЕ+ТА: УО=@: GOTO 502 
ө 

5550 ОМ RND(1) #5+1 GOTO 5560, 557 
©, 3580, 3590, 5600 

5560 YO=2』TA= の 』 GOTO 5610 

3570 У0=-2: ТА=е: GOTO 3610 

3580 ТА=2: YO=0: GOTO 5610 

3590 TA=-2: YO=O: GOTO 5610 

36@@ RETURN 

3610 ХЕ=ХЕ+УО: УЕ=УЕ+ТА 

5620 IF ХЕ=ХСАМОУЕ=УС THEN GOSUB 
$726: GOTO 8510 

5650 E=&HE2E1+XE+YE192 

3640 IF PEEK(E)= の THEN 5720 

5650 IF PEEK (Е) =&Н15АМОРЕЕК (Е +64 
)<>&H5S7ANDRND (1) *15=9 THEN 5670 
5640 ХЕ=ХЕ-УО: YE=YE-TA:RETURN 
3670 А1=Е+1921А2=Е+1&01АЗ=Е+1291 
GOSUB 4020 

3680 C=20:PLAY "в14т99901с9":008 
UB 7320:GOSUB 8120 

3690 E=kHF764+(C1-10)*2:IF РЕЕК( 
E)=@ THEN 3720 

3700 C=20: GOSUB 7520: 30=50-1:608 
UB 8110 

5710 C=36rE=E-352:G0SUB 7320 
3720 C=36íXE=XE-YQi YE=YE-TA:GOSU 
B 7510 

5759 С=С2: ХЕ=ХЕ+У0/2: УЕ=УЕ+ТА/21 
GOSUB 7310 

5740 GOSUB 日 1 さ の 』C= さ 6』 GBDSUB 7510 
5750 С=С2: ХЕ=ХЕ+Ү0/2: УЕ=УЕ+ТА/21 
GOSUB 7510: КЕТОКМ 

5800 G5=05-1 

5810 GOSUB 8150 

5820 RETURN 

4000 КЕМ жж BL リフ タン ж 

4010 IF Bm1 THEN Cl=19:RETURN 
4020 IF PEEK(R1) =&H55 THEN 4100 
4030 IF РЕЕК(А1) =&H59 THEN 4200 
4049 IF PEEK(A1)=&H56 THEN 4300 
4050 C1=1 さ 』RETURN 

4100 IF PEEK(A2) =&H5R THEN 4400 
4119 Cl=12:RETURN 

4200 IF PEEK(A2) «“ҺНЗА THEN 4450 
4210 Cl=11:RETURN 

4500 IF РЕЕК (А2) =&H56 THEN С1=10 
1RETURN 

4310 ビ 1=16』RETURN 

4400 IF РЕЕК (АЗ) =&H54 THEN C1=14 
』RETURN 

4419 Cl=18:RETURN 

4450 IF РЕЕК (А5) =&H54 THEN Cl=15 
ı RETURN 

4460 C1m17』RETURN 

4500 REM жж JUDGE ж” 

4510 ОМ C2-20 GOTO 4640, 4540, 452 
9,4510 

4520 IF XB=X1ANDYB=Y1+2 THEN 471 
@ 

4530 IF ХВ=Х2АМОУВ=У2+2 THEN 481 
ө 

4540 IF XB=X3ANDYB=Y3+2 THEN 491 
© 

4560 IF XB=X1-2ANDYB=Y1 THEN 471 
@ 

4570 IF ХВ=Х2-2АМОУВ=У2 THEN 481 
° 

4580 IF XB=X3-2ANDYB=Y3 THEN 491 
© 

4819 IF XB=X1ANDYB=Y1-2 THEN 471 
ө 

4620 IF XBmX2ANDYB=Y2-2 THEN 481 
ө 

4650 IF XB=X3ANDYB=Y3-2 THEN 491 
© 

4589 IF XB=X1+2ANDYB=Y1 THEN 471 
© 

4670 IF XB=X2+2ANDYB=Y2 THEN 4 日 1 
° 

4480 IF XB=X さ +2QNDYB=Y さ THEN 491 
ө 

4710 Gl=43-R*3 

4720 P1=X1xB+12 ュ P2=Y1k6+1 の 』BOT ロ 
4940 

4810 G2=43-R*3 


— 


oee ДИМОВО НЫЦЦНСНННЕ АРЧАСЫНЫН 
ТЄ) т), 見 まし た か 7? "TROPICAL ANGEL」 と いう も の すご ーー 一 い ゲ ー ム が 出 ま し た ね . 遠く か ら 見 る と 「 実 写 」 じ ゃ な いか と 思わ せる グラ フ 
Ол Ол ィ ッ ク 画 面 (お お /)。 ゲー ム の 内 容 MAL), そし て 最後 に あの 女の子 / (凄い /) 「REVERSE」 や 「JUMP」 し た と き 。 そ し て ころ ん 
だ と よき の リア ル さ (PIRA), よう とう 日 本 の ゲー ム も ここ まで きま し た ね . いや ー, めで だ たい めで な だ たい LIFE), P.S. 50 万 点 以 上 楽に 

114 а いけ る ゲー ム は ひま つぶ し し か な ら な い ぃ い グ (ちん ) 


4820 Р1=Х2*8+12:Р2=\у2%6+10: GOTO 
4940 

4919 G3=43-R#3: B3=BL 

4920 XB=X3:YB=Y3: C=RND (1) *9+10:6 
OSUB 7120 


4930 BL=B3: GOTO 4960 

4940 LINE (P1,P2)-(P1,P2+1),1:LIN 
Е (Р1+4,Р2)-(Р1+4,Р2+1),1 

4959 IF РВ=1 ТНЕМ RETURN 

4960 PLAY "в11т499901с6" 

49709 5С=5С+ (С1-9) #10: ҮМ=5: 56=5С: 
GOSUB 84009: RETURN 

56009 КЕМ жж SORT жж 

5010 PLAY "=4т99906е8" :С=36: 6050 
В 7120 

5020 IF С1=19 THEN RETURN 

5050 С=С1: BL=&HF764+ (С1-10) #2 
5040 IF PEEK (Ві) < >60 THEN RETURN 
50586 BUSUB 7130: 5С=5С+ (С1-9) #10 
5060 YN=5: SG=SC: GOSUB 8400 

5070 50=50+1:ІҒ 50-9 THEN 6516 
S080 RETURN 

ддд КЕМ жж POWER BLOCK жж 

60919 IF PEEK (BL-9 日 ) =&Н57АМОРЕЕК ( 
BL-94 ) =&H57 THEN 6199 

5029 IF PEEK (BL-100) =%HS7ANDPEEK 
(BL-98) =&H57 THEN 5100 

4030 IF PEEK (BL-94) =&Н57АМОРЕЕК ( 
BL-92) =&H57 THEN 6190 

4040 IF PEEK (ВІ.-489) =%HS7 ANDPEEK 
(BL+96)=%H57 THEN 6109 

65050 IF PEEK(BL- 日 64 ) =&Н57АМОРЕЕК 
(BL-480) =&H57 THEN 6109 

606% IF PEEK (BL+96) «ҰНЗ7АМОРЕЕК( 
Ві 480) =%HS7 THEN 6109 

689709 RETURN 

61099 FORU=0107: C=RND (1) *9+10: GOS 
UB 1900 

6119 PLAY"s14m9?0003e6" : GOSUB 812 
Ө:МЕХТ 

6120 SC=SC+ 1 の 9』 YN=5: SG=SC: GOSUB 
8400 

“4130 PB=1:GOSUB 4719』GHSUB 4810: 
PB=0:PR=1 

6140 RETURN 

6500 КЕМ жж BONUS жж 

6519 PLAY "50199994 1891Во5с2оа4. 
а+05с20+29аа+о05с14о0а+ад2" 

6520 PLAY "аВа+Во5сВа8сс+2с2оа+а 
9.+8+2 

6550 LINE (7,54) - (199,115) ,1, BF 
6540 COLOR З: ОСАТЕ1, SPRINT Ri" 
К CLEAR 

6550 IF R=2 THEN CN=CN+1: COLOR 2 
SPRINT = SP72 +1 

6569 GOSUB 8150: BO=(TE/10) ж20+10 
° 

6570 COLOR 4: РКІМТ:РКІМІ " BONU 
S"; BO 

6580 GOSUH 8159: ҒОКО= і ТОВО/ 16 
6590 5С=5С+10: YN=5: SG=SC: PLAY "b 
49 

599 GUSUB 8400: FORT=070299: NEXT 
:МЕХТ 

5619 К=К+1: GOSUB 8150: GOTO 80 
70900 КЕМ жж CHARACTER WRITE жж 
7910 NU=&HE2890+XN+YN# 384 

7920 1=0:FORA=OTO6: H=NU: РОКЕ NU, 
CP(C,1) 

7030 1=1+1:NU=H+32: NEXT 

7949 RETURN 

7110 BL=kHE200+XB+YB#192: GOTO 71 
さら 

7120 BL=&HE2E 1+XB+YB#192 

7159 IF С<190КС219 THEN E=BL s GOT 
0 7529 

7149 GOSUB 7180: BUSUB 719% 

7159 I=@:FDRA=@TO6:H=BL:FORB=@ ГО 
1:РОКЕ BL,CP (C, 1) 

7160 I=I+1:BL=BL+1:NEXT:BL=H+32:;: 
NEXT 

7179 GOSUB 7190: GUSUB 7180: RETUR 
N 

7189 POKE BL, &H1S5:POKE BL+1, XHSO 
a BL=BL+32: RETURN 

7199 POKE BL, HSS: РОКЕ BL+i,&HS4 
s BL=BL+32: RETURN 

7219 CH=%HE2E1+XC+YC*192 

7229 1=0tFORA=OTO10: H=CH: ҒОКВ-ӨТ 
01:РОКЕ СН, CP (С, I) 

7239 1=1+1:СН=СН+1 : NEXT: CH=H+32: 
NEXT 

7249 RETURN 

7310 E=&HE2E 1+XE+YE ォ 192 


— 
7529 I=@:;:FORA=OTD16:H=E:FORB=@[D 
1:РОКЕ E,CP(C, 1) 


7330 І=1+1:Е=Е+1: МЕХТ:Е=Н+52: МЕХ 
1 

7549 RETURN 

8000 КЕМ жж SUB ROUTINE жж 

Bo19 IF PR=1 THEN RETURN 

8020 ХМ=28: YN=B: TE=TE-1: SG=TE: GO 
SUB 8410 

8050 IF TE=@ THEN 8510 

8040 RETURN 

8110 FORT=@TO699:NEXT:GOSUB 8010 
8120 ҒОКТ«970899:МЕХТ:КЕТИКМ 
8159 ҒОКТ-ӨТ0159:МЕХТ:КЕТИКМ 
8140 FURT=9TU2699sNEXTiRETURN 
8150 ҒОКТ=0Т01 5499: NEXT: RETURN 
8210 С=22: GOSUE 8250: Хі=ХК:Үі=ҮК 
8220 С=29: Б050В 8250: Х2=ХК: Ү2=ҮК 
8250 С=50: 6050В 8250: Х5-ХК: ҮЗ=ҮК 
s RETURN 

8250 XR=(RND( 1 ) ж12) *2: ХЕ=ХК: УК= ( 
RND (1) 8) #2: ҮЕ-ҮК 

8260 E=&HE2E1+XE+YE*1%2: IF PEEK ( 
E)<>@ THEN 8250 

8270 GOSUB 7520: RETURN 

85009 PLAY "sëómS999t18216oqoS5ceqgg 
12g12gee1 2e1 2ececog2r 3 

8519 PLAY "qoSceggl2gl2qgecogg12 
412405с2":(5050В 8140: RETURN 

8400 XN=27:C=SG/1000: GOSUB 7010: 
56=56-С*1009: XN=XN+1 

8419 С=56/106:БО5УВ 7919:56=56-С 
#100: XN=XN+1 

8420 C=SG/ 19』 BUSUB 7910:56=56-С* 
19: XN=XN+1 

8430 C=SG:GOSUB 7010: RETURN 

8500 КЕМ жж ヤラ レグ жж 

8510 C=25:GOSUB 72109 

8520 PLAY "s0m&6999t 125021 1 6a4a 日 、 
aa4o3céo2bb8. аав. д+а5 

8530 GOSUB 8150: GUSUB 8150 

8549 См-СМ-1:ІЕ CN=0 THEN 日 6 らら ウ 
8559 GOTO вө 

8600 YN=1 1: XN= さ 9』 56=0: GOSUB 8450 
8619 LINE(7。6) 一 (199。162) 。 1 。BF 
8626 COLOR 5:1 ОСАТЕ1,2:РКІМТ "ГӨ 
АМЕ OVER1": PRINT 

86350 Н!1=2:Н2=2:Н5=2:Н4=2:Н5=2 
864% IF 51<5С THEN 55=54:54=53;:5 
3=52: SZ=51: S1=SC: H1=4: Y=4: GOTO 日 
799 

8656 IF 52<5С THEN 55=54:54=53:5 
3=52:52=5С:Н2=4; Y=5: GOTO 8700 

日 669 IF 53<5С THEN 55=54:54=55;:5 
3=SC: H3=4: Y=6: GOTO 8700 

8570 IF S4<SC THEN 55=54:54=5С:Н 
4=4: Y=7: GOTO 8700 

8484 IF SS<SC THEN SS=SC:HS=4r,Y= 
8:GOTO 8700 


8699 Y= ら 

8790 COLOR Ні:РКІМГ" 16%: "(51 
8719 COLOR Н2:РАТМТ " 2п9:"}52 
8729 COLOR Н5:РАТМТ " 379:"} 53 
8759 COLOR H4:FRINT " 4th: "5:54 
8749 COLOR HŠ:PRINT " Sth:"şSS 
8759 COLOR З:РКИМТ:РАТМТ " TRY А 
GAIN ? 

8789 PRINT " Cylortnl]":EXEC&HiG 
5в 


8770 A$=INKEY$:IF A$="y" THEN 76 
978% IF A$="n" THEN END 

8799 CO=CO+1: IF С0=999 THEN ёб 
9890 IF Үшо THEN 8770 

8819 LUCATE6。 У: COLOR 4:PRINT SC: 
GOSUB 8140 

8820 ヒロ =CD+ 1』 IF C ロ =69 THEN ёб 
68850 LUCATE6。 У: COLOR 1:РКІМТ SC: 
GOSUB 8140 

8840 GOTO 8770 

9000 КЕМ жж CARACTER DATA жж 
9010 С=0:1=0: КЕЅТОКЕ91@д 

9020 READ A$: AD=VAL ("&Н"+А%) 
9030 IF AD=&HFFF THEN RETURN 
9040 IF AD=&HFFE THEN C=C+1: [=0: 
GOTO 9020 

9050 СР(С,1)-АШ:1ғ1%1 

9969 GOTO 9920 

9100 КЕМ жж 20i" DAIA ж 

9119 БАТА 9%,99,99,99,99,99,95,4 
fe 

9120 рата аё, 96, аб, аб, аб, аб, 95, + 
+е 

9130 DATA 95,99, а9, аб, 9а, 99,95, + 
+е 

9140 DATA 95,99, а9,а5, а9, 99,95, + 


рю 


プ ブロック ウー ルド ソ ュ ズ ・ リ ズ スト 


Ғе 

9159 БАТА а9,а5,99,99,95,а9,а9,4 
Ғе 

9160 БАТА 95,%9а,9а,95,а9,99,95,4 
+е 

9179 DATA 95,99,9а,95,99,99,95, + 
+е 

9180 БАТА 95,99, а9, а9, аб, аб, аб, + 
+е 

9190 DATA 95,99,99,95;99,99,95, + 
+е 

9200 DATA 95,99,99,95, а9,99,95, + 
+е 

9210 КЕМ жж 7`0%7 БАТА жж 

9220 DATA 56,54,5а,54,56,54,56,5 
4,564,54,54,54,5а,94,ҒҒе 

9230 БАТА 5а,94,59,94,55,94,56,5 
4,59,54,59,94,5а,94,++е 

9240 БАТА ба, 94, 59,94, S55, 94, 56,9 
4,55, 94,59,94, 5a, 94, fte 

9250 DATA 55,94, 56,94, 59,94,59, 
4,5a, 94,55,94,55, 94, ffe 

9269 DATA 5а,94,59,54,59,54,5а,9 
4,55,94,59,94,5а,94,4Ғе 

9270 БАТА ба, 74, 59,94, 59, 54, 5а,9 
4,59,94,59, 94, ба, 94, ffe 

9280 DATA 5а,94, 59,94, 55,94, 55,9 
4,56,54, 56,54, 56,54, ffe 

9290 DATA ба, 94, 59,94, 59,94, 5а, 9 
4,59,94, 59,94, 5а, 94, ffe 

9509 БАТА ба, 94, 59,94,59,94,5а,9 
4,55,94,59,94, 5а, 94, ffe 

9519 БАТА 57,54,77,74,5+,04,57,5 
4,5+,94, 77, 74,57, 54, fte 

9329 DATA 15,10,59, 44,51,30, 46,5 
4,15,84,59, 44,46, 14 

9330 DATA 62,20,47,44,51,14,11,5 
©, ffe 

9540 КЕМ жж CHICKEN жж 

9350 DATA 9,50,1,54,2,94,0,94,с2 
94,05,54, 05,54 

936% DATA 1,56,1,56,1,54,0,а0,ҰҒ 
e 

9579 DATA 5,0,15,40, 16,80, 16,6, 1 
6,8c, 15, 5c, 15, 5c 

9580 DATA 95,40,95, 40,15, 46, а, Ô, 
tte 

9599 DATA 5с,35с,4,4,4,4,6,64,8,8 
В,а,а8,5,54 

9499 DATA 5,54,1,50,0, Ве, ffe 
9410 DATA 2,0,5, 40, 15,50, 15,50,2 
а, ао, 22, 20, 19,90 

9420 DATA 16,10,10, 10, t0, +0, ffe 
9459 рата 4, 40,44,44, 40, 4,5,40, 1 
5,56, 1d, d6, 95,58 

9440 DATA Sf,d4,75,74,55,54,68,a 
4, ffe 

9450 КЕМ жж ALIEN жж 

9460 DATA 45,4, с+, сс, с+,сс,+7, 7с 
»37,79,Ғ,с9,%,с0 

9479 DATA Ж,сФ,с,с%Ф,с,с%9,28,аб,4 
Ғе 

9489 DATA 5,9,%,с9,4,с9,57,79,47 
‚ ЕЕ ЕСЕЖСЕ 

9490 DATA 4+,с4,с,с®,с,с®, 28, ад, 
++е 

9509 DATA 42,4,Ва, 88, Ва, B8, аё, 48 
‚26,60, а, 80, а, 日 の 

9510 БАТА а,809,8,809,8,809,28, аб, + 
+е 

9520 рата 2,0, а, 60, а, 60, 26, 69, ab 
。 68, Ba, 88, Ва, B8 

9530 DATA 4а,84,8,89,8,89,28, ао, 
++е 

9540 DATA 3,9,Ғ,с09,4,с9,5Ғ,Ғ0,34 
‚+0, 37,70, 37,70 

955% DATA 3+,+0, 53,59, сс, сс, сс, а 
о, ffe 

9500 КЕМ жж t" жж 

9570 DATA 99,99,99,95, 99,99,99, f 
fe 

9580 DATA 95,99,9а, аб, а9, 99,95, + 
+е 

9590 DATA 95, аб, аё, аё, аб, аб, аб, + 
+е 

95009 БАТА аб, 99, 9а, 9а, а, 99, аб, + 
+е 

9519 DATA 95,91,99,96, 99,99, 99, + 
ff 


уе | 
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今月 の PiD な ゲー ム 


@PC-6001۰32K/mKII 


Nso-BASIC+ гг 


サテ ェ に よっ て 多く の 暴走 衛星 が 破壊 さ 
れ 大 き な 成 果 を 挙げ た . し か し , Ol om 
撃 し て も ボー ナス が な いた め , サテ ェ の 乗 
務 員 は , 不満 の 声 を 挙げ スト を 行なっ た . 
その 間 , 暴走 衛星 は 次 第 に 意志 を 持ち 始め 
地球 上 を 攻撃 し 始め た . 

対策 を 求め られ た 国連 は , し か た な し に 
乗務 員 側 と 妥協 し 77 機 を 迎撃 する ご と に ボ 
ー ナ ス を 支給 する こと を 決定 . か くし て , 
サテ ェ は 再び 打ち 上 げ ば られ た -. 

例 の ご と く サ テ ェ の 24 砲 門 と 機動 力 を 駆 
ELT, あな た は いく つの 暴走 衛星 を 迎撃 
で きる か ググ 

な お この 文章 は め の た め 自 動 的 に 焼却 し 
た いと ころ で ある が , 他 の 記事 に 迷惑 に な 
る の て 今回 は や めで お € ` 


キー 内 っ て 打 て / 


ペー ジ 数 は ЗС 9. BASIC, マシ ン 語 の 
МЕРУ. マシ ン 語 は E モ 
ニタ (P .169) で 入力 し て くだ さい . 少々 長 
い プ ログ ラム で す が NEVER GIVE UP/ 
ガッ ツ で 入力 ク 


ゲー ム ば か り が 
能 じ ゃ な い 


いわ ゆる プロ グラ ム の 説明 で す . 特に 前 
回 の SATELLITES (1/0, "83 年 5 H=) と 
変わ っ た と ころ を 挙げ て み ま す . 

@ 前 回 は プロ グラ ム 内 に ワー ク ・ エ リア が 
ご ちゃ ご ちゃ あっ た が , 今回 は 一 切 追 い 出 
1-72: 

@ ワ ー ク ・ エ リア と 画面 の 設定 は 大 半 を マ 
СТО EIEL, 

@ バ パッ ク に な ん と 星 が あ る . 

@ サ テ ェ の ミサ イル が 。 敵 を 貫通 する こと 
ЮРТЫ, 

つい で に , 前 回 と さき し て 変わ っ て いな い 
と ころ も 挙げ て み ま す . 

@ ハ ンド ・ デ モン ブル に よる 料理 の た め , 
大 変 本 く ス パ ゲ ティ が いっ ぱい で きた -. 

@ サ テ ェ の キャ ラク タテ 攻 撃 法 (し か し , 

これ を 変え た たら, さき て らい つ G の 名 が 付け 
られ な い の で す ). 

窒 1 に メモ リ ・ マ ッ プ "を 示し ます . これ 


TILT 


いや あ 。 本 当 に 和 驚き まし た . 
ЕСТІ. あり ゃ . メカ の 名 は 一 般 的 に 機動 兵器 と いわ れ て いる よう で す . 


を 見 る と デー タ が 大 変 和 多い の が わか り ま す . 
画面 を 楽し くす る ため と いう こと と , キャ 
ラク タ が 一 定 で ある と 飽き や すく な る の で 
特に フル ー ツ を 10 個 用 意 し て いた ら こ ん な 
に な っ て し まっ だ の で す . いか に も ゃ も 一般 大 
衆 の 喜び そう な ゲー 語 ょ に と な っ た か な ? 


あそび か た 


х НЕВЕ SATELLITES と 同じ で す . 
уоп КЕР, , デモ ンス ト 
シレ ーション と いう ほど の も の で は あり ませ 
Anî, >= b i+. 

ここ で ゲー ム ・ ス ター ト の 方 法 で す が , 
SPACE| キ ー で も スタ ー ト し ます が 。 ジョ 
イス ティ ッ ク の ト リガ ー ボ タン で も スタ ー 
ト で きま す (тешз ИНЫЕ 
EMN: 

スタ ー ト 後 , まず フル ー ツ の ポイ ント が で 
て きま す . これ は 下 か ら 上 っ て きだ た フル ー ツ 
を 迎撃 す る ご と に プラ ス さ れる ポイ ント で す . 

フル ー ツ は , 一 定時 間 ご と に 出 て きま す . 
これ を 迎撃 する に は 、 ミサ イル を 5 一 7 発 
で らい ぶち こむ と ,。 上 に 向っ て いた の が 急 
に 落下 は じ め ま す . この 落下 を 始め た 時 
点 で て FRUIT ポイ ント が フ " ア ラス きれ ます . し か 
し これ を や る の は 大 変 難し い の で よく 考え ぇ 
СЛЕ. 

敵 の 数 が 画面 の 横 に 表示 され て いま す が , 
これ は (生き て いる 敵 数 ) 一 (画面 上 の 敵 
Ж) DTT. ゲー ム 中 は , な か な か 見 て 
いる 暇 が な いと 思い ます が …. 敵 は 2 種類 
あり ます が 。 得点 は 同じ 30 点 で す . 敵 を 77 
機 破壊 する と 1 面 終 了 と な り 。 ボー ナス が 
1,000 点 得 ら れ ま す . 


な ぜ か 宇宙 に フル ー ツ が … 


LPL, あの 動き 、 リ アル で すね を ぇ . 


スコ ユア が 10,000 点 に な る と 1 機 。 後 は 
20,000 点 毎 に 1 機 ず つ サ テ ェ の 数 が 増え ま 
ЕЛУ 

1 面 の 最初 の 敵 の 出現 数 は 決ま っ て いて ., 


1, 2 面 で 1 機 ,。 3, 4 面 で 2 機 ほ いう ふぅ 
に 増え を ます . また フル ー ツ が 出る ご と に 1 
機 ず つ 増 えま す . 

出現 数 は , 5 機 以上 増え を る こと は な く , 


今度 は 1 機 ず つ ス ピー ド が アホ みた だ た い に 速 
く な り ま す . 5 機 ほ とも スピ ー ド アッ プ グ さ きれ 
て も まだ な お 生き 残る の は 不可 能 と 言え る 
15 т 


つの 情報 


前 回 と 変わ 才 た 点 と し て バッ ク に 星 が あ 
る と いう の を 挙げ ば まし た が , この 星 は , Š 
し て メチ ャ メチ ャ に 並ん で いる わけ で は あ 
り ま せん . 画面 中 央 より 少し 上 面 の と ころ 
に 北極 星 , その 少し 右上 に 崩れ 北斗 七星 、 
その 他 崩 れ 白 鳥 。 崩れ さそ り , жайты 
と いう 具合 に , 夏 の 星座 ほな っ て いま す . 
жол 

敵 の 動き は 64 パ ター ン を ラン ダム に 選ん 
で 動か し て いま す . この 64 の パタ ー ン を す 
べ で て 覚え れ ば スコ ア ・ ア ッ プ 間違い な し で 
Ж. 
その 三 

敵 は あな た の 位置 か ら 半 径 20 ド ッ ト 以 内 
な ら 撃 っ て きま せん . だ か ら 前 回 の よう に . 
すれ 違っ た と き に ドカ ン と いう こと は あり 
ませ ん . 
その 四 

フル ー ツ で は , わか り に くい も の も ある 
よう な の て で 出る 順に 上 げ て み ま す . リン プ , 
ミカ ンー サク ラン ボ ) ラフ ャ ナナ жаз 2 
Z (スイ カカ フイ ネコ вест 
似 て な いか ら と いっ て 文句 を 言わ な いで 
その 気 で 見 て くだ さい . 
その 五 

ゲー ム を や っ て いる うち に わか る と 思い 
27», と きど き 中 央 上 面 に 敵 が 突然 現 わ 
れ ま す .。 これ は ワー し て きだ も の で ぶ 
つか ら な いよ う あ の 辺 の 空域 に は 近づか な 
い 方 が いい と 思い ます . 


ナン トノ 銀河 標 流 バイ ファ ム (10/21) の オー プ ニ ン グ に 逆 ア セン プル ・ リ スト が 出 て いる で は あり ませ ん か . いや 。 ア セン グル" リスト 
ちゃ ん と 噴射 管 が 出 て ます ね え . ひょっと する と ガン ダム 以 
し か も , 性 能 は ほとん ど 同 じ に です.、 よろ し いん じゃ な いで すか …. 


А P.S. 近ごろ , My MZ-700 は セー プ が うま く ゆ か ず , 線 り 返 すこ と が た だ たびたび あり ます . ど うし た らい いで し ょ うか . ご 意見 を 待ち ます . P.S.O 


サテ ェ ・ ミ サイ ル 発 射 ・ 移 動 


閉会 の 辞 


ED Or E TAT ORI 


きた だ たい 。 9:9 


B602, 03 
B604, 05 
B608 ` 
B610 йо 
B620, 21 Жоғ x ° 
B622 X 値 
B623 Y 値 
28680 Фа. 
B9AF 
設 В9Е0- 
画面 右上 の 表示 BA3F 
デー タ ВА40- 
BA5F 
フル ー ツ ・ デ ー タ BBD1, D2 


敵 発生 ・ 移 動 & 敵 デー タ 
爆発 & 爆 発 デ ー タ 

敵 移動 パタ ー ン ・ デ ー タ 
敵 ミ サイ ル 発 生 ・ 移 動 


SCORE 
HI- SCORE 
サテ ェ の 数 


ジュ ジロ グラ が 
WAITE (ゲー ム の 定 速 化 ) 
星 描く 


デー タ 


表 1 メモ リ ・ マ ッ プ アド レス 


初期 設定 等 
SCORE 表示 
画面 設定 


HADI? 


M7— 2 
サテ ェ 描 く 

デー タ 

サテ ェ 移 動 

ザ サテ エー ミサ イル 。・ データ 


敵 ミ サイ ル ・ ワ ー ク 


フク ルーツ ・ デ ニタ の アア ' ド レス 


нн!) スト 1 さて らい つ G BASIC! д F ионов 


1 ІсМ%НВ604:РОКЕІ,9:РОКЕІ%1,9 ЕХЕСУНВ$81 : BUSUBBGG9 879 PRINT” | 11 1 

19 CLEAR469。&H94FF 559 FORI=0T030@: NEXT 889, PRINT ЕЕ == 

20 CONSOLEQ,16,@,@:SCREEN1,1,1:C 549 LINE(0,0)-(198,191),3,BF 890 РКІМТ" ted ja =a 

OLOR1, 1, 1:CLS 550 SQUND7 , HCE: PLAY"1 1406" 700 PRINT" ا‎ 69 

59 LOCATES, 5: РКІМТ" 222° Load" 560 EXEC&H957 の 9 910 PRINT! ры": МЕХТ: МЕ 
Во LUCATE12。7: BUSUB99G9 570 SOUND7,&HFE XTiEXEC&H1 9058 

99 LOCATE15,19kPRINT" オ シマ イ 。" FOR 589 IFPEEK(&HB62B) く >1THEN79@ 929 РОКІ=0Т01000: МЕХТ: 80Т0100 
1=0701000: МЕХТ 509 РЕМЖЖиии 22 ジコ ウリ ヨウ жәке 1000 РОКЕКНВВОВ, ó: РОКЕ%НВВОС, ёз R 
109 REM tf 619 (ОСАТЕФ,ФіРКІМТ" W"-rz" ETERN 4 

110 SCREEN 5,2,2:С010К,2,1:С15 620 РКІМТІРКІМТ" ¬ ma — — воде FRENMst オ ンカ " 2 A 

120 SCREEN 3,3,3:COLORZ, $, 1:CLS 559 РКІМТ" 1 1 11 Tl 1 B410 б%:!%20004в8т400094т2000еВҒ 
150 EXEC&HB21 昌 649 РЕ1МТ" | 1 ll | вазтвевав 

140 1=&HB6G2』 РОКЕІ, ©: РОКЕІ+1,0 650 PRINT" | | II HI | 8020 В%-"с4в8тіФдФсВт2оФФсВт1000 
159 5=1:РОКЕІ+6, 35: РОКЕІ+14,77 4689 PRINT" + а аа оЗЬВт2000Ь80о4сВоЗЬВо4св" 

160 EXECtH9810 679 EXEC&H?5AD: GODSUBB949 8950 PLAYA$+A$+B%$:RETURN 


170 
180 
190 
200 
210 


РКІМТІРКІМТ" жж 97549) жж" 


РКІМТ:РКІМТ" 


РКІМТ" 
PRINT" 
PRINT" 


---- 


91 
- 


220 РКІМТ" 
250 PRINT" 
249 РКІМТ" 
250 FRINTsPRINT:PRINT"Push <SPAC 
E> 

26@ FORI=1TO4:PRINT (60,59) , I,2 
270 IFI=1THENI=I+1 

280 ҒОКО-0Т019:А%-ІМКЕҮ%: A=STRIG 
(1):1ҒА%-" “ОРА=1ТНЕМ$ 90 

290 МЕХТ: МЕХТ: 65070269 

300 1=4:0=10: МЕХТ: МЕХТ 

400 REM***** START жин 

410 Т=УНВВОО:РОКЕТ, 1:POKEI-6, 80: 
РОКЕ1-5,0:РОКЕІ-4,252:РОКЕ1-5,2 
420 S=1: 1=&НВВО! ; РОКЕТ, KHAO: POKE 


| 

1 was 
Il ロロ 
1 
را‎ 


1+1, &НВЗ: М=0: GOSUB1 000 

тод REM«###« START2 жәнне 

510 SCREEN, 21LINE (9,0)-(198,191) 
, 3, ВЕ: SCREEN, 3 

515 LINE (0,0)-(198,191), 3, BF 


B8: 44 
91: 3E 
Bá: F3 
90:00 
08:55 
С3:2Е 
B6:EC 
2D: 40 
22: AD 
AD: 99 
22:12 
3В:6Е 
35:FD 
С9:С2 


675 POKE&HB62E, ©: GHSUE1999 

689 5=5+.5:РОКЕ%НВВОО, ІМТ (S) : I=& 
HEBD1 : FOKE&HE&10@, 77 

69% @=РЕЕК (1) +РЕЕК (I+1) #256+32: I 
-9=46504ТНЕМО=45984 

691 А-ІМТ(0/256):РОКЕІ,0-Аж256:Р 
OKEI+1,A 

692 I=&HBED7; О=РЕЕК (1) +РЕЕК (1+1) 
*256+10 

695 А-ІМТ(0/256)РОКЕІ,0-Аж256:Р 
OKEI+1,A 

694 EXEC&H9810:FORI=OTO0300: NEXT: 
BOTOS5@9 

709 КЕМжжжжжт 1, + 

719 А=РЕЕК (&HB6@8) : РОКЕ%НВЬОВ, A- 
1: EXEC&H9810: IFn=1THENBG9 

729 80Т0500 

800 КЕМжжж GAME OVER жж 

819 GOSUB8090:FORQ=0T0O1:FORI=3TQO 
16ТЕР-1:С(10К1:1.0САТЕФ, ё:РКІМТ" г 
аы | 

82@ PRINT" 

829 PRINT" 

849 PRINT" 

B59 РКІМІ" 

B40 PRINT" 


c? 
өө 
өз C3 


P.S. 宝 ピ ル ア ド ベン チャ ー が や り だ たい よー/。 不思議 の 森 の アド ベン チャ ー も や り た だ たい. 
(!/O11 月 号 に 自分 の は が き が 載っ て いる こと を 知ら ず に 友人 に 教え られ た MZ-721 ユ ー ザ ー の JJ9C Blues) 


8040 REMed Music 

80950 A$="04m1500s8f6r12f12m3000f 
бабтізФда12а%12ғ12а12т5оддаоға" 
8060 ЕФ="т15б0дебг 12+ 12т5000дёбеё 
8070 С%=А%+В%: Рі АҮСФ+" ғ одбабгёе" =: 


Р_АҮСФ+ "#2": RETURN 


B090 


PLAY "s14mé400004c1e1gloSc1" 


: RETURN 


9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 
9100 
9110 


REM Machine Load 
FORI=&HF878TO&HF8D1 
READA$:POKEI,VAL ("&H"+A$) 
NEXT 

EXEC&HF87C 

RETURN 
DATA1A,C3,06,1B,CD,9A,25,06 
DATAOS,CD,70,1A,fe,Af ,20,F7 
DATA10,F7,21,32,F8,06,06,CD 
DATA70,1A,77,23,10,F9,CD,06 
DATA1B,AF ,52,58,Е8,21,76,25 
DATACD,CF , 50,21 ,56,Е8,С0,СЕ 
DATA3O, Ср, 9А, 25, 2А, 52,ҒВ,Ер 
РАТА4В, 54 ,ЕВ, 1Е,00,Ср,70,іА 
DATA57 ,85,5+,72,25,06,78,Ві 
раАтА20,Е3,С0, 70, 1А, ВВ,СА,АА 
РАТА1А,Ср,АА, 1А,21,85,05,С5 
DATACF , 30 


FS 32 -@7 
ЗА дё Ве 
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412, 


リス ト 2 さて らい つ G マシ ン 語 リス ト 


оо: оо 
9Е: 65 
01:08 
00:00 
00:00 
9E:72 
91:06 
90:02 
90:00 
9E:7F 


91:02 
од: 00 
90:00 


9F』 CC 


(о) (о) PZA, 久しぶり に マイ コン ・ シ ョ ッ プ に 行っ て まい り ま し た . そこ に は ほとん どの マイ ユン, ワー ブロ, プリ ンタ が 勢揃い し て いる 宇宙 船 の 
(о) 中 の ょ よう な モダ ン な ショ ッ プ で すけ ど ( 大 阪 の ぼ ど ま ん 中 に ある ). そこ の 奥 の 方 へ 行く と , 各 ソ フト が 置い て ある コー ナー が あり ます . な ん と , 

最近 は , お ば さん 連中 が ソフ ト を 選ん で いる 時 代 な の だ ./ k, 叫び だ た だく な る よう な 光景 が 見 られ まし た. 買い 物 か ご を ぶら さげ な が ら テ ク 
сі ノ 談 を し て いた だ の で す / へぇ ーー と 感心 し て いたら , その 近く に 5.6 才 ぐら い の 男 の 子 が お 父さん と 一 緒 に や っ て き て , ある ソフ ト を 指さし , 


KIA, 


R= э? Мой: 


を 触っ た だが, 


ЗА: C9 
2 日 : CB 
18:Ср 
96:98 
Вв:Сі 
56:11 
48:Е1 
24:Е5 
01:53 
64:77 
Ö8: 7A 
10:93 
92:84 


20: C3 
С9:90 
58:СЕ 
59:57 
28: 9F 
20:07 
18:79 
10:08 
98:40 
99:91 
Bó:82 
47: BD 


34۸2 


Aé: A4 
10:04 
9 日 99 
9Ғ:25 
FE: D3 
32:74 
ОЕ: BD 
B9: Bé 
91:50 
20:10 
B9: DE 


11:27 


99:55 
99:74 
99:55 
99:71 
89:86 
89:71 
В9:С4 


Рю 


リス ト 2 さて らい つ G マシ ン 語 リス ト 


これ 買っ て よ /」 と 無邪気 に 言う の で す . ぼ く は ほほ えま し く , ふと その リス ト の パッ ケー ジ を 見 る と , それ は ENIX さ る ん の 「 女 子 


グラ フィ ックス の あの 速 さ は る す が だ っ た . 


その 後 , その ぉ 父 る ん は 「 し ょ う が な いな あ … は は っ 」 と, さいふ に 伸 びる 手 が は ず む . P.S. 初 め て 三菱 の MULTI8 


(ビタ ミン N-88) 


Ріо 


リス ト 2 さて らい つ G マシ ン 語 リス ト 
05 OF ӨЗ FF 15 88 16:ЕА 2 と 19:СЕ 
2 95 11:02 6 と С 2 B8:E4 

DiF9 7 2 90:40 

95:8С 9 C 2 2F:1F 

ФЕ: FF 27 と F9i 14 

94:59 2 OB: CE 

1F:5E ОА: Ее 

Ғ1:27 88:50 

88: BÖ 2 97:CD 

OA: ва 2 5% FF:FC 

98:65 OF: AD 

o8: OF 2 2 0 ЕЕ 07:01 


двни 2 
O5: 07 ов е 22 2 Анев 
FF: 68 ОЕ 2 9 ABIO 
11:74 gF û AB9H 2 
D8: 92 х 9 Авад 
O5: BB р ; АВАВ 
05:55 Ç ABBO 
14: 6A k C С ABEB 
98: oA ABCO 
95:09 2 ABCE 
09:35 2 9 9 95 9 ABDO 
00:43 $ РӨ ӨЗ F ABDB 


72:35 


өө: 5A 

91:80 2 12 қ Асов 
16:80 2 9 9 6 5 асіө 
Ob: GA : ; AC18 
ö6: OA > 9 ас2о 
1Е:45 қ 7 өө @1 22 ас>в 
F1:4F BO е 2 асзо 
18:87 eo Ө эр е : асзв 
әд:рр э е | ое ос ee Ac40 
ОЕ: 6E 3 oO OO өө өө өө оо: ое асав 


88: 6 3 2A СУ: ВЫ ACSO 
98:87 3 2A CF:92 AC58 


OC: 6B 

F1:31 ý 

1F:4D 2 р 2 DÖ: ت‎ асов 
11:69 2 © ACAO 
FF: ОВ 2 2 АСАВ 
18:09 Қ н 2 Š ACHO 
OB: SD k р ое > у ACB 日 
9С:15 < ассо 
95:26 зе 2: B2 АССВ 
14141 2 2 7 асре 
ACD8 
ACEO 
ACE8 
АСЕӨ 
АСЕВ 


>77--У. д, な ん で 泣い て いる か っ て ? それ は ね ーー. 僕 の 88 の キー ボー ド が , 修理 に 出 そ う と 持っ て 出 た キー ボー ド が 山手 線 の 網棚 
に 乗っ て 旅 に 出 ちゃ っ た よ …. どなた か 、 心 あたり の ある 方 ( 朝 8 : 00 ご ろ で す ) PiO へ ご 連絡 を . と ころ で , PC88 の 640 х 400 ディ スプ レイ 
で の ボー ダー カラ ー は OUT &H52, (パレ ッ ト 番号 ) で 出 ま す ( た だ し 画面 が に じ む ). P.S.1. Xevious の 逆 字形 に 基地 (ログ ラム etc.) が 並び , 
ドモ グラ ム が 中 央 を 走る と ころ の 手前 の 森 の 左 は し の namco マ ー ク に は な に か 深い 意味 が ある の で し ょ うか ? また , 隠れ キャ ラ の 出し 方 ( フ 


оо 


リス ト 2 さて らい つ G マシ ン 語 リス ト 


91:28 
СА: 64 
СС:РЕ 
92: BC 
CBs 日 
СЕ: 97 
@2:8B 


CB:D5 
D8:B3 


32:9D 
B6s АВ 
С9: Аё 
90: А5 
ре: ір 
21:30 
Со: А1 
Ср: вз 
20: oA 


テン ト h, Rete.) を 知っ て いる 方 , 教え て くだ さい よ . h. Р.5.2. 8801 の アル フォ ス の 地下 弾薬 要 密 (と 書い て ある )" ス キャ ー ク ロ ・ ペ ベ ペース” 
は , ゼビウス の ツル の よう に 生え て 《 る の で すか ? そう な ら 場 所 を 教え て て だ きい. 巨大 要 寒 ( ?) ア ルフ ォ ス (と 見 られ る も の ) ま で 行っ た 
けど 1 つも 見 つか り ま せん . (The Hurry) 
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うと っ て も PID な ゲー ム 


み PC-00 1 /mkII/B80 1 


マシ ン 語 (N-BASIC モ ー ド ) 


エイ リア ン ・ プ ラ ネ ッ 
š = 


ES 


21X Xx 年, エイ リア ン の 地球 攻撃 は 日 々 
その 激 し さ を 増し て き て いた . どう や ら 太 
陽 系 の 近傍 に 彼ら の 前 進 基 地 が 構築 され た 
らし い . 

バト ロー ル 中 の あな た は , ЗЕМ 
< で, 彼ら の 人 工 惑星 『 エ イリ アン ・ プ ラ 
ネッ ト 」 を 発見 する が , 惑星 上 で は 地球 に 
対す る 総 攻撃 が 着 々 と 準備 され , 今 し も 発 
進 せ ん と し て いる と ころ だ . 

味方 の 増援 を 待つ こと は で き な い . 反撃 
し て くる 衛星 群 を 破壊 し て , 彼ら の 地球 総 
攻撃 が 始ま る 前 に 。 縛 妖 は 惑星 を た た ける か ! 


JUST‘ TYF E 
起動 方 法 


エリ ア : 8С00Н —СЗЕЕН 
スタ ー ト : MON [RETURN 


* L [RETURN 
ж G8COO RETURN 


[SPACE] ------- ビー ム 砲 発射 
|@RPH|……… Bh tau 7 ON っ OFF 


How to play 


『 キ ー ボ ー ド 症候 生 締 の 方 に は 不要 か と 思 
いま す が 。 念 の た め に 遊び 方 を 説明 し ます . 

ビー ム 砲 で きま ざま な 速度 ・ 方 向 て 自転 ・ 
公転 する 衛星 を 次 々 に 破壊 し ます . ほぼ 中 
央 部 に 命中 し な いと , 破壊 で きま せん . HE 
壊さ れ た 衛星 は , 分 裂 し て 数 を 増やし な が 
b, 次 々 と 外側 の 軌道 へ 出 て きま す . 

衛星 軌道 し と あな た の スペ ー ス ・ シ ッ プ ' の 
間 に は , すい 星 源 を 浮遊 する 放射 能 雲 が 流 
れ て いき , ビー ム 兵 器 を 中 和 し ます . すべ 
て の 衛星 を 破壊 する と, 惑星 の バリ ア が 消 
減 す る の で , 中 央 部 を 狙っ て 撃っ てく だき 
о. 惑星 に 命中 時 に 残っ て いる カウ ント が 
BONUS 得 点 に な り ま す . 

この カウ ント が ゼロ に な る 前 に , すべ て 
の 衛星 と 惑星 を 破壊 で き な い と , エイ リア 
ン の 地球 総 攻撃 が 始ま り , あな た の 任務 は 
失敗 に 終わ り ま す . 

惑星 本 体 か ら 狙 い 撃 ち し て くる ホー ク ・ 
ミサ イル に は 特に 注意 し て くだ さい . バリ 
ア も 雲 も 。 すべ で て 貫い て 狙い 撃ち し て きま 
+. 残念 な が ら あ な た だ の 宇宙 船 で は 逃げ る 
し か あり ませ ん . それ か ら , 最 外 軌道 か ら 
きら に 飛び 出し て , と き お り 接 近 し て くる 
衛星 が あり ます . 

これ を 撃つ と , SCENE 数 に より 100 一 
1,200 点 の BONUS に な り ま す . 

あま り 攻 撃 し て こない よう で す が 終 局 近 
くに 現われ る これ を 撃つ に は , か の イン で 
ー ダ ー ゲ ー ム の 最後 の 一 匹 と の 対決 の よぅ 
な 度胸 が いる よう で す . 


ЗЕ 
ОҢА С 513 


最大 96 も の 衛星 Ж, ТЫНЫС Z G iZ G O J 
MU, ば ら ば ら の 速度 で . ば ら ば ら の 自転 
を し な が ら 動 か すこ と 自体 は る さほど 上 難しく 
は あり ませ ん で し た . 

それ より も 中 和 さ れる 兵器 と 何で も 貫通 
する 兵器 が あっ て , エイ リア ン 同 士 の 攻撃 
や 兵器 同志 の 衝突 を キャ ン モ ル し た り , ® 
中 し た エイ リア ン の 衛星 を 判定 し に いっ た 
り と いう こと を , リア ル タ イ ム に 処理 する 
の に 苦労 し まし た 。 


ЕН -- 
最後 に 予 年 
マー ク I が 出 て , UP 6 6001тКП i $É 

い 抜か れ て 落 目 の PC-8001 ユ ー ザ ー の 皆 さ る 
ん ::8001 で どこ だが た ご まで で きる と いう 
よう な 超 高 速 3 D 感 覚 の リア ル タ イ ム ・ ゲ 
ー ム を 開発 中 で す . 愛 機 を 『 バ ザー ル 』 に 
出さ る ず に 待っ て いて くだ る さい. 


エイ リア ン ・ プ ラ ネ ッ ト マシ ン 語 リ スト  mawwrr 


皆さん ん FM-7 で POKE & HFD38,1 を する と 面白 いこ と が 起き ます . それ か ら , 活用 研究 の FM-7 ボ ポー レー ト ア ッ プ ・ プ ログ ラム で , その 
後 の ボ ポー レ ー ト 切り 換え を ?PEEK( を HFDOF): POKE& を HEFDOF,.0 で すれ ば , プロ グラ ム を 消し て も 使え ます (マシ ン 語 領域 が 増え る ). それ 
か ら , KEY DATA も FD01 で 読み 込め ゆみ ます . この よう に FM-7 の 1/0O 領 域 (FD00 一 ) は と て も 面白 いも の が 多い の で , 一 度 FM- 7 ユー ザー の 方 は 
マニ ュ ア ル を 覗い て みて く 〈 だ さい . FM-7 に は この よう な こと まで 載っ て いる マニ ュ ア ル が 付い て いる の で も っ と 活用 し まし ょ う (残念 な が 


Рю 


エイ リア ン ・ プ ラ ネ ッ ト マシ ン 語 リス ト 


5, ここ に 書い た こと は すべ て FM- 8 で は 動き ませ ん ). REM: 文 が メタ メタ に な っ て どう も すみ ませ ん . 如 横 高 文 化 祭 の 数 学 愛好 会 の プー ス 
へ 来 て くれ た 方 々 、 ど う も あり が と う ご ざ いま し た . を みお が だ くん, て れ 原 くん いつ も THANKS./ (Let's Enjoy オ リエ ン テ ー リ ング /) 
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Рю 


エイ リア ン ・ プ ラ ネ ッ ト マシ ン 語 リス ト 


©) ТӨ), P 僕 は 情け な く な っ て し まっ た . 近ごろ の 子供 は パソ ュ ン = ニ ゲ ー ム と 考え て いる 、 ま 一 , それ で も 目的 が ある ぶん だ けい いん だ けど ,「 た だ ブ 
ー ム だ か ら 」,「 た だ な ん と な く 」 と いう よ ふう な 奴 ま で いる . お ん どり ゃ ー ナ イコ ユン を な め と ん の か . も っ た いな い . ナイ ユン 諸君 。 買う と き 

は 目的 , 用 途 な ど を よく 考え て 買お ぉ へ. P.S. を 一 いや 前 に 同じ クラ ス の 奴 に FM- 7 の こと を 話し た ら , 2 日 後に を いつ が FM- 7 の ユー ザー に 

な っ て いた こと を 知っ て し まっ た . 鳴 呼 、 時 代 は 変わ っ た な あ . (マイ ケル ・ セ ン べ ベロ) 


Рю 


エイ リア ン ・ プ ラ ネ ッ ト マシ ン 語 リス ト 


Ріо 


エイ リア ン ・ プ ラ ネ ッ ト マシ ン 語 リス ト 


つい に 私 の PC-8801 シ ステ ム に も ディ スク (TF-20) が 加わ り ま し た . カモ ッ ト と 違っ て アク セス は 早い し , モ ー プ 後 の ペ リフ ァ イ も 必要 な い 
L, 何と 言っ て も 長い プロ グラ ム を ロー ド す る 時 の イラ イラ する 気持 ちと ,「? TP Error」 が 出る あか も し れ な い , と いう あの 心臓 を 締め つけ ら 
れる よう な 気分 か ら 解放 ほれ た の が 嬉し く て 仕方 あり ませ ん . INT, プロ グラ ム を 作る の が 楽し て な り そ う で す . し か し , 学生 の 身分 で フ 
ル シ ス テム を 揃え る の は 碑 沢 で し ょ うか ? P.S. 土 木 研究 所 の S 5А, バイ ト で 来 て いた 筑波 大 の N さ ん か ら 借 り た 「 ス ター トレ ッ ク 」 の テー 
7, あれ は も と も と 私 の で す . 早く 返し て くだ さい . (1/02 月 号 p.296 に 載っ た 当時 の 悩み を 忘れ て し まい そう な バタ リロ 8 世 ) 


Дә, 


エイ リア ン ・ プ ラ ネ ッ ト マシ ン 語 リス ト 


Pio 


エイ リア ン ・ プ ラ ネ ッ ト マシ ン 語 リス ト 


РЕ F4 Bo 24 00 F5 ҒО 22 179 


茨城 県 福田 昭一 小牧 市 安部 信彦 


葛飾 区 山口 敏樹 野田 市 SARE 富山 市 中 田 泰司 


т) (о) と ゲー ム を や る た め た マイ コン で す が , や っ ぱり 使っ て いる と ゲー ム を 作り た く な り ま すね . けれ ども , 電卓 の BASIC で らい し か 知ら 
Ол Ол な い 私 に と っ て は と いう わけ で , アモ ャ ンプ ラ を か じ り 出 し た が な か な か 頭 に 入っ て くれ ませ ん 。 や っ ぱ , ゲー ム を や っ て いる の が 私 に 
Q は 似合っ て いる の か も . (FM-Seven) 


VIC-1001 


BASIC 二 マシン 語 


田 海 が 好き 


この VIC-1001 用 ゲー ム 『Mr.DAN」 は, 
VIC の 隠れ た 性 能 『 マ ル チ カ ラー モー ド 』 
を 使っ た ゲー ム で す . DAN の 慣 袋 で モン ス 
ター を ガス 中 毒 に し て や ろう / 
7075 

BASIC ТС, モン スタ ー の 移動 と 表示 
に マシ ン 話 を 使用 し て いま す . プロ グラ ム 
の 内 容 に つい て は , ЖІСТта”>А. т 
Y7, ЖСК, ЗЕ 
プル ー チ ン , 表 4 に ワー ク ・ エ リア の 説明 を 
示し て お きま すか ら 参 考 に し て くだ るい <. 

ЖІ プロ グラ ム ・ マ ッ プ 


画面 の 初期 化 お よび 初期 値 設定 1, 説明 
画面 設定 初期 値 設定 2 
メイ ン ・ ル ー チ ン 
LOCATE の 変わ り サ プ ブルー チン 
説明 

画面 設定 サブルーチン 
POINT を 描く 

DAN の 死 

| POINT を 取る 

面 の クリ ア 

Ея 

MUSIC £ DATA 

ゲー ム ・ オ ー バ ー 

BONUS デ モ 


LOCATE サ プル ー チ ン の X 軸 
LOCATE サ プル ー チ ン の Y $h 
DAN の 残り 数 

ミュ ー ジ ッ ク の カウ ント 
POINT の 種類 

POINT の カウ ント 
ЕйО2>7 

キー 入力 の コー ド 
DAN の X 軸 方 向 

DANO Y 軸 方 向 

Ех 

ERO Y Wà 

ラウ ンド 数 

スコ ア 

FUEL 

モン スタ ー の 数 

DANO X $å 
DANO Y ñ 


表 3 マシ ン 語 サブ ルー チン 表 


モン スタ ー 消 去 
モン スタ ー 表 示 

サブ ルー チン の コー ル 
Y 軸 追い か け 

X 軸 追い か け 
追い か け 処 理 
LOCATE サ ブルー チン 


EF 


ルー プ 

モン スタ ーX 軸 一 時 格納 

モン スタ ーY 軸 一 時 格納 

| モン スタ ー ク ラブ ーー 時 格納 

元 あ っ た V-RAM 値 一 時 格納 
元 あ っ た カラ ーRAM 値 一 時 格納 
DAN X 軸 格納 

DAN Y 軸 格納 


Уд Хм 
EZA — Yh 
モン スタ ー フ ラグ 
元 あ っ た V-RAM 値 
元 あ っ た カラ ーRAM 値 1 


) 太 力 方 法 ) 


BESEN = 

プロ グラ ム は デー タ と メイ ン に 分 か れ て 
いま 2 の 0 まお アー グダグダ を 次 力 ) じ EE で こう セ 
А-В 

Же, メイ ン を 入力 し デー タ の 後に モー 
FLT. メイ ン の 入力 で , 1000 行 以外 の 
REM 廊 は 入力 し な く て も プロ グラ ム は ほ 走 
$3. 

カセ モット か ら の 入力 は , ま ず デ ー タ を ロー 
ド し て RUN し ます . す る と , 自動 的 に メイ ン 
を ロー ド し ます か ら , ロード 終了 後 RUN す 
れ ば 説明 が 表示 る きれ ゲー ム が スタ ー ト U i+. 


FN EFN کر‎ 
де 
) MEU ее 
路上 に 落ち て いる 物 (ウイ スキ ー, マー 
ジャ ン バ パイ , マイコン, ЏО, エロ 本 ) を 


全部 拾っ て くだ さい . し か し , そう 人 簡単 に 
МАТЫ” ЖА. 65, >> 


ぱり し つこ く 追 いか け て くる モン スタ ー が 
いる の で す . 

DAN の 武器 は た だ 1 つ , 慣 袋 で モン スタ 
ー の 追跡 か ら 逃 れ て くだ さい , キー 操作 は , 
е, G 止 。 で それ ぞ れ 上 。 Т, &, Ж 
に 動き , SHIFT | で 尼 袋 を 置く か 尼 袋 を 
割り ます . 

DAN が モン スタ ー に 捕まる か , FUEL が 
な く な る . と 。1 А (12) БІ, 53 人 死 
ぬ と ゲー ム ・ オ ー バ ー と な り ま す . まだ , 5 
面 ク リア 後面 白く な い BONUS の デモ が あ 
b, まだ 1 面 に 戻り ます . 


Ж” Е Е; Жа 
ане 2: 45 
DAN の 数 は 30 行 の C の 値 で 変更 びき ます 
か ら , 好き な だ け 増 や し て くだ さい .。 まな た, 
200 行 の 乱数 の 値 を 小さき くす る と (最低 は 


3) モン スタ ー が 出 や すく な り 。 大 きく すす 
る と 出 に くく な り ま す . 


ST, 今回 の プロ グラ ム の 特色 で ある マ 
ル チ カ ラー モー ド に つい て 説明 し ます . こ 
の モー ド で は 1 キャ ラク タ に 4 色 (バッ ク 
の カラ ー も 合 め て ) まで の 人 色 指 定 が 可能 で 
FD, 通常 の B8X8 の キャ ラク タ が 8X4 
の キャ ラク タ に な っ て し まい ます . 

Са, 実際 の 使い 方 を 慣 袋 を 例 に し て 説 
明 し ます . ЕЗІ, マル チカ ラー モー ド だ 
と 図 1 の よう に 表示 きれ ます が , ハイ リ ジ 
モー ド (普通 に 表示 する 場合 ) だ と 図 2 の 
ょ うに 表示 る され る は ず で す . そこ で 、 マ ル 
チカ ラー モー ド で は 8X8 の キャ ラク タ の 
ЖР, 2 ドット ずつ に 分 け て 8X4 し と 考え 
て キャ ラク タ の 色 と , ドッ ト の 配置 を 行 な 
いま す ( 色 の 指定 は 家 5 を 参照 し て くだ さる 
い ). 

キャ ラク タ が で き 上 っ た だ たら V-RAM に 2 
の キャ ラク タ を 書き 込み ます . この 時 点 で 
は 図 2 の よう に どん な キャ ラク タ か わか り 
ませ ん . そこ で , その 場所 の カラ ーRAM に 
値 を 入れ る わけ で す が , その 値 を どの よう 
に 決め る か と いう k, ERDÊ, 00001101 
の よう に ビッ ト 3 を セッ ト す る こと に より 


129 


592 ハイ レゾ モー ド 


0 0 で て バック グラ ウン ド ・ カ ラー 


りり まで ボー ダー ニカ ラー 
1 0 で フォ ー グ ラウ ンド ・ カ ラー 
1 1 で 補色 


いま す (参考 に な っ た だ ろう か ? ). 私 は ゲ 
ー ム セン ス が 悪く 。 し ょ う も な い ゲ ー ム を 
だ くさ ん 作っ て いま す (良い ゲー ム が で き 
る の は いつ の 日 だ ろう …). こ の プロ グラ ム 
で モン スタ ー 処 理 の マシ ン 語 は 長 す ぎる と 
思わ れる か も し れ ま せん が 。 私 の 能力 で は 
これ が 限界 で す の で ゴ カ ン ベン. 


キル チカ ラー モー ド に し ます . また だ た 。 ピッ 
ト 2, 1,0 は フォ ー グ ラウ ンド ・ カ ラー に 


な り ま す (1 0 1 は 10 進 の 5 な の で 緑 に な 参考 文献 

5). 1) ば っ くま ん : “РАМСАМЕ; I/O'824E 6 
な お , 尼 袋 を 描く の は 行 番号 の 1020 行 で ゲー ム と し て は いま いち で す が 。 マル チ 月 号 

行なっ て いる の で 参考 に し て くだ さい . カラ ー モ ー ド の 使い 方 の 参考 に な っ た と 思 2) VIC-1001 USER'S MANUAL 


а х1 Mr. DAN DATA マシ ン 語 リス ト ООО 


Е51,0: : ‚25:Р y 515 DATA141, 243,27, 174,242,27,172,243 
же, POKESS, 0: POKES2, 25: POKES625 || Eg DATA2?7,32,168,27,162,8,169, 10 
30 Е061=7168707168+95 525 DATA129, 16,169,15,129, 18, 173,249 
50 RERDR:POKEI, 月 530 ПЯТЯ27,205,251,27,208,1,96,238 
60 NEXTI 535 DRTR249,27,76,85,25,234,234,234 
70 ҒОЮ1в7424707431:РОКЕ1,0:МЕХТІ 550 DATA234, 234, 234, 234, 234 , 234 , 234, 4 765 DATA234, 234,173, 244,27, 240,9, 2 
ENE EEE 

=64 : RERDR:P ‚Я: ,0,25,32,172,26,32, 32,85,26,32,0,26,234, 
де Пу уны 565 DATA25,96 780 DATA234, 234, 234, 234 , 234 , 234, 234,234 
110 FOR1=7072707152:READA: РОКЕТ , A:NEXTI 570 КЕМ-------------- 785 DATA234, 234, 234, 234, 234 , 234, 234, 4 
180 FORI=631T0635:REñRDR:POKEI,ñ:NEXTI 575 ГЯТВ173,248,27,205,243,27,208,1 790 DATA234, 173,250, 27, 205, 249, 27,8 
190 POKE198,5:CLR:NEM 580 DATA9E, 144, 26, 238, 243, 27, 174,242 795 DATAS. 169, 1,77,244,27, 174,249 
200 DRTR126,129,165,99,99, 129, 129,126 585 DRTR27, 172,243,27, 32, 160,27,162 800 ПАТА27, 173,242,27, 157,96,28. 173 
210 DATA24, 24,24,60, 102, 102, 60,24 590 DATAQ, 161, 16,201,7, 208,3, 206 805 DATA243, 27, 157,99,28, 173,244,27 
220 DATA124, 108, 108, 124, 124,84,84, 124 595 DATA243, 27,76,60, 26, 206,243,27 810 DATA157, 102,28, 173,245,27, 157,105 
230 DRTRO,28,22, 19,17, 127., 129,255 600 Т8Т8174,242,27,172,243,27,32,160 815 ПЯТН28,173,246,27,157,108,28,173 
250 DRTR225,66,68,232, 16,39,69,135 ‚|| 605 DRTR27, 162,0,161,16,201,7,208 820 DRTR249,27, 295, 251 , 27,208, 1,96 
260 DRTR255, 129,241,161,255, 139, 143,255 610 ПАТЯЗ, 238, 243,27, 174,242,27, 172 825 DRTR238,249,2?,?6, 177,26 
270 DRTRO,73,42,8,99,8,42,73 615 DATA243, 27, 32, 169,27, 162, 9, 161 830 КЕМ-------------- 
280 Т878255,171,213,171,213,171,212,255 || 620 ОРТВ16,141,245,27,161,18,141,246 835 DATA169,0, 133. 16, 133, 18, 169,30 
290 DRTR48,76, 146, 128,68, 130, 162,92 625 DATA27, 96,234,234, 234, 173,242,27 850 DATA133, 17, 169, 150, 133, 19, 138,24 
300 DATAQ, 4,21,25,21,8,8,42 630 DATA295,247,27,208, 1,96,176,26 855 ПВТН101,16,133,16,169,0,101,17 
310 287885,20,85,215,85,105,85,6% 635 DATA238, 242,27, 174, 242,27, 172, 3 860 ПВТЯ133,17,138,24,101,18,133,18 
320 DATAO, 0,0,40, 52,32,32,32 650 DATA27,32,160,27,162,0,161,16 865 DATA169,0,101,19,133,19,169,0 
330 REM-----CORD----- 655 ІГЯТЯ201,7,208,3,206,242,27,76 870 ПЯТ8141,241,27,204,241,27,208,1 
350 DRTR169,9, 141,249,27, 174,249,27 660 ТАТА145, 26, 206,242,27, 174,242,27 875 DRTR96,238,241,27,169,22,24,191 
255 DRTR189, 192,28,201,2,249, 45, 189 665 DATA172, 243,27,32, 160,27, 162,0 880 DATA16, 133,16, 169,0, 101,17,133 
360 DRTR96,28,141,242,27, 189,99,28 670 DRTR161,16,201,7,208,3,238,242 885 DATA17, 169, 22,24, 101,18, 133,16 
365 0878141,243,27,189,10%5,28,141,245 675 ТАТА27,174,242,27,172,243,27,32 886 ПАТА169,0, 101,19, 133, 19,76,203,27 
370 DRTR27,189,198,28,141,246,27, 174 680 DRTR169,27, 162,9,161,16,141,245 889 КЕМ-------------- 


DATA141,242,27, 169,9, 141,243,27 
735 DATA169,32, 141,245,27, 169,0, 141 
750 DATA246, 27,76, 79, 27, 234,234,234 
755 DATA234, 234, 234, 234, 234, 234, 234, 234 
760 DATA234, 234, 234, 234, 234 , 234, 234,234 


42, 243, ‚160, 685 ПАТЯ27, 161,18, 141,246,27, 96,234 890 ПАТЯ?6, 79,65,68 
253 AA А е 690 DATA234,234,234,234,169,0,141,249 895 DRTR13 
385 DRTR246,27, 129, 18, 173,249, 27, 205 695 DRTR27, 174, 249,27,189,96,28, 141 900 КЕМ 
390 DATA251, 27,208, 1,96,238, 249, 27 700 ПАТА242,27,189,99,28,141,243,27 910 КЕМ Ж MR. DAN ж 
395 DRTRZ6,5,25,234,234,234,234,234 705 DATA189, 102,28, 141, 244,27,189, 105 920 КЕМ 


710 DATA2S, 141,245,27,189,108,28, 141 
715 ПАТЯ246, 27, 173,244,27,201,2,208 
720 DATA36, 173,250,27,205,249,27,208 
725 ПАТА25,169,0,141,244,27,169,10 


а リス ト 2 Mr. DAN BASIC リス ト БЕКЕР ТШ Ы БӘ EREN 


120 0051/81500 
130 Я=1 :В=1 :00$08999 :РАТНТ"А SCORE"; $: Am 
1 


15: B=1 : GOSUB999:PRINT"R DAN"; C 
tt 


500 DATA169,0, 141,249,27, 174,249,27 
505 DATA189, 192,28,291,2,249,31, 189 
510 DATA96,28, 141,242,27, 189,99,28 


930 REM DATA LIST 
REM 
960 КЕМ BY FOOLSOFT 


10 POKE36869,255 : POKE36878,63 
20 РОКЕЗ6879,0#%16+8+4 

30 S=0:C=2:R=1 :РОКЕ7163, 0 :Р=1 : 0=50 : mg 
50 A$="+06Q | 1000 | IGOA | 100":0%-"000000000 


310 IFKm21THENIm-1 : Ns 
320 IFK=22THENM=1:N=0 
330 IFK=13THENN=-1 : Me9 
350 ТЕК=З7ТНЕНН=1 : MmQ 


CET т. t 177717177 355 005085000 
QQQQQQQQQQQQQ" 150 FeX:BmY:G0SUB999 :РАТНТ"Е@" 360 V=PEEK(7680+(X+M)+(YV+N)022) 
7771777177777 t 370 IFV=?THENM=0:N=0 
60 РКІМТ"е" 160 GOSUB1800 


390 ñ=X:B=y:00SUB999:PRINT"R " 
178 Re1:Bw21:008UB999:PRINT"RIFUELw 11111 + 
нее 


ШІНШІ 
180 FORTe1T0799 :NEXTT 

200 РОКЕ?159,Х:РОКЕ?160,Ү:РОКЕ?162, INTCR 
ND〈1 2%30) 

210 SYS6569 

220 IFPEEK(7689+X+Y*22)=10THEN2999 

230 IFHm1THENPOKE7689+0+PW22,9 :POKE38499 
+0+Рж22,13 

300 0ЕТВ%:КеРЕЕК( 197) 


+ 
78 GOSUB1 000 


500 Х=Х+М: Yay+N 
80 РКІМТ"Ф":РОКЕ19,0 
+ 


. 
510 ñsX:B=v:00SUB999:PRINT"E@m" 


^ 
520 IFV>9HNDV く 6THENG0SUB2599 

550 IFG=9THEN3999 

560 IFV=19THEN2999 

570 КеРЕЕК(653) 

580 IFK=1ANDH=OTHENPOKE36876, 250: H=1 :О=Х 
:Р«Ү:РОКЕЗ6876,0:0070600 

590 IFKm1RNDHm1THENG0SUB3509 


90 ҒОК1»0702:РОКЕ?270%1,2:РОКЕ?264%1,0:Р 
0КЕ7267+1,0:МЕХТІ 

100 0-15 

110 Ха17:Үш|9:Неф:Па|::Маф:Ңай:КЕ5ТОКЕ:Р 
OKE7163,M 


トマ リオ プラ ザー ズ に つい て .。 ちょ っ と 古い ゲー ム で す が , 面白 いこ と を 発見 し まし た . まず 2 人 用 で ル ィ ー ジ が 「POW」 の 上 に の り , マリ オ は 
「POW」 の 右 下 に つい て くだ さい . ELT, 2 人 で 同時 に Jump し て くだ さい (マリ オ は ルイ ー ジ を めがけ て , ルイ ー ジ は その 場 で )。 成功 すれ ば 
ルイ ー ジ は フロ ア の 上 に くっ つい て し まい ます . P.S. 乱 文 失礼 し まし た . ( 頭 の ハゲ て る ル ィ ー ジ ) 


600 005085000 

610 RENFORT=1T039 :NEXTT 

620 UsU-. 05 

630 RsINT(U)+5:Bs=21:G0SUB999:PRINT"R " 
t 


650 IFU<C1THEN2000 

702 0070200 

999 PRINT"S";LEFT$(D$,B);SPC(R);:RETURN 
T 


1000 КЕМ 
1010 PRINT"S1111111JQRrM-KR. DAN" 
1T + + 
1020 РОКЕ?708,9:РОКЕЗ8428,13:РОКЕ?717,9: 
POKE38437, 13 
1030 PRINT"S]]QQQQR AKKEY" 
1441111111 
1050 ñs8:B=6:G0SUB999:PRINT"REPQIIIQIIII 
TE TF МТТ 


ELI --E-ØRI --E;Q I 1I IK IQIE." 

1440 41 + 141444 М 

1060 Я=14: Bag: 00508999 : РАТНТ "ВНЕ *=ESHIF 
+ ott 
1078 Am2: Bs12: 00SUB999: PRINT"R+WP0INT" 


++ 
1080 ñs4:Bs=14:G0SUB999:PRINT"IñRR+::10 PO 
Ta 


INT" 

1090 PRINT"])]JnBRe: 
11111 м 

1108 PRINT"J)JJCR<::30" 
мм м 

1110 РАТНТ" 1714084: 
ММ 1 

1120 PRINT"]]]]wER: 
м7 м 

1130 PRINT"JJJJJRė: :ALIEN 100 POINT" 
М 

1150 РОКЕ8102, 18:Р0КЕЗ8822,15 

1160 Re2:Bs21:00SUB999:PRINT"R や -S^KEY Т 

м 


:20" 


40" 
зе" 


0 STRRT--" 

1170 0ЕТС%:ІҒС%<>2"5"00701170 

1190 RETURN 

1500 FORI=1T018:ñsI:B=3:G0SUB999:PRINT"*f 
t 


0":Ве20:005/8999:РКІМТ"0" 

1510 NEXTI 

1520 FORI=4T019:ñ=1:B=]I:G0SUB999:PRINT"G 
":А=19:00508999:РКІМТ"0" 

1530 МЕХТІ 

1550 FORI=3T015STEP3:fRe1:BmS:G0SUB999:PR 
INTAS : 3=10:00508999 :РАТНТЯ$ : В=15:00$4899 


9 

1560 B=15:00SUB999:PRINTAS :NEXTI 

1570 ñ=s10:Bs10:G0SUB999:PRINT"I О" 
1 


1590 RETURN 
1800 ON R 00701810, 1820, 1830, 1840, 1850 
1810 Е%-"ІН":00701860 
+ 
1820 Е%я"«В":00701860 


+ 
Е%а"ЧС":00701860 
+ 


Es=" 10" :00701868 
+ 
Еве" п" :00701968 


t 
FORI=1TOG 
ReINT(RNDC(1)816)+2:B=INT(RND(1 816) 


IFPEEK(7680+R+B#22)<>3260T01870 


1885 IFR=10ñNDB=9001018?0 

1890 60508999 :РЕТНТЕ$ 

1900 NEXTI:RETURN 

2000 ВеХ:В«У:005/8999:РЮІМТ"7Ғ” :РОКЕЗ68? 
1 

5,0 

2018 FORI=1T020:POKE36874,160:FORT=1T010 

:МЕХТТ:РОКЕЗ6874, 0: NEXTI 

2820 ІСеФТНЕН2500 

2030 C=C-1 

2050 FORT=1TOS0Q:NENT 

2090 007080 

2500 РОКЕЗ6876, 232 

2510 0=0-1:5=5+#10 

2520 POKE36876,238:ñ=6:B=1:00SUB999:PRIN 

T"R'S 

м 

2530 POKE36876,9 

2590 RETURN 

3800 P0KE36875, B: F0RL=1T05: F0R1=168T0238 

STEPS 

3010 POKE36876,1:NEXTI/L 

3020 POKE36876,9 

3030 ñ=5:B=6:G0SUB999:PRINT"RECLR";R;"RO 
Т” 

UND" 

3050 Я=5:В=8 0058999 :РАТНТ"АЧВОМИЗ" ; INT 
м 


(U)W100:S=S+INT(U)#100 

3055 FORT=1T02999 :NEXTT 

3060 IFR=STHENR=1 : 605086000 : 00103080 

3070 R=R+1 

3080 MeM+1:IFM>2THENM=2 

3090 0ы50:007080 

3500 FmO:BmP:60SUB999:PRINT"wH" :POKE368? 
+ 


5,0 

2510 FORI=139T0229STEP3:POKE36874, 1 : NEXT 
1:РОКЕЗ6874,0 

3530 FORI=9TOM 

3550 7«РЕЕК(7264%1):беРЕЕК(7267%1) 

3560 IFJ=ORNDQ=PTHENR=0:B=P : 00SUB3799 
3570 IFJs0-1RNDQ=PTHENR=0-1 :BmP : 00508370 


9 
3589 IFJs0+1RNDQsPTHENR=0+1 : BaP : GO0SUB379 


9 
2590 IFJ=ORNDQmP-1THENR=0:BmP-1:00SUB379 
9 


3600 IFJsORNDQ=P+1THENR=0 : BmP+1 : 60508370 
9 
3619 NEXTI 
3620 FmO:BmP:00SUB999:PRINT"R " 
Ф 


3650 H=9:RETURN 
3700 G0SUB999:PRINT"EF" 


+ 
3710 FORZ=239T01?9STEP-19:POKE36874,Z:NE 
XTZ:POKE36874,0 
3720 РОКЕ?680%8%ВЖ22,РЕЕК(7273%1):РОКЕЗӨ 
490+R+RW22,PEEK(7276+1 〉 
3730 РОКЕ?270+1,2:РОКЕ?7264+1,0:РОКЕ?7267+ 
1,0 
3750 SmS+199 
9760 f=6:B=1:00SUB999:PRINT"RW'S 

м 


3790 RETURN 

5000 READE :POKE36875,E 
5010 IFD>31THEND=1 : RESTORE 
5020 DsD+1 

5050 RETURN 

5070 ПАТЯ227,0,236,0,232,0,228,0,0,227,2 
28,227,225,225,227,227 

5080 DATAR227, 0,239, 0, 236,0, 232,0, 0,227.2 


Рю 


リス ト 2 Мг. DAN BASIC リ スト 


28,227,225,225,227,227 
5500 На5:Ва6:0051/8999:РКІНТ"КТОЯМЕ OVER" 


11 
5510 ñ=5:B=8:00SUB999:PRINT"RS“KEY TO ST 
1 


ART" 
5520 0ЕТС%:ІҒС4<2"5"00705520 
5590 007010 

6000 PRINT"@" 


6010 Я=1 


+ 
:В=5:00508999:РКІМТ"Ет))) BONUS 
м t 


0008 meee" 
+ 


6020 Не1:Ве10:005/8999:РКІМТ"Е0212181248 
77 М 

11502270224" 

111 М 1 

6030 ñ=12:B=13:00SUB999:PRINT"I J" :РОКЕЗӘ 
1 


698,15 

6050 ҒОКТв170700:МЕХТТ 

6060 Mm1:Nm9:Xm1iVa19:R1mO 

6070 РОКЕЗ6876, 225: Я=Х: B= : 00308999 : PRIN 
T'R" 


+$ 
6080 POKE36876,9:XmX+M:Ymv+N:RmX:BmY:GOS 
8999 :РЕТНТ"Е@" 


t 
6098 1FV=10RND〈Xm50RXmBORXm110RXm140RXe1 
?)ТНЕМ005086900 
6100 IFX=17?NDV=10THENN=1:M=0 
6110 IFX=17NDv=13THENN=0:M=-1 
6120 IFXm14RNDY=13THEN:POKE7979,9:POKE38 
699,13:00706200 
6150 FORT=1T050:NEXTT 
6160 00706070 
6200 POKE36876,245:FORT=1T010:NEXTT:POKE 
36876, 250 :FORT=1T010: NEXTT : POKE36876, ð 
6205 ЕОКТ=170100:МЕХТТ 
6210 Рв13:В«13:005/8999:РКІМТ"еН" 

1 


6220 FORI=139T0239STEP2 :POKE36874, 1 :NEXT 
1:РОКЕЗ6874,0 
6230 Ғч12:Ве13:0051/8999:РКІМТ"ЕР" 


+ 
6250 FORI=235T0179STEP-5:POKE36874,1:NEX 
TI :POKE36874,9 

6269 A1=A1+4000 :00SUB6999 :S=S+R1 

6290 FORT=1T02099 :NEXTT : RETURN 

6900 POKE36876, 230 :R1=R1+1999 :POKE36876, 


249 
6910 Rm10:Bm5:G0SUB999:PRINT" R"A1 :РОКЕЗ 
1 


6876, 0: RETURN 

9000 КЕМ 

9010 КЕМ ж MR. DAN ж 

9020 КЕМ 

9030 КЕМ BñSIC LIST 

9050 КЕМ 

9060 REM-BY FOOLSOFT- 


〇 プロ グラ ム 入 力 時 の 
この リス ト 中 て 次 の よ Н に 1 印 の 部 分 は , 全て 反 
転 文字 の 所 で す 


10 PRINT"ES] IQehRyAE\ う 2 人 vm" 
МАМАМ 
下 の よ うに 反転 文字 で 入力 し て くだ さい . 


10 PRINT" RAMNES" 


Е 
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13 
VIC-1001+VIC-1211M 


METEOR F 


メテオ ・ フ ァ イ ト 


"ІІ 


| ЕЕЕ 


2235 年 3 月 28 日 , 国連 宇宙 軍 火 星 基地 に 
タイ タン の 観測 所 か ら , 正体 不明 の 宇宙 船 
団 が ガニ メデ 基地 を 攻撃 壊滅 さき せ た と の 連 
絡 が 入っ た . 

UNSA は 急 還 地球 で 迎撃 艦隊 を 編成 する 
と と も に , 高 性 能 エ ニ ヒ レ ー タ 砲 を 搭載 し た 
最新 鋭 宇宙 戦闘 機 「MARS- I 』 を 派遣 し た . 
や が て MARS- 1 の 乗員 の 眼 の 前 に 出現 し た 
の は , 大 随 石 群 に 隠れ て 移動 する 宇宙 船団 
だ っ た …… 


遊び 方 


RUN で スタ ー ト し ます . まず UFO が 出 
Ж), タイ トル を 表示 し ます . ELT, U 
FO が 去っ た と ころ で キー を 押す と ゲー ム 
が 始ま る の で す が , 少し 待っ て くだ さい . 

する と 次 は , キー 操作 の 説明 が あり ます . 
f5| で 上 昇 , |f7| で 下降 , [SPACE] で 発砲 と な 
り ま す が 。 この デモ の 間 だ け , Е 
カラ ー の 選択 が で きま す . 

次 に SCORE ADVANCE TABLE O 


示 が あり , 少し し て 実際 の ゲー ム 画 面 の デ 
モ が 始ま り , 一 定時 間 た つと 最初 の ず モ に 
戻り ます . 


この 4 つの デモ の 間 に 何 か キー が 押さ れ 
る と , READY 表示 に な り , さら に キー を 
押す と ゲー ム が 始ま り ま す . 

4 種 の 敵 機 は それ ぞ れ 特徴 的 な 動き を し 
$3. また 得点 に も る 違い が あり ます が , & 
計 64 機 破壊 すれ ば 一 面 ク リア に な り ま す ( 残 
り 数 は 画面 左下 に 表示 る れ ま す ). 

ちな み に 作 者 の 得点 は 5 面 の 76,850 点 で 


入力 方 法 


リス ト を その まま 入力 で きる シス テム を 
持っ て いる 人 は , ご くわ ず か だ と 思い ます . 
そこ で , 1/O に 発表 され た モニ タ を 使う 方 
法 を 紹介 し ます . 

用 意 す る も の は EX・MON (1/0, "82 年 5 月 
5), H・MON( 同 11 月 号 ) と , テー プ 32, Z 
れ に チェ ッ ク サ ム ・ ブ ログ ラム で す . 

モニ タ は BASIC の DATA 文 の も の で は 
な く , マシ ン 語 と し て 生成 され た も の を 用 


132 


きま くり , 最後 に Еч 
2 年生 な ん て 嫌い だ あ 


---М2-1200, совы SP-5030 で も 上 記 の よう に USER($30, A$) で 同じ こと が で きま す . 


NKU E ыу; 


J ШИШЕ; = 


ФІОАО" ”, 1, 1 と し て EX・MON を 
読み 込み , SYS4109 で 起動 し . リス ト 1($ 
0400 一 $05FF ま で ) を 入力 し て くだ さい . 
@POKE45, 
テー プ 1 に セー プ し て て だ きい: 
LOAD で H・MON を 読み 込み 、 SYS1038 
で 起動 し . リス ト 2 ($0600 一 S1DFF ま 
で ) PAPET IESI 

チェ ッ ク ・ サ ム を も ロード し , サ ム を チェ ッ 


ク し て くだ さい. 値 が 違う 場合 は , Өх 
ме 
е. 0 : POKE46, ЗОВЕТ] Е し た 


後 、 フ ァイル ・ илы e 
セー し て くだ 

テー プ 1 SN じ て く だ きい : 
@POKE45, 0 : POKE46, 30IRET| РОК 
E51, 22: POKE52, 30[RET| POKE55, 
22: POKE56, 30 RET| [SHIFT] 上 [CLR| [RET] と 
打ち , SAVE “ファ イル ・ ネ ー ム ?。 1, 1 
で テー プ 3 ヘ モー プ し て くだ さい 


RUN し て みて くだ さい . ちゃ ん と 走れ ば 
言 ウ に と が し 。 FIT, ВОД 
も し 竣 走 し た ら , 2-21, 2 を ロー ド し, 


チェ ッ ク し て モ セーブ し な お し 。 テー ジ 2 。 
1 の 順に ロー ド し て へ 戻っ て くだ さい 
注意 …… テー プ ' 3 ヘ モ ー ブ する まで 絶対 に 
RUN し な いこ と . 

どう し て も だ め だ っ た ら PiOPiO に で も 
お 知ら せく だ さき さい. 


プロ グラ ム の 説明 


この プロ グラ ム で は マル チカ ラー モー ド , 
1 ドッ ト ご と の 移動 ( 縦 方 向 の み ) と いう 
2 つの テク ニッ ク を 使っ て いま す . 特に 後 
者 の 方 は 説明 し た く て ウズ ウズ し て いる の 
Ст», 入力 法 を 詳し くし すぎ た せい か * 紙 
面 が 残り 少な い の で 割愛 する こと に し ます . 
な お , この 表示 シー チン は $1A00 か ら で す 
DT, 興味 の ある 方 は 解析 し て みて くだ さ 
б, 


SETOSA マッ ピー50 万 いっ た . 


0 :POKE46, 6 [RETI と し た 後 , 


と つて も 大 切な お まけ 


多く の VIC ユ ー ザ ー に 遊ん で も ら え る よ 
うに , この グロ グラ ム は 少し 細工 が し て あ 
り ま す . な ん と , この ゲー ム は 本 体 の み で 
も 遊べ る の で す . やり方 は , リ スト の $1000 
ー$1DFF を その まま 入力 すれ ば OK で す . 
デモ 等 は 全部 前 られ ます が ,。 ゲー ム の 内 容 
は 同じ で す . VIC1213 の ある 人 は それ で , 
な い 人 は 1/O"82 年 5 月 号 の パッ クマ ン の 記事 を 
参考 に EX・MON で 入力 し て みて くだ さい . 
も ちろ ん , 8K で セーブ し た テー も 本体 
の み で 読む こと が で きま す . た だ し , 時 間 
は 8K の シス テム と 同じ だ な だけ か か る の で て, 
1 度 ロ ー ド し た ら 別 の テー プ に セー ブ し て 
Еа се ЗЕ 


最後 に 


それ で は VIC ユ ー ザ ー の 皆さん , その 他 
ソフ ト 自 作 派 の 皆さん , お 互い が ん ば り ま 
899% 

Оёжу 

1) “VIC メ モリ ー マ ッ プ "“VIC デ ィ ス アセ 
ンプ ルリ スズ スト" “VIC ゲ ー ム ブッ ク ",“ 
レク トド トロ ニー クス ダイ ジェ スト 『。 

2) “ROM ル ー チ ン ", VIC! 78, コモ ドー 

Ж қ 
) “地獄 の 黙示 録 ", I/O, "81 年 9 月 号 
注 : $ 08А0— $0A00 は 空き で す . 4 Za 4 

ステ ィ ッ ク も 使え ます .&& チ ェ ッ ク ・ サ ム 

の アド レス は 10 進 で 入れ て くだ さい . 


BRA DEK ` > RADER / 


> MZ-80B/2000 の BASIC で , MUSIC 廊 の 代わ り に A$ に MUSIC DATA を 入れ , USR($ F3F,A$) Е + 5 L BREAK KEY に よっ て BASIC プ ロ 
グラ ム を 止め す に 音楽 を と ば すこ と が で きる よう に な り ま す プラ ザ や PiOPiO に 載る 方 法 . 始め に ワン ポイ ント ・ テ クニ ッ ク を 書き , 書き た いこ と を 書 
ゼビウス 600 万 いっ た . 


疲れ ただ. マッ ピー300 万 点 , ゼビウス 1 千 万 点 出す 小学 


(最近 仕事 が 多く て 昔 の 原稿 を 見 て は くじ け て いる 自己 嫌悪 に 落ち いっ て いる ぱっ くま ん ) 


( 編 ) 


ФО 


о» 


.:0400 00 55 04 :0469 A9 08 8D DQ 03 19402 8D 40 
1 :046Е A9 AG 8D RS 10 10407 Өр 41 

:94DC 8D 42 
:94E1 BD 44 
:04Е6 8D 45 
:04ЕВ 03 4A 
:94F9 02 A9 
.:04Ғ5 03 20 
:@4Fñ 20 20 
.:04ҒҒ 40 03 
10504 Е4 18 
10509 06 20 
1050Е 23 AO 
10513 СВ A9 
10518 18 AD 
10512 A9 80 
.:0522 CO 8D 
10527 00 1А 
.:052С 00 18 
.:053! 70 E6 20 C2 1A 
:0536 A9 20 ВС 50 1B 


0608 29 07 8D 15 өз AD DQ өз 29 F8 өр DS 03 8D DG 03 : 7B 0900 FB ҒҒ 
0610 ЕЕ 17 03 10 21 AD 08 23 DQ B2 ЕЕ 14 ӨЗ AD D4 03: QC 0900 FF F? 
0620 С9 09 90 05 A9 00 зр 14 өз AA BD 10 оя ер 15 өз : DA 09Е0 ҒҒ FB FB 
0630 8ND DA 93 ЕЕ D8 03 ЯП DQ 03 8D ОҒ 90 81 31 12 8D : 32 09Ғ0 FF FF FF 
0640 С8 19 AD 26 03 DO 85 60 ЕЯ ER ER ER ЕЯ ЕЯ ER ER : ЄС 
0650 СЕ D2 03 FQ 01 60 CE 16 ӨЗ A2 00 BD QQ 1E C9 ІР : 00 0800 Е? 7F FF 
0660 FQ QB BO QE C9 1С 90 OA FE 00 1E 19 05 АЭ 1С 9D : 8B 88 98 
0679 00 1E E8 DQ Еб BD 00 ІҒ C9 1F ҒО ОВ BO QE C9 1С : 1E 9R29 00 00 
0680 90 AA FE 00 IF DA 05 A9 1С 9D 00 ІҒ E8 DO E6 60 : еВ 9R39 ер 12 
0690 89 27 AQ ӨВ 20 1E СВ A2 3F BD 70 1B 9D QQ 1C СЯ : 35 0840 53 54 
0680 10 F7 A9 QR вр св 96 3D C9 96 АЭ ОҒ 8D OA 97 8D : 05 0850 10 10 

0680 OB 97 A9 OC 81 4С 97 81 41 97 A9 QE 81 8E 97 81 : 2E 0862 11 
06С0 ЯҒ 97 R9 80 BD D6 03 A9 QQ 85 C6 58 СЕ D3 03 DO : ?5 0870 4F 
0600 ЕВ A9 20 81 13 03 20 50 06 AD 16 03 FO 07 AS C6 : 85 9R89 
06Е0 FO ER ЕЕ D1 03 60 Eñ CE DA 03 Ғе 37 DO 1F EA ЕЯ : ?B 9R99 
06Ғ0 A9 14 ВП DA өз 20 BC 11 20 30 12 20 70 08 СЕ 13 : AF 9RRG 
OARA 
0700 03 DO FB A9 Ве 8D D3 03 СЕ D6 03 FO 19 20 EG 18 : 02 9RC9 
0710 20 R8 16 20 4B 16 20 6A 18 20 20 18 AS C6 FQ DE : A2 enng 
0720 ЕЕ 11 03 4С 60 08 A9 ED AO ӨВ 20 1Е СВ A9 OF 9D : 605 @RE@ 
0730 QE 90 А9 00 85 C6 A9 CO BD AD 90 8р QC 90 AJ 20 : 17 @RF@ 
0740 81 D3 03 СЕ 13 03 DQ FB 20 50 06 СЕ 19 03 DO EE : BO 
0750 A9 10 Өр 29 03 ЕЕ 0С 90 ЕЕ QD 90 DQ El AD QE 90 : 33 овоа 
0260 38 E9 04 30 19 81 0Е 90 AS C6 FQ СЯ АЭ 00 GD OC : F? 0810 
0770 90 вр ор 90 60 A9 00 вр өс 90 GD ер 90 ñ9 20 8D : 6C 0820 
0780 13 93 СЕ 13 03 DO FB 20 50 06 AS C6 FO EF 60 ER : 4F 0830 
0790 A2 QB HO 04 18 20 ҒО FF A9 E9 ñQ 19 20 1E СВ A2 : 65 0в42 
0780 05 89 FF 20 00 18 СЯ DA F3 AD 94 ӨЗ CD AS 03 90 : CO ersa 
0780 19 DA 98 AD 93 ез CD A4 03 90 ОҒ AD 93 ӨЗ 8D A4 : BB 0В60 
0700 өз AD 94 03 8D AS 03 20 D2 07 A9 00 8D D1 03 60 : DF 0870 
0710 ЕЯ ЕЯ A9 СЕ PQ ес 20 1E СВ A9 7D 65 01 АЭ QD 85 : E? ове? 
0?Е0 02 R9 26 85 FB A9 1F 85 FC ñQ 00 20 50 08 ñQ QQ ' 52 0в90 
@?Е@ ЕЯ Ві 01 8D ес 90 СӨ B1 01 8D ӨВ 90 СӨ В! 01 AA : 8B 9BR9 
ORBA 
0800 R9 58 20 00 18 CA DO ЕВ А5 01 18 69 03 85 01 C9 : 44 евсе 
0810 FD BQ 24 4A 90 15 АЛ 93 03 85 F9 AD 94 03 65 F8 : 42 ORDA 
0820 20 4B 15 A9 BO 8D 2B ІР 4C ЕЭ 07 RO 05 АЭ 20 91 : ЕВ 924,4 
0830 FB 88 10 FB 4C E9 07 A9 QQ 60 QC 90 ВП ӨВ 90 20 : E4 9BF9 
0840 22 18 20 00 18 20 00 18 20 00 18 60 ЕЯ ЕЯ ЕЯ ER : C8 
0850 89 00 вр AC 90 81 OB 90 АЭ 01 20 00 18 60 ЕН ЕЯ : 10 9C9@ 
0860 A9 AA BN QA 90 вр @B 90 вр ес 90 вр ОП 90 60 ЕЯ : 95 0210 
0870 20 13 11 A9 20 SD QE 90 60 ЕН ЕЯ ЕН ER ЕЯ ЕЯ ЕЯ : BE @C29 
0880 A2 00 BD FF ОЕ 9D 00 1С ЕВ DA F? 4C 26 07 ЕН ER : 21 @C39 
0890 ВЕ 60 BD 86 03 85 F9 BD 89 03 38 E9 1E 85 F8 АЭ : 60 9C49 


> > м 


әш 
G O ° Se 


DDNO 
8888%182%5888в58ғ5%2 
5Е212%928820585-88252 


в8Пп8838н2288580%%5888 
53881533338 36 426 
БЕБЕК ЧЧ 


5528851838898 


550088%298858885248ьь% 
に に に と に に に 上 も か すす に すす た 


5333823338333 
88%8852559855555 


0880 16 85 ЕЯ 20 63 15 AG ВЕ BD ӨС 03 38 E9 20 85 01: 81 оса 
ORBA 85 F9 QA QA QA 18 65 01 АЕ 90 03 38 FD 68 03 38 : 4B eren 
OBCA 32 C9 07 BQ 2E 4C 20 12 ЕЯ ЕН A9 ОҒ EQ 04 BQ Of : 88 @C7@ 
0800 вр 9B өз A9 06 ат 9ғ 03 DA OA М9 15 8D 99 03 A9 : 73 0280 
OBEA 06 8D 9р 03 BD 40 1B 20 ЕВ 14 AG ЗЕ A9 ҒҒ 9D 83 : 73 9C99 
ASFA 03 10 9A A6 ВЕ 4С 65 14 18 61 93 93 93 03 85 : 29 ercno 

0280 
0900 F9 AD 94 03 69 00 8D 94 03 85 РӨ AJ 85 FB A9 : 1D 9CC9 


81 
04 
96 1B 10 19 : 16 өсте 
R9 
Е 


0910 1Е 85 FC ñD 95 03 DQ 21 Н5 F8 С9 07 

0920 P5 F9 C9 70 90 13 ЕЕ 4E 03 20 11 18 27 8D 9B : SA 9CE9 

0930 03 A9 05 60 SF 03 ЕЕ 95 ӨЗ 20 4B 15 CE 81 83 DQ : 08 @CF@ 20 53 43 
0940 03 EE 96 03 20 CO 17 60 ЕЯ ЕН EA АЭ QA 85 FA ñQ : 71 

0950 04 20 63 15 AS FF FB FF BB FF ҒҒ FD FD 53 FF FB : 3A олег 21 2 20 
0960 РЕ FF FF ЕС FF FF DD ЕР FF FB Е? FF ҒҒ ҒҒ FF FF : AF enia aD 11 11 
0970 FF FD ?F ЕВ FF FF 7E FF DF FF B? F4 FF FB РЕ ?D : FQ 0029 2A 2A 2A 
0990 ?F FF FF EF DF BE EF FF F? EF FF FF FF FF EF FF : С? 9D39 | 28 9D 11 
0990 ЕВ FB E? EF ҒҒ ЕР ҒҒ DF BF FF F7 F? FF FD FÇ FF : 2В 0740 2R 91 91 
@9R9 FF BF FF FF EF DF FE FF B3 FF ҒҒ FF FB ҒҒ FF FF : 2F 0050 10 1E 20 
QIRA FF 7B FF FF FF FF FF FF FF ?D Е? FF FF DD FF DF : ñQ ansa 20 QD 12 11 11 11 1D 1D 1D 1р 10: 
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た 人 いる で し ょ う . £ 


スピ ー カ が あり ます . その コー ド を た どる と ょ , 基 


どう で す 。 禁 が し な いで し ょ う ,P:.8.1. 


PC-8001 の ユー ザー は 他 の 
いま マシ ン 語 に 取り 組ん で いま す . 


ス 部 員 で 席 が 前 か ら 4 目 番 の オレ だ よ オ レ ) 


うる さい と 思っ 


ちな み に 僕 も , 


PC の BEEP 音 が 


の 中 に は , 夜 に 
する と , 最も 左側 
P.S.2. 


= 
(独協 中 学 З 年 1 組 43 番 軟式 テ 


-8001 の 初心 者 の ユ 


まず 。 PC の フタ を 取っ て くだ さい. 


と を お 教え し まし ょ う . PC 


に いい 


で いい 方 法 を お 教え し まし ょ う . 
板 と 紙 が つなが っ て いる コネ クタ が ある の で , それ を 抜い て くだ さい . 


機種 と は, グラ フィ ッ ク や 色 の 点 な ど で 劣 っ て いま す . マシ ン 語 を 覚え まし ょ う . 


初心 者 の 方 
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AS en 18 
ся 19 
51 03 
4C 93 
9219 


1900 
1910 
1920 
1930 
1940 31 
1950 
1960 41 
1970 
1980 
1990 15 
1980 41 
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19C9 
1920 
19Е0 
19Ғ0 
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CD 42 03 
ER CE 40 
18 AD 42 
03 BD 46 
07 B1 
10 DF 
85 FC 
91 Ғ? 
08 65 
50 1B 
78 85 8С 
60 AD 41 
AD 49 03 
RD 42 03 
99 03 18 


85 FB A9 : 
AO 07 В! : 
AS FB 16 : 
20 C2 1A : 
F2 RS 8С: 
8B CA 10 : 
16 85 ӨВ 20 ER : 
8С ЕЯ 69 1Е 65: 
00 A2 09 18 90 : 
FS 85 8С 60 00: 


65 80 6A 66 8B СЯ 10 


1 РОКЕ51,147:Р0КЕ52,5:РОКЕ55,147:РОКЕ56, 
5:007010 

5 RmINTCHL/256) : 605086 :H=INT(〈HL/256-INT 
(HL/Z256) %256) 

6 BmINTCH/16) : 905087 : BaINT〈H/16-INTCH/1 
6))%16) 

7 РКІМТСНК%е(В%48-(8292%72; : RETURN 

18 INPUT"START" ; SA: INPUT"END" ; ЕН: ОРЕМ4,4 
:CMD4 

20 FORI=SRTOERSTEP16:IFI/256=INT(I/256)T 
НЕМРОКЕ198,0:ИЯ17198,1:РКІМТ 

25 SM=0:HL=I:G0OSUBS 

30 FORJ=ITOI+15:PRINT" ";:ñ=PEEK(J):SM=S 
M+A : 305086 

40 NEXT:PRINT" : "; 

50 ТЕ5М>255ТНЕНЗМ=$М-256 :601050 

60 A=SM:GOSUBE : PRINT :NEXT :END 
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リス ト 2 METEOR FIGHT マ シン 語 リ スト II 
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1CF@ 
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20 AO BO FO 
00 3C 20 22 
20 пе ва 
00 30 OF 
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00 00 00 
00 00 FO 
OF ЗА 2А 
90 се 80 
ЭВ FB 3R 
ca FO CO 


00 02 
00 02 
90 ве 
EQ FQ 
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51 04 
ая яё 
1F ЗЕ 
BE FF 
01 93 
QF QF 
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00 ЕЕ 
00 00 
00 99 
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F8 F8 
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1740 
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89 
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00 00 00 00 00 
сә се CO co CO 
ҒӘ РО FO Р@ Fo 
ЕС ЕС ЕС FC FC 
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Е55;РЕЕК(51):Р0КЕ56, РЕЕК(52):007010 

5 ñ=INT(HL/256):60SUB6:R=INT((HLZ/256-INT 
(НІ. /256)2Ж%256) 

6 Bs=INT(Xñ/16):G0SUB?:BsINT((8216-INT(ñ/1 
6))%16) 

7 PRINTCHR$(B+48-(B>9)87); : RETURN 

10 INPUT"START"; SA: INPUT "END"; EA 

20 FORI=SATOEASTEP16:IF 1/256=INTCI/256)T 
HENPOKE198,9:WAIT198, 1 : PRINT 

25 SM=0:HL=I:G0SUB5 

30 FORJ=ITOI+15:ñ=PEEK(J):SM=SM+R 

40 НЕХТ:РАТНТ" : "; 

50 IFSM>255THENSI=SM-256 : GOT0S9 

60 В=5М: 605086 :PRINT : NEXT : END 
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MEE) スト 3 DUMP & CHECK SUM プ ログ ラム ШЕННЕН BRM) リ スト 4 CHECK SUM プ ログ ラム ЕКЕН 


1 РОКЕ51,РЕЕК(45)%57:РОКЕ52,РЕЕК(46):РОК 


135 
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HPAII, 株 ワン ダー ソフ ト * 


000 円 + 海外 特 泊 


ss 


ЕГІЗ 
a Ас АР, 


ンー ルー し RNN E EE 


プロ グラ ム ・ コ ン テ ス ト が 各 方 面 で 行なわ れ 
て いま す が , 大 半 は ゲー ム ・ ソ フト の 収集 に 
終り , 優れ た ソフ トウ ェ ア ・ テ クニ ッ ク は プ 
ロ テ ク ト の 影 に か くれ て し まっ て いま す 。 さ 

KR いこ と に は 一 部 の 雑誌 等 に プロ グラ ム 
が 発表 され る と , “著作 権 ? に よる 圧力 に よっ 
て その 改良 ソフ ト の 発表 が 完全 に 否定 され て 
し まう 傾向 すら あり ます 。 

プロ グラ ム 制 作者 の 権利 を 守る こと は も ち 
ろ ん 重 要 で す が , ソフ トウ ェ ア 技 術 は 明らか 
に 文学 な ど と 異な る , 理工 学 の 一 部 門 と し て 
の 側面 を 持っ て いま す 。 一 般 に 科学 技術 は 先 
駆 者 の 業績 の 上 に 新た な 技術 が 構築 され て い 
く の で あっ て , 上 記 の よう な 動き は 日 本 の ソ 
フト ウェ ア の 進歩 を 止め る も の だ と 考え ます 。 

I/O は マイ クロ コン ピュ ー タ の 技術 情報 の マ 
ス メ デ ィ ア と し て , この 状況 を 憂慮 し , ソフ 
ト 技術 を 万 人 の も の と する た め , あえ て 懸賞 
金 を 提供 し 、 入 選 し た 優秀 な ソフ トウ ェ ア を 
全 公開 する も の で す 。 

実力 ある プロ グラ マー の 積極 的 参加 を お 願 
いい た し ます 。 


※ ス 入選 作 に つい て の 著作 権 は (株 ) 工 学 杜 , (株 ) コ ム 


最 優秀 賞 (10 名 ) ДОО 
ко ЖЕНСКИЕ 万 円 

優秀 賞 (60 名 ) O 
т Ейска 万 円 


審査 員 特別 賞 ( 己 名 )… 海外 特派 


賞 は 全 応 募 者 の 中 か ら 選 考 さ れ ま す . 84 年 WOCF。、NOC な どの 海外 の マイ A) 
ーー に 特派 記者 と し て 派遣 取材 活動 に 季 放 し て いた だ きま す 。 


参加 賞 (応募 者 全員 ) …PiO 特製 記念 品 


< 募集 要項 > 
А: 現在 流通 し て いる パソ コン で 動作 
する 未 発表 の オリ ジ ナ ル ・ プ ログ ラム で ある こと 。 開発 に 当たっ 
т, 参考 に し た 文献 は (!/0 も 含め て ) す べ て 明記 し て くだ さい 


一 プロ グラ ム の 独自 性 …………… 他 読 に 発表 され た プロ グラ ム は , 


た と え サ ブル ー チ ン で あっ て も , その まま 使っ た り し な いで くだ 
さい 。 !/O( 別 冊 を 含む ) に 発表 され た も の で あっ て も , その 部 分 と 
出典 を 明記 し て くだ さい 
圏 プ ログ ラム 内 容 の 独自 性 
ФУ-АШМ---- 使用 言語 は BASIC イ ンタ ー プ ブ リタ, コン バイ 
5, アセ ンプ ブリ 言語 の いずれ で も か まい ませ ん . コン バイ ラ , P 
セン プラ 使用 の 場合 に は ソー ス ・ リ スト , アセ ンプ ブル ・ リ スト も 
添付 し て くだ さい 。 内容 は , ゲー ム 内 容 , キャ ラク タ , 音楽 の す 
に 帰属 する こと に な り ま す 


べ て が オリ ジ ナ ル で ある も の に 限り ます 。 特に テー ブル ・ ゲ ー ム 
に 類似 し た も の に つい て は , 選考 の 対象 外 と し ます 。 

基本 ソフ ト 部 門 . ・ 今 回 は 特に BASIC コ ン バ パイ ラ (整数 型 可 ) 
を 採り あげ ます 。 仕様 は 現在 流通 し て いる パソ コン の イン タ 
ー プ リタ と 同等 か , その サ プ セ ッ ト と し , 独自 の 記号 化 言語 は 対 
象 外 と し ます 。 

< 応募 要項 > 

田 応 募 は カセ ッ ト ・ テ ー プ , ディ スケ ッ ト の どちら で も か まい ませ 
ん 。 な お , 応募 テー プ , ディ スケ ッ ト に は 必ず 氏名 と プロ グラ ム 
名 を 明記 し て くだ さい 。 

較 応 募 の 際 に は 必ず 機種 お よび 操作 方 法 を 明記 し て くだ さい 。 必要 
が あれ ば プロ グラ ム ・ リ スト な どの 資料 を 添付 し て くだ さい 。 
田 応 募 作品 は お | 人 何 点 で も か まい ませ ん 。 た だ し , 入選 は | 点 ま 

と させ て いた だ きま す 。 
置 他 誌 と の 二 重 投稿 は か た く お断り し ます 。 
遼 応 募 作 品 は 原則 と し て 返却 いた し ませ ん 。 あ ら か じ め ご 了承 くだ さい 。 
< 締切 り と 発表 > 
: ・ 昭 和 58 年 12 月 8 日 (当日 の 消印 有効 ) 
・ 昭 和 59 年 2 月 18 日 (|/0 3 月 号 ) 


I/0 ま た は PiO 誌 (工学 社 ) 
カセ ッ ト ま た は ディ スケ ッ ト (コム バック) 

< 送付 先 。 問い 合わ せ 先 > 
TIS 東京 都 渋 谷 区 代々 木 |-37-| ぜ ん らく ビル 
(株 ) 工 学 社 |/0 プ ログ ラム ・ コ ン テ ス ト 係 
容 (03)379 -057| (!/0 編 集 部 ) 


掲載 の 場合 の 原稿 料 , 商品 化 の 場合 の 印税 は 当社 規定 に 従い お 支払 いい た し ます 。 


人 ※ 現 在 実施 中 の |/0 主 催 の 他 の コン テス ト で 9 月 8 日 30 日 (消印 有効 ) に こ 応 募 の プロ グラ ム は 両 コ ン テ スト の 選考 対象 と いた し ます . 


PASOPIA7 


グラ フィ ッ ク ИҢЕ 


Ш 


4 人 麻雀 の 起源 を た ず ね る と ,TK-80BS 
(IO, 54 年 12 月 ) な の で す が , パン コン の 
グラ フィ ッ ク と 色彩 の 機能 が 強化 され る に 
つれ て PC-8001, FM- 8, PC-8801 版 と 美 


МУР. ELT, 誰 も が , 


この プロ グラ ム を 一 度 は 走ら せる と いう 第 
くべ き 統 計 が ある ほど で す . 

PASOPIA 7 は 使い 勝手 の すばらし い , 
コス ト ・ バ パー フォ ー マ ン ス 最 高 の マ シン で 
TH, 残念 な が ら ソ フト の 著 積 が あり ませ 
А. 早速 . ベス ト セ ラーPC-8801 精 彩 グ ラ 
フィ ッ ク 麻 雀 を 移 殖 し まし た . 
[PIGIEIGIEIGIIGIIGTGIGIGIGIEIGIGIGIGIGIGIGII 


1 — ム の 特徴 | 


回 回 回 回 回 回 回 回 回 回 回 回 本 回 回 回 回 回 回 回 回 回 回 回 


Өрх, 対面 , 下 家 の 3 人 を パソ ン ピ ア が 担 
4L, この 3 人 を 相手 に 勝負 を 進め ます . 
4 人 が お 互い に 『 フ リコ ミ 』」 や 『 ツ モロ ン 』 
を し て , 実戦 と まっ た だく 同じ で す . も ちろ 
А, マイ コン 内 の З 家 は 独立 し た RAM 内 に 
あり , 捨 種 ど だ けが ディ スプ レイ され ます . 
@ 逆 3 家 も テン パイ する と リー チ を か け て 
くる こと が あり ます . ヤミ テン も し ます 。. 
@ プ レイ ヤー は 『 チ ー」』. 『 ポ ン 』 で きま す 
が 。 敵 3 家 は 面前 だ け で す . 
⑩⑯ サ イフ リ も マイ コン が 行ない , 
風 も 表示 し て くれ ます . 
あな だ た が リー チ を か け , 待ち 牌 を 入力 す 
る と 自動 的 に スピ ー デ ィ に ゲー ム が 進行 し 
з: 
@ 和 了 す る と 和 了 牌 が 出力 され , 『 ド ラ 」, 
『 ウ ラド ラ 』 が 表示 る れ ま す . 基礎 点 と 何 
銀 か を 入力 する と 点数 が 出力 され ます . 持 
ち 点 27,000 点 で す . 
の 和 了 の と き , パレ ッ ト ・ コ ユ コード を 変え , 
極 彩色 場面 し な せる よう に し まし た . また , 
ミュ ー ジ ッ ク を 加え まし た . 
@18 巡 し て 和 了 の な いと き は 流 局 と な り ま 
+. СМ, 実戦 と 違う 点 は 『 カ ン 』 が あり 
ませ ん . 割愛 し まし た . 
[IEIEIGIGIGIEIGICIGIGIGIIGIEIGIEIGIEIGIEIGIGIGIEIGIEIGIGIGY 
遊び 方 
ll Tl ll TS lo 
RUN す る と , まず ピン ズ と ソー ズ の デモ 
が あり ます . この 場面 を G で ET し , ゲー ム 進 


あな だ の 


行 時 は PUT に よっ て 有 牌 次 を 早く ディ スプ レレ 
イン だ 2 で いま 二 。 

次 に 場面 が 変わ り , ж (аја 
る た め に 5 一 10 秒 後に Space Key を 押し て 
くだ さい ” と 出る の で [SPACE] キー を 押し ま 
す . する と 相手 の 強 る を どの 程度 に し た ら 
よい か を 聞い て きま す . D|) B, [DOF 
ПАЛЬМ г. 


三 色 ね ら え そう 一 


初期 設定 に 30 秒 ほど か か り , この あと 画 


面 一 転 ゲ ー ム の 開始 で す . Ja, ドラ , 配 牌 
が 出力 され , 他 家 の 拾得 が 場 に 出さ れ て き 
$3. この と き , ツモ や フリ コミ が あれ ば 
和 耳 場面 に 変わ り ま す . 

他 家 の 捨 牌 を チー や ポン する と き は [sp 
ACE| キ ー を 押す と ショ チ ?? と 聞い て く 
る の で [| また は [を 入力 し ます . つぎ に あ 
な た の 食い 牌 を 聞い て くる の で , [АМ 
2 回 入力 し , その 後 捨 牌 を 入力 し ます . 

リー チ の と き の 捨 牌 も [Al 一 IN で 入力 し , 
ツモ ロン な ら ば [ 認 を 入力 , ROET o 
ン の と き は [spAcEgl キ ー を 押し ショ チ ?? 
に 対し て [ 展 を 入力 し て くだ さい . 

リー チ の 場合 は [PF2| また は リー チ と 入力 
L, “ステ ハイ ?” に 対し て [一 IN を 入力 , 

* マ チー1 ?? に 対し , 1 一 337 の 牌 コー ド 
で 待ち 牌 を 入力 し ます (%1). 

RI Ма-кж 


遊び 方 を フロ ー チ ャ ー ト ( 図 1) お よび 
表 2 に まち ゆめ まじ た 。 
文 を 読む と 面倒 な よう で す が ,。 や っ て み 


る と 意外 に 簡単 で す . 東 の 4 局 が 終わ る と , 
また 東 の 1 局 に 戻り ます . 


(іа 


PASOPIA7 の 機能 き を 
邊 か し た と どこ つろ 


⑩10 万 円 マシ ン で あり な が ら , グラ フィ ッ 
ク に 関し て は PC-8801 と 同等 まき た は それ 以 
上 の 機能 を 持っ て いる の で , PC-8801 精 彩 
グラ フィ ッ ク の 牌 概 が まっ た くそ の まま 移 
植 で きま し た . 

オー フ ニ ン グ , サーチ, Ші, ホー ラ , 

フリ コミ に MUSIC を つけ まし た . 短 い の で 
ゲー ム の 邪魔 に は な ら な いと 思い ます が , 

85, 810, 890, 920, 960, 1160, 1350 に あ 
る GOSUB5000, 5100, 5200, 5300, 5400 
命令 を 消し て くだ さい . 

@ 和 了 の と き の カ ラー パレ ッ ト の 変更 は 4500 
行 の サブ ルー チン で す . お 好み の 色 に 変え 
TECA N 


うつ 7 つも られ で し まる 和夫 


回 回 回 回 回 回 回 回 回 回 回 回 回 回 回 回 回 回 
画 eA 

長い フロ ダグ ラム な の で 細部 に わた る 説明 
は 残念 な が ら 割愛 させ て い だ だ きま す . № 
会 に 恵まれ た な ら ば 詳細 な プロ グラ ム の 解 
説 を し だ いと 考え て いま す . 

全体 フロ ー チ ャ ー ト を 図 2 に , 主要 変数 
表 を 家 3 に , 行 番号 と 各 ル シー チン の マッ プ " 
を 家 4 に まとめ まし た . (e, 


‘g "> TX 
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Рю 


M1 ゲー ム の 遊び 方 フロ ー チ ャ ー ト 


パソ ビ ピア の 
強 さ を 入力 
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ディ スプ レイ の 出力 
Space Key ラオ シテ クダ サイ 


ツモ ロン | 


入 カ 
SPACE| キー を 押す 


プロ が オア イ テ 1 
イッ パン , アマ チュ ア 2 
ショ シン シャ 3 


ある い は |3| 


ステ ハイ ? 


の いずれ か を 入力 


他 家 が 打 牌 し た と き 
мая? 

クイ ハイ 1 ? 

クイ ハイ 2 ? 

ステ ハイ ? 


キー を 押す 


他 家 が 打 牌 し た と き 
ショ チ ? 


УЕ, HEME 


マチ -2 ? 


Pr また は リー チ を 入力 
alin] の いずれ か 入力 
待 牌 の コー ド を 入力 

ビ ピンズ 1-9 

ソー ズ 11—19 

マン ズ 21-2 

東 . 南 西北 31 一 34 
ава 35—37 

第 2 待 牌 を 入力 


テン スウ ケイ サン ニ 0 
サイ フリ ー1 
キソ / テン スウ 


ナン ハン デス カ 


0 を 入力 
基礎 点 ( 上 り 点 十 副 底 20 符 ) 
の 入力 


譲 数 の 入力 


РЕ] また は |s| キー を 入力 


図 2 フロ ー チ ャ ー ト 


コン ピュ ー タ の 強 さ 設 定 (320-590) 
ツモ バイ の コー ド を 定義 

他 家 配 パ バイ コー ド の 1 位 の 数 (1650-2300) 他 

同上 10 位 の 数 

パイ コー ド 

サイ の 目 

バイ の 番号 1 一 14 枚 目 

ステ バイ の 番号 

プレ イヤ ー の コー ド (1 ニ = ニ 下 家 , 2 三 対面 。3 ニ 上 家 , 4 三 自家 ) 
和 了 プレ イヤ ー の コー ド (1 一 4) 

和 了 プレ イヤ ー の コー ド 

ツモ 回 数 

し か ら 計 算 し た 捨て バイ を 出力 する 縦列 の 場所 

和 了 の と き 出 力 する 枚数 

チー を し た 数 

バイ を 食っ た 数 の カウ ンタ 

ツモ ロン し た プレ イヤ ー の コー ド 

他 家 か ら の 振り 込み で 和 了 し た プレ イヤ ー の コー ド 

他 家 へ 振り 込ん だ プレ イヤ ー の コー ド 

親 プ レイ ヤー の コー ド 

リー チ の フラ グ (P6 = 4 は リー チ ) 

4 家 の プ レイ ヤー の バイ ・ コ ー ド 

城壁 牌 ( 配 バ イ し た 残り の バイ ) 

食い バイ 

他 の プレ イヤ ー の リー チ ・ フ ラグ 0 また は 1 (リーチ ) 

他 の プレ イヤ ー の 上 り フ ラグ 


表 4 行 番号 マッ プ 


| 牌 の 表示 サブ ルーチン 

| ゲー ム の 表紙 と コン ピュ ー タ 強 さ の 入力 
初期 設定 
自分 の リー チ の ロン ・ チ ェ ッ ク 
| コン ピュ ー ー タ の 強 さ の 決定 


ロン と 流 局 の 判定 

捨 牌 の 出力 と 表示 時 間 2 一 4 秒 の カウ ンタ 
リー チ の 捨 牌 の 出力 
| 他 家 の ロ ン の チェ ッ ク 

A 一 N の 出力 

自家 リー チ の 待 牌 2 種 の 入力 

нм 

自分 の 牌 の 出力 

УМОНЕ 


| ホー ラ の カラ ー チ ェ ン ロン の 処理 


1 IF START=@ THEN DEFINT А-Е, 9-21 9. =1801 
GOTO 4000 ELSE РИТ(Х,Ү),71%,РБЕТі RETURN 
PUT (X, Y) , 22%, PSETi RETURN 
PUT (X, Y) , 23%, PSETi RETURN 
PUT (X, Y) , 24%, PSETi RETURN 
PUT (X, Y) , 25%, PSETi RETURN 
PUT (X, Y) , 26%, PSETi RETURN 
PUT (X, Y) , 27%, PSETi RETURN 
PUT (X, Y) , 26%, PSETi RETURN 
PUT (X, Y) , 29%, РВЕТЕ RETURN 
10 LINE(X+9,Y+8)-(X+16,Y+2),4iLINE(X+16, 
Y+2)-(X+23,Y+8),4:LINE(X+9, Y+12)-(X+16, Y 
+16), 44 LINE(X+16, Y+16) - (X+23, Y+12) , 41 RET 
URN 
11 LINE (X+4, Y+4) = (X+25, Y+4) „1ı BOSUBD 2018 
ETURN 
12 LINE (X+9, +5) -(Х+22, +3) , Or LINE (X+4,Y 
%7)-(Хж25,Ү%7),Фі GOSUB 201 RETURN 
13 ІІМЕ(Х%8,Ү%2)-(Х%22,Ү%2) , Or LINE (X+10, 
Ү%5)-(Х%29,Ү%5),ӨіІМЕ(Х%8,Ү%8)-(Х%25,Ү% 
8) , 6 GOSUB 20: RETURN 
14 LINE(X+12,Y+2)-(X+éë,Y+2),@iLINE(X+é, Y 
+2)-(Х+6, +7) , OILINE (X+ë, Y+7) - (X+25, Y+7) 
rrLINE (Х+25, Y+7) -(Х+25, Y+2) , の 1 し LINE (X+25 
,Y*2)-(X+12,Y+2) 。 の 1LINE(X+12。Y+2) —(X+12, 
Y+5),@ LINE (X+12, Y+5) — (X+&, У+6) , 61BDBUB 
38:RETURN 
15 LINE(X+13,Y+2)-(X+ë,Y+6),@rLINE(X+10, 
Ү%4)-(Х%10,Ү%8),ӨзіІМЕ(Х%14,Ү%2)-(Х%25,Ү 
+2) , ONLINE (X+19, Y+3)-(X+16, Y+8) ,@1L INE (X 
%14,Ү%5)-(Х%24,Ү%5),ӨііІМЕ(Х%24,Ү%5)-(Х% 
22,Ү%8),ӨііІМЕ(Х%12,Ү%8)-(Х%25, Y+8) ,0:00 
BUB 2@íRETURN 
14 LINE(X+15,Y+2)-(X+15,Y+3),@:LINE(X+7, 
ү+4) - (Х+24, +4) , OILINE (Х+11,У+6) = (Х+8, Y+ 
B) ,ӨііІМЕ(Х%20,Ү%%)-(Х%22,Ү%8), ді BDBUB 2 
O1 RETURN 
17 (ІМЕ(Х%8,Ү%4)-(Х%25,Ү%4) 。O1LINE(X+1 さ 。 
Y+2) -(Х+13, +8) 。 ILINE (X+13, Y+8) - (X+22, Y 
+8) 。 の LINE (X+22, Y+8) – (Х+22, Y+7) ‚Ө: GDBUB 
201 RETURN 
18 LINE(X+12,Y+3)-(X+6,Y+8),OILINE(X+17, 
Y+2)-(X+19,Y+2),@ILINE (X+19, Y+2) — (X+2@, Y 
+5), OILINE (Х+20, +5) – (+25, +8) , Өз BOSUB 
261 RETURN 
19 LINE(X+15,Y+1)-(X+15,Y+4),@rLINE(X+15 
.Ү%4)-(Х%13,Ү%6),ӘііІМЕ(Х%15,Ү%6)-(Х%9,Ү 
+8) 。 の iLINE (Х+9, Y+3)-(X+21, Y+3) 。 OLINE (X+ 
21,Y+3)-(X+19,Y+7),@ILINE(X+19,Y+7)- (X+2 
9,Ү%8),9і808ШВ 39100508 20: RETURN 
29 LINE(X+é,Y+11)-(X+25,Y+11),2iLINE(X+1 
4,Y+11)-(X+11,Y+16) , OrLINE (X+11, ¥+14) — (X 
%8,Ү%17),2:1.1МЕ(Х%15,Ү%14)-(Х%22,Ү%14),2 
11МЕ (X+22。Y+14) -(X+2O。Y+1 日 ) 。G1 し INE (X+20 
,Ү%18)-(Х%15,Ү%18),21КЕТИЯМ 
21 PUT(X。Y) 。ZZ1%。PBETIRETURN 

PUT (X, Y) , 222%, PSET1 RETURN 

PUT (X, Y) , ZZ3%,PSET: RETURN 

PUT (X, Y) , 224%, PSET: RETURN 

PUT (X, Y) , 225%, PSETi RETURN 

PUT (X, Y) , 226%, PSET 1 RETURN 

PUT (X,Y), 277%, РВЕТЕ RETURN 

PUT (X, Y) , 2287, РВЕТ! RETURN 

РОТ (X, Y) , 279%, PSET 1 RETURN 

LINE (X1,Y1)-(X1+X2,Y1+Y2),CL,BFiGOSU 
В 48: RETURN 
31 LINE (X+6, Y+5)- (X+26, Y+5) , OILINE(X+16, 
Y+2)-(X+16,Y+8),@rLINE(X+16,Y+8)-(X+9, Y+ 
8) 。61LINE (X+9, Y+ 日 ) (Х+9, Y+12) ,@! LINE (X+9 
Ү%12)-(Х%24,Ү%12),0і1.1МЕ(Х%24,Ү%123-(Х% 
24, ۷+8) , OıLINE (X+24, Y+8) -(X+14, Y+8) , 0160 
ВОВ 401 RETURN 
32 LINE (Х+6, У+5) = (X+25, Y+5) , О LINE (X+15, 
Y+3)- (X+15, Y+8) ,@1L INE (X+é, Y+8) - (Х+6, Y+1 
7} , ILINE (X+25, Y+8)-(X+25, Y+17) , Or LINE (X 
+25,Y+17)-(X+22, Y+17) , Or LINE (X+6, Y+B) — (X 
+25, Y+8) 。 6』 GOSUB 41:RETURN 


сшчольоак 


ВТУ АЕ (84) Елп 5 
E(84) の 混ぜ 合わ せ 

リー チ の 時 期 の 選定 と 宣言 

点数 計算 と 出力 

| 食い 牌 を F$ に 入れ , 食い 牌 数 K を きめ る 


33 LINE (X+6。Y+5) -(X+25。Y+5) 。64LINEX+6。Y 

%9)-(Х%6,Ү%17),Өі:ІМЕ(Х%6,Ү%17)-(Х%25,Ү% 

17) 。9』LINE (X+25。Y+17) - (X+25, Y+9) , @1L INE ( 

Х%25,Ү%9)-(Х%6,Ү%9),0:00680В 421: RETURN 

54 LINE(X+12。Y+4) 一 (X+12。Y+155) 。 の 9 ョ LINE (X+6 

‚› У+10) -(Х+10, \+10) 。 の LINE(X+4。Y+17) ~ (Х+1 

2。Y+16) „ез ІМЕ(Х%19,Ү%4)-(Х%19,Ү%17),018 

ОВОВ 4 さ 』RETURN 

55 LINE(X+11,Y+4)-(X+18,Y+4), 4: LINE (X+18 

,Y+4)-(X+4,Y+12) ,41LINE(X+B,Y+6)-(X+12, Y 

+8), 4 LINE (X+15, Yr6) -(X+25, Y+12) , 41 L INE ( 

X+25,Y+12)-(X+28,Y+12),4iG08UB 44: GOSUB 

451 RETURN 

56 (1МЕ(Х%5,Ү%7)-(Х%5,Ү%13),241.1МЕ(Х%5,Ү 

%7)-(Х%26,Ү%7),21111МЕ(Х%24,Ү%7)-(Х%26,Ү% 

13),2iLINE(X+5,Y+12)-(X+26,Y+12) , 21 LINE ( 

X+15。Y+ さ ) 一 (X+15。Y+1 日 ) 21 RETURN 

57 LINE (Х,У) = (X+32, Y+20) , 7, BF 1 RETURN 

ЗВ LINE (X+18, ¥Y+2) - (Х+18, Y+5) , Or LINE (X+18 

,Y+5)- (X+25, Y+5) , O1 GOSUB 20: RETURN 

39 LINE (X+20, Y+@) - (Х+26, Y+8) , OıLINE (X+24 
s Y+@) ~ (Х+26, Y+7) , Or RETURN 

40 LINE(X+16。Y+ 日 ) -(X+16。Y+1 日 ) 。 ら LINE(X+ 日 

‚ У+10) 一 (X+23。Y+19) ,@ILINE(X+16,Y+13) - (X+ 
11, У+16) の ILINE(X+11。Y+16) 一 (X+5。Y+17) の 1 

ЕТМЕ (Х+16, У+1$) - (Х+21,\+16) 。 の 9 ョ LINE(X+21 。 

Y+16) - (Х+24,Ү+17) 。 ORETURN 

41 LINE(X+1 1 。Y+ 日 ) -(X+15。Y+12) 。 の 4LINE(X+2 
1,Y+8)-(X+16,Y+12) 。OILINE(X+1 の 6。Y+12) 一 (X+ 

22,Ү%12),Өі(ІМЕ(Х%10,Ү%15)-(Х%22,Ү%15),0 
ILINE (Х+15, +10) - (Х+15, \+17) „ет RETURN 

42 LINE(X+13,Y+5)-(X+135,Y+13),@rLINE(X+1 

3, Y+1 さ ) - (Х+6, \+14) ,@rLINE(X+18,Y+5)-(X+1 

8,Ү%15),Өі:іІМЕ(Х%18,Ү%15)-(Х%25,Ү%14),04 

RETURN 

43 LINE(X+19,Y+17)-(X+27,Y+17) , ONLINE (X+ 

27,Ү%17)-(Х%27,Ү%15),ӨіІІМЕ(Х%19,Ү%11)-( 

Х%26,Ү%9), ді RETURN 

44 LINE(X+22,Y+é)-(X+19, Y+8) ,4i LINE (X+24 

.Ү%8)-(Х%21,Ү%10),4:1.1МЕ(Х%8,Ү%11)-(Х%21 
.Ү%11),4111МЕ(Х%7,Ү%14)-(Х%22,Ү%14),4:11 

МЕ (X+12。Y+11) 一 (X+12。Y+15) 。4』RETURN 

45 LINE(X+12,Y+15)-(X+1@,Y+17),4i LINE (X+ 
1@,Y+17)-(X+4,Y+18),4:LINE(X+17,Y+11)— (X 

%17,Ү%18),4:1.1МЕ(Х%17,Ү%18)-(Х%24,Ү%18), 

41LINE (Х+24, +18) – (Х+24, \+16) , 41 RETURN 

46 І.ІМЕ(Х%12,Ү%14)-(Х%12,Ү%19),Өі:іШІМЕ(Хе 
12,Ү%19)-(Х%8,Ү%19),ӨііІМЕ(Х%19,Ү%14)-(Х 

%19,Ү%19),Ө::іІМЕ(Х%19,Ү%19)-(Х%17,Ү%19), 

° 

47 СІКСІЕ(Х%14,Ү%14),5,4:РАІ|ІМТ(Х%16,Ү%14 
),ФіРВЕТ(14%Х,5%Ү),7іРБЕТ(Х%15,Ү%5),7:11 

МЕ(Х%12,Ү%1)-(Х%20,Ү%3),5,ВҒаКЕТИЯМ 

48 LINE(X1+2。Y1) 一 (X1+2。Y1+Y2) 。7。BILINE(X 
1-1。Y1) 一 (X1+X2+1。Y1) 。CL。BILINE(X1-1。Y1+Y 

2%-(Х1%Х2%1,Ү1жҮ2), СЁ, В: Y さ =(Y1+(Y1+Y2) ) / 

24LINE (X1-1, Y3) -(X1+X2+1, Y3) , CL, Bt RETURN 

50 CLS  』MIDTH 40 ıLINE (0, 25) -(318, 140 
) 5, BFıLINE (6, 48) – (510,120) , 3, BFI LOCATE 

4,91РКІМТ “й%4 9 82 NFT タメ 5-10 Ф Л 
"ıLOCATE 8,11:PRINT " Space Key 9 ЛУ? 2 

7%” 

52 A$=INKEY#:P7=RND(1): 

52 

54 CLS LOCATE 5,5іРБІМТ 

7 4 ニン マー ジ シト ヤン нн" 

69 PRINT 

70 PRINT "779 3 コレ カラ スハ ^ ラ シイ フ " ロ ノ マー ジ " ャ 

о 2 で カイ へ 27274 シリ マス“ 

75 PRINT 

ӨӨ PRINT " Personal computer РАЗОРТА 7 

Ж” 779 ノ カミ チャ 。 トイ メン 。 シモ チャ 9 ウケ モチ テマ スリ 

85 PRINT』GOBUB 5200:” Opening Music 

90 PRINT "779 / コウ キュ ウ スル РАЗОРТА / 947 

9 Z39707? t? 79° 94" 
100 PRINT 

119 PRINT " サイ コウ 9252 


IF АФ<>" " THEN 


"きせ РАЗОРТА 


2.0 N° オア イ テ VIA + 


食い 牌 を つめ る 

食っ た 牌 の 消去 

食い 牌 コー ド 1 一 37 を G(K) へ 入れ る 
食い 牌 の ソー ト 

食い 牌 の 出力 

チー, Жу, ロン の 処理 

ドラ , ウラ ドラ の 表示 
УМО 

ピン ズ , ソー ズ 定 義 用 配列 の 宣言 
ビン ズ ・ グ ラフ ィ ッ ク 

ビン ズ と ソー ズ の デモ 

デモ バイ を GET て 配列 に 変 義 
ソー ズ の グラ フィ ッ ク 

和 了 の 時 の カラ ー チ ェ ン ジ 
曲 の 演奏 

REM 


120 PRINT " へ イキ ン 252 
..... 2" 
150 INPUT " 229%; クラス ショ シソ シャ h" 
„+++. さり NZ 
152 IF N7=1 THEN A1$m'OoiGOn の 62"1BOTO 149 
154 IF №7=2 THEN Аі 00:00103":GOTO 140 
156 IF N7=3 THEN А1$="00: 00:04", GOTO 140 
138 GOTO 50 
140 DIM НӨ(14),С(4,16),0(57),Е(84),08(12) 
1U あ = リ レ モ チャ リョ りあ = リ トイ メン リョ も = リカ ミチ ャ IX や am リア ナウ 9 
1 Y$." 27W" RESTORE 

DATA а,б,с,(і,е,%,0,һ,і,і,К,1,т,п 

FOR 1=1 ТО 14:КЕАр КӨ(ІЗіІМЕХТ 

FOR I=1 ТО ЯіҒ(1) е27009і МЕХТ 

CLS WIDTH 4@pILINE(0,@)-(639,199),3 


49000 アマ チュ ア Me 


ATAF o 


LOCATE 11, 6еРАТМТ "49 °4 9 755"? 43 


LOCATE 12,ВЕРАТМТ "ол" 97 AIF 2794" 
КЕҮ 1, 
, 


"В": КЕУ 2。" リ ー チ " ョ BOT 1820 


IF C(4。14) =C(4。15) THEN P さ = の GDBUB 4 

5oosCLB GOTO 940 

290 IF С(4,14)=С (4,16) THEN PSmOIGOBUB 4 
500:CLS GOTO 940 

509 GOTO 1310 

9” 

520 NB=10@+15%(N7-1):N9=73-NB:A=RND (1) «М9 
+МВ: RETURN 
550 IF М7е2 THEN Am さ O』RETURN 

540 IF N7=3 THEN A=45: RETURN 
550 IF P(J1)=@ THEN RETURN 
580 IF L<Q(J1) THEN RETURN 
570 X=12íiY=6é+(J1-1)%4:LOCATE X。YaPRINT " 
және. 。 リーチ анынын РОК Im1 ТО Б0з МЕХТ: 
ВЕЕР: RETURN 

зво ' 

585 (.ІМЕ(Х,Ү)-(Х%52,Ү%20) ,7, BF 

590 ON С(21,11) GOSUB 1,2,5,4,5,6,7,8,9, 
10,11,12,15,14,15,14,17,18,19,209,21,22,2 
3, 24, 25, 26, 27, 28, 29, 50, 51, 52,55,54, 35, 34 
, 371 RETURN 
400 ° 

410 C(J1,14)=E(L)sE=E(L)sIF P(J1)=@ THEN 
430 

429 IF L>Q(J1)-1 THEN 440 

430 AmRND( 1 ) 65+8 ІҒ L<A THEN 460 

440 IF C(J1,14)=C(J1,15) THEN 810 
450 IF C(J1,14)=C(J1,16) THEN B1@ 
489 11=14 
470 ° 
480 Ll1=INT((L-1)/4)iX=24+Ll1*36:íY=26+(J1- 
1) #32: GOSUB 380 
482 IF P(J1) く > の AND L>=Q(J1) THEN LINE(X 
,Ү%209)-(Х%52,Ү%21),2,БҒ 
485 IF Pé=4 THEN 520 
490 TIME$='OOn の 91 の 9『 
500 EY$: IF K#=" 
ses " THEN 520 
510 IF ТІМЕФейі% THEN 520 ELSE 500 
520 IF L>67 THEN 1169 
550 IF Jl=1 THEN 1180 
549 IF Ji=2 THEN 1220 
550 GOTO 1260 
баз” 
570 C(4,14)=E(L)iL1=INT((L-1)/4)iX=24+L) 
#3561Ү=1221 80808 380 
575 LINE (KX, Y+20) -(X+32,Y+21) , 2, BFI RETURN 
580 ' 
599 GOSUE 51Ө:ІҒ L<A THEN RETURN 
600 IF C(J1,14)=C(J3,15) THEN QimieRETUR 
N 
619 IF C(J1,14)=C(J3,16) THEN @1=1: RETUR 
N 
620 01=0 sRETURN 
озо ° 
640 FOR F=1 TO 14-М4%5і X=F#4+31 Үв22 


" THEN 5090 
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IF Ғ>5 THEN XmFw4+4 

643 IF Ғ>7 THEN X=F+*4+5 

844 IF F>11 THEN X=F*4+é 

646 LOCATE X。YiPRINT Re(F)INEXTI』 RETURN 
5 


2120 F=INT (RND (1) #4+2) 1 S=11 =2 
2130 GOSUB 1650 

2149 C(J1,12)=HiC(J1,13)=H+1iC(J1,15)=H- 
1ıC(J1,16)=H+2ı1IF 21<5 THEN 1890 

2150 GOTO 2420 

2169 ° 

2170 IF L=1 THEN 2199 

2180 GOTO 2280 

2199 NmINT(RND(1 ) w2)』1F Мед THEN ҒеВ:00 
TO 2210 

2200 Е=1 

2219 Bm1iU= さ 

2220 GOSUB 1650 

2230 C(J1,12)=Hí:C(J1,13)=H+1írIF F=1 THEN 
С(Ј1, 15) =Н+2: GOTO 2250 

2240 C(J1。15) = ロー1 

2259 C(J1。16) = の 』】F J1<3 THEN 1890 

2269 GOTO 2420 


1590 11=ЕР11Е=С (4, 11) :Х=40+ (21-1) +54: У=15 

41LINE (Х,У) - (Х+52, +20) 。9。BFaL1mINT((Lー1 
3/4) 1Х=24+1.1#561Ү=1221:0080В 380: IF Рё=4 

THEN (.ІМЕ(Х,Ү%20)-(Х%52,Ү%21),2,ВҒ 

1395 FOR J=F1 ТО 15:С(4,3)=С (4, 7+1) NEXT 
1499 №2=15-№4*5 

1419 BOBUB 5140 

1429 GOSUB 770:IF Pé=4 THEN 650 

1459 IF N4<>@ THEN GOSUB 395% 

1440 GOSUB 650 

1450 GOSUB さ 19』1F L<A THEN 1480 

1460 Jl1=4:C(J1,14)=ErJ3=1:íGOSUB 6@@íJ3=2 
1GOSUB 6QQrJ3=3 :GOSUB 6090 

1479 IF 01=1 THEN 850 

1480 IF (267 THEN 1160 

1499 GOTO 1179 

1500 ’ 

159” 

1520 H1=INT (RND (1) #4) +I: H2=INT (КМО (1) +6) 
+1iH3=H1+H2:LOCATE 12,6ІРБІМТ “74 No.1 ・ 
"s. HILOCATE 12,91РКІМТ "94 No.2 · < 
“H2 

1530 FOR A=@ TO 2rIF Н5=2+А*4 THEN A%="" 

* 4" GOTO 1580 

1540 IF H3=3+A*4 THEN АФ-"уғ-":00Т70 1580 
1550 IF Н3-4%А%4 THEN А%-"7 ı GOTO 1580 
1560 IF H3=5S+A*4 THEN АФ-“һу" GOTO 1580 
1570 NEXT 

15809 LOCATE 9,12ІРКІМТ "777 / Vua п г" 
IASI", #'2" FOR 1=1 ТО 5006, МЕХТаМТОТН В 
©1 SCREEN 2 

1599 CLS ііф-діМ5еМ5%1:ІҒ М5е5 THEN N3=1 
1595 LINE(6,@)-(639,199),2,BFiLINE(17,24 
) - (628。 195) 。 4,BFIFDR 1=24 ТО 144 STEP 52 
1(1МЕ(17,1)-(628,1%52),0,ӘіМЕХТ І 

1596 LOCATE の 。 の PRINT "トン "1N さ 

1600 LINE (192,4) 一 (46 さ 。 19) 。2。BFILDCATE 52 
sy iPRINT “2792492 マー ジャ ン " ョ LUCATE 15,0іРК 

МТ "777" 

1502 Хті50іҮтдіі ІМЕ(150,0)-(182,20),7,ВБҒ 
10М H3 GOSUB 1,34, 33, 32, 31, 34, 33, 32, 31,3 

4,33,32 

1605 LOCATE さら 。6』PRINT "リモ チャ ノ ステ バイ "LOCA 

ТЕ 55,1ФІРБІМТ "トイ メン ノ ステ バイ" ョ LUEATE 55,14 
』PRINT "ЛЕУР/ ДУЛ "а ОСАТЕ 55,18іРБІМТ " 

779 / ステ ハイ "mLOCATE 69,ФІРБІМТ "М 9° 4"J 
1=4:Ll=14:C(J1,11)=E(82)i Хеб05і YO 

1607 LINE(X,Y)-(X+32,Y+20) , 7, BFı GOSUB 38 

© 

1608 LOCATE 71。224PRINT "Еле" 

1610 С(4,14) «58: GUSUB 570: №=1 5: ВОВОВ 77 

Ф. GOSUB 630: IF A$="^*4" THEN 1170 

1629 IF АФ«"уғ”-" THEN 1210 

1650 IF A%="f2" THEN 1250 

1640 GOSUB 1290 

1650 G=INT (RND (1) #3) 1HeGti0+F: T=Q 

1660 IF D(H+T)=4 THEN ОМ U GOTO 1960, 212 

9,2190 

1670 Т=Т+1 

1680 IF Т<8%1 THEN 1460 

169% У-Ә 

1700 D(H+V) =р (H+V)+1』 ソ = り +t』 IF У<8+1 THEN 
1700 

1710 RETURN 

1720 H=INT(RND(1)#37)+is IF H/10=INT (H/1@ 
) THEN 1720 

1730 IF D(H)<P THEN 1750 

1749 GOTO 1720 

1750 D(H) =D (Н) +Q: RETURN 

1780 ” 

1820 ' 

1850 P1mO』P2=mOrFP さ =GrP4=OIPS=O1P6=GIN4=O1 

№=0:01=0:РОК 1=1 ТО 4 

1840 FOR J=1 ТО 16iC(!。J)=mOINEXT JiNEXT 
1 

1850 FOR 1-і ТО 37:0 (1)-діМЕХТ 

1869 FOR I=1 ТО 日 4iE(I)=GiNEXT 

1870 , 

1889 71-0 

1899 Jl=J1+1rL=INT(RND(1)*#&)rIF L=S5 THEN 
2550 

1999 IF L=4 THEN Am44BOTO 1920 

1910 A=3 

1929 BmINT(KND( 1 ) *Q+1) ョ IF В«д THEN 2050 
1930 ° 

1940 Е1-0 

1950 E】=E1+1 

1960 Ғ=ІМТ (КМ0 (1) +7) +118=210=1 

1970 GOSUB 1650 

1980 С(Ј1, (Е1-1) #3+1) =Н:С (91, (E1-1)*3+2) 

-“Нж1:С(21,(Е1-1)ж5%3) =H+24 IF Е1<В THEN 1 

956 

1990 IF A=3 THEN 2010 

2000 GOTO 2030 

2010 IF B=3 THEN 2070 

2020 GOTO 2050 

2030 IF B=4 THEN 2070 

2046 ' 

2050 FOR 1=1 ТО А-В: Р=2:0=5: GOSUB 1720іС 
(Ji, (1-1+8) *5+1) =Н:С (J1, (1-1+В) w さ +2) ені C 
(J1, (1-1+В) #3+3) =H NEXT 

2050, 

2@7@ IF L=4 ТНЕМ 2570 

2080 Ре 31 0-21 БОБОВ 172@:C(J1,1@)=HíC(J1, 

11)=H 

2099 ' 

2199 IF L=@ ТНЕМ 212@ 

2110 GOTO 217% 


660 LOCATE 2, 18, INPUT "97-1 "1С (4, 15) LOC 
ATE 2, 181 РАТМТ " "LOCATE 2,18 
ı INPUT "マチ テー2"1C(4。16) iLOCATE 2, 18: РАМТ 

“жәнее 0-х  чиниинаРОК Іші ТО 1901 МЕХТа 
ВЕЕР GOTO 1450 

679 ° 

89 1=1 

490 РОК J=I+1 ТО 14-N4w さ 

709 IF С(4,1)<С(4,2) THEN 720 

719 X=C(4,1)iC(4,1)=C(4,J)iC(4,J)=K 

720 МЕХТ 

759 1=1+1 

740 IF 1<14-М4%5 THEN 290 

750 RETURN 


2280 IF L=2 ТНЕМ 2500 

2290 GOTO 2410 

2590 FmINT(RND(1)w7)+14BmINT(RND( 1 ) #3) зН 
=G#10+Fı IF D(H)=4 THEN 2360 

2310 IF D(H+2)=4 THEN 2300 

2320 D(H)=D(H)+1íiD(H+2)=D(H+2)+1iC (31,12 
)=Н:С (91,13) =Н+2:С (91,15) *Н+1:С (91,16) = の 
11Р 21<3 THEN 1090 

2559 GOTO 2420 

2340 ' 

2550 FOR М=1 TO &rP=3S:Q=2:GOSUB 172@/C (J 
1,1+(M-1)*2)=HíC(J1,2+(M-1)%2)=HrINEXT 
2549 ' 

2579 Ре4:і0ч110608УВ 172@:C(J1,13)=H 

25809 С(Ј1,15) =HaC(J1。16) =OI IF J1<3 THEN 
1890 

2590 GOTO 2420 

2400 ' 

2410 P=3:Q=2:GOSUB 172@:C(J1,12)=HiC(J1, 
13)=HíC(J1,15)=HíiC(J1,16)=C(J1,1@)rIF 21 
<3 THEN 1990 

2420 ” 

2430 FOR 1=1 TO 15 

2440 H=INT (КМО (1) #37) +1: IF H/1@=INT(H/10 
) THEN 2440 

2450 IF D(H) =4 THEN 2440 

2489 C(4,1)=Hı D(H) =D (H) +i NEXT 

2470 ' 

2480 (-о 

2490 FOR I=1 TO 371D(1)=4-D(1) МЕХТ 

2500 FOR I=1 ТО 3711Р 1/19“ІМТ(1/19) THE 
N 2530 

2510 FOR Ке) TO D(I): IF D(I)=@ THEN 2550 
2520 L=L+1íiE(L)=I:sNEKT К 

2559 NEXT I 

2540 ' 

2550 LOCATE 15,12іРКІМТ "コレ カラ サイ 9 フリ マス 


779 J1=4:11=1 
780 Х=40+ (11-1) +34: У=154:ВО50В $89: 11=11 
+1:1Е 11<М2%1 THEN 780 

799” 

800 LINE (548, 154) – (600, 174) , 4, BF I RETURN 

810 GOSUB 45001: GOSUB S100ıCLS 11Р Ji=1 

THEN Вө-(/% 

829 IF Ji=2 THEN B$=V%$ 

850 IF 21-5 THEN Bê=ws 

940 PRINT ВФ" / ЭҰпу"аР1е-.271.8070 970 

850 IF Јі=1 THEN B%=U$ 

860 IF Jim2 THEN B ゅ = いも 

870 IF 31-5 THEN Be も 

BBo IF 21-4 THEN ВФеХх% 

890 GOSUB 45 の 9』GOSUB 5100іСІБ IPRINT B%I 
" 2 フリ コミ " ョ P さ =J1』1TF J さ =1 THEN じゅ = も 

900 IF 15-2 THEN C$%$=V$ 

910 IF 15-3 THEN C$=wWw$ 

929 IF J3=4 THEN C%=X%:GOSUB 55001 ' 777 / 
ホー ラ / Music 

959 PRINT СӨ: 


"2 ロン "1=J さ 1P2eJ さ GODTO 97 


949 IF Р5-Ө THEN N2=14:P1=4:GOTO 969 
950 Р2=4:№2=14 

959 Jl=4íGOSUB 5300:’779 ノ リモ ロン ノ Music 
O” 

980 FOR 1=1 ТО 400: МЕХТ 1, ВЕЕР 

990 IF (Pl=4)+(P2=4) THEN 1010 

1000 N2=13:LINE (10, 40) -(629, 96) ‚4, ВЕ: GOT 
О 1020 

1010 №2=1311ІМЕ (0, 40) - (659,96) , 4, BFIN2=1 
5-М4ж5 

1020 FOR 11=1 ТО М2: Х=40+ (11-1) #34, Ү=581 
GOSUB 58Ө:МЕХТ 

1030 IF Pl=4 THEN 11=14-N4#»3ı GOTO 10950 
1949 С(21,110"Е 

1050 X=56@iY=58í/IF P1=4 THEN Х=40+ (11-1) 


2560 FOR 1=1 ТО 15@,A=INT(RND(1)*#42)+1iB 
=INT (RND (1)#42)+43:C=E (A) ı D=E (B) 1E (B) “C1 
E(A)=D:NEXT 
2570 ° 
2589 FOR 1=1 ТО ЗіР(1)тіМІ (RND (14) #2) 1 МЕХ 
T 
2599 FOR 1-1 TO 319(1)=АМО (1) *65+В: МЕХТ 
2600 CLS GOTO 1500 
2610 WIDTH 49110САТЕ 9,5іРКІМТ "жж ” 
229 ケイ サン ж... 
2620 LOCATE 15,8: INPUT "キソ / テン スウ "11711 
LOCATE 14, 1@11МРОТ "ナン ハン 7" АЛ "12425-12 
1I IF 12-0 THEN 2640 
2636 FOR 1=1 TO 122415-15%24МЕХТ 
2640 IF INT(Z73/100)=Z3/100 THEN 2660 
2650 7Z さ =(INT (Z3/100) +1) +100 
2660 IF 15>299Ө THEN 13=20090 
2670 IF Pl=@ THEN 2040 
2680 FOR 1-д ТО 2аРтеН53-1-1%4 
2899 IF Р5<5 THEN 2710 
2700 NEXT 
2719 IF PS=P1 THEN 25-25%2:00Т0 2730 
2729 GOTO 2780 
2730 Ғ(11)-Ғ(201) +Z さ # さ 
2740 FOR 1=1 ТО 4』1IF 1-01 THEN 2760 
2750 F(I)=F(1)-Z3 
2760 NEXT 
2770 GOTO 2910 
278d " 
2790 J2mP5IF (31) =F(J1)+27 さ 3w4aFDR 1-1 TO 4 
』IF 1301 THEN 2820 
2800 IF 1-22 THEN Е (92) =F (J2) -Z3*21 GOTO 
2820 
2819 Ғ(1)еҒ(1)-15 
28209 NEXT 
2836 GOTO 2910 
2840 °’ 
2850 J1=P2』J2=P さ IFOR 1-0 ТО 2iPS=H3-1-I* 
41 IF Р5<5 THEN 2879 

2869 NEXT 

2870 IF Р5=Р2 THEN 25е152:і00Т0 28970 
2880 GOTO 2900 
2890 F (J1) =F(J1)+Z さ w さ 』F (92) =Е (J2) -Z さ せる 1 日 
OTO 2910 
2900 F(J1)=F(J1)+Z3%4(F (J2) mF (J2) -Z さ 4 
2910 CLS LOCATE 10, SıIPRINT "#++ テン スウ 
са? tt" LOCATE 10,8:РКІМТ "2 タ " イ マ ノ Th 
"ӯро "ИТ (Z3) 1LOCATE 12, 121РКІМТ 0194" 

"BIF(1)ILUCATE 12。1 さ 』PRINT Vey" 

“$F (2) ILOCATE 12,14іРКІМТ МӨР" "Е 
(3) 』LDCATE 12, 15:РКІМТ ХФ" 


1060 GOSUB 380160808 5120:1Е Р2=0 THEN 1 


IF Р2<>4 ТНЕМ 1120 
1980 IF №4=0 THEN 1120 
1090 IF Р1=@ THEN 1110 
1199 IF P1<>4 THEN 1120 
1110 GOSUB 5020 

1120 LOCATE 28,23: INPUT "テン スウ 741201 サイ 
フリ ーm1"8Z1CLB 

1150 IF 121 THEN 1129 

1149 IF Z=1 THEN 240 

1150 GOTO 2610 

1160 WIDTH 4 の 1CLBIBUBUB 5000: уе 

1162 FOR X=@ TO 50 BTEP 2 

1164 LOCATE Х,УзРАТМТ "ナカ " レ テ " ス "FUR I=1 
ТО 1001 МЕХТ IaLOCATE X。YiPRINT " ы 
1YmY+1 

1166 NEXT XtGOTO 249 

1179 L=L+1íJl1=1:GOSUB $509: GOTO 400 

1180 J3=2:GOSUB 590: IF 0141 THEN 850 
1199 J さ = さ 』 GOSUB 590: IF Qiml THEN 850 
1200 J3=4:GOSUB 6 ら 9』 IF Q1=1 1НЕМ 850 
1219 L=L+1iJl1=2íGOSUB 350:GOTO 400 

1220 J3=3: GOSUB 599』IF 01-1 THEN 850 
1230 J3=4:GO0SUB 6ӨФІІҒ Q1=1 THEN 850 
1240 J3=1rGOSUB 599』IF Ql=1 THEN 850 
1250 L=L+1íJ1=35:GOSUB 550:0070 400 

1260 15-4. 8050Б 699』IF Ql=1 THEN 850 
1279 J さ = OSUB 590:IF Qim1 THEN 850 
1280 J さ =21G0BUB S99』1F 01-і THEN 850 
1299 L=L+1:i11=14-N4#3XSiJ1=4: C (J1,11)=E(L) 
rE=E(L)iX=568iY=154:G0SUB 580 

1300 IF P6m4 THEN 270 

1510 IF P6m4 THEN GOSUB 560100308 799:00 
TO 1450 

1520 GOSUB 6701: GOSUB 51401 №= 1 4-№4#31: 808 
МВ 779:ІҒ М4<>9 THEN GOSUB さら さら 

1550 GOSUB 40 

1540 LOCATE 2,18: INPUT "24" IF%íIF Ре 
"е" THEN GOSUB 45@@íCL8 1P さ mwOIBOTD 940 
1550 IF Ғөм!/-%" THEN Pb=41 60608 5400:”7 
ナタ ノ リー チ / Music 

1589 LOCATE 2,1811.1МЕ8(19,144)-(100,151) 
‚4, ВЕЗТЕ Pé=4 THEN LOCATE 2,18:4NPUT "ステ 
N 1"F 

1570 LOCATE 2, 18: -1МЕ@ (19, 144) - (160, 151) 
‚4, ВР.РОК Ғізі ТО 1411Ғ F*=R%(F1) THEN 1 
599 

1580 МЕХТ 

1585 GOTO 1340 
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24,Y+8)-(X+21,Y+1@),4:LINE(X+8,Y+11)- (K+ 
21,Y+11), 4: LINE(X+7, +14) - (Х+22, Y+14) , 41 
LINE(X+12,Y+11)-(K+12, Y+15) , 4: RETURN 
4345 LINE(X+12。Y+15) -(X+10。Y+17) 。43LINE( 
X+10,Y+17)-(X+4,Y+18), 44 LINE (Х+17, Y+11) — 
(X+17,Y+18),4:LINE(X+17,Y+18B)—(X+24,Y+18 


2920 LOCATE В, 18: 1МРОТ “27 94 9 29 27° 
4. Yeæs=Y"JA$ıCLS GOTO 240 

2930 ' 

2940 N4mN4+11BOSUB 29901 1=1+ (№4-1) #5101 
)=E (L) ıL=L+11ı LOCATE 2,181 INPUT "ウィ イハ イー1 "8 
ҒөіКе2%(М4-1)ж5і 80808 5000: ОСАТЕ 2, 18:1 


4045 CIRCLE (X1,Y1),R1,CL 3КЕТИКМ 
4047 WIDTH B@:LINE (58,8)-(004,200),1,В 
FaLINE (78,28)-(564,180),2, ВЕР: LINE (118 
, 484)-(524,162) , 4, BFı LOCATE 52,8 í PRINT 

УЕ" 7-7 74 Н 

4050 Ү-ФФіҒОК Х=168 ТО 440 STEP 34:1=1+1 


МРОТ "2404-2"1Ғ6іКя3%(М4-1)%3і GOSUB 5000 4060 LINE (X, 90)-(KX+32,110),7, BF ), 4ЕЕТМЕ (Х+24, Y+18) =(X+24,¥+16) , 41 RETURN 
ıNS=NS+1: GOTO 1340 4070 ON I GOSUB 4001, 4002, 4003, 4004, 4344 LINE(X+12,Y+14)-(X+12,Y+19), @i LINE ( 
2950 I2=F1 4005, 4006, 4907, 4008, 4009 Х%12,Ү%19)-(Х%8,Ү%19),Ө111МЕ(Х%19,Ү%14)- 
2980 С(4,12)=С (4, 12+1)112=12+1 4080 NEXT X (X+19, Y+19), OrLINE (Х+19, ¥Y+19)-(X+17,Y+19 


2979 IF 12<14 THEN 2940 
2980 М5еМ5%11М2-15-М5і GOSUB 3100: GOSUB 7 


4082 Үт12011=01ҒОК X=168 TO 440 STEF 54% 
1=1+1 


), © 
4547 CIRCLE (Х+16, +14), 5, 4: РАТМТ (Х+16, Y+ 


761 RETURN 4084 LINE (X,120)-(X+32,14@),7,BF 14), 4іРБЕТ(14%Х,5жҮ),7іРЗЕТ(Х%15,Ү%5),74 
2999 МІМЕ(Х,Ү)-(Х%52,Ү%20),4,ВҒаКЕТИЯМ 4086 ON 1 GOSUB 4521,4522,4523,4524, КІМЕ(Х%12,Ү%1)-(Х%20,Ү%3),3,ВҒі RETURN 

5000 LOCATE 2,18:PRINT " "FOR 4325, 4326, 4327, 4328, 4329 4348 LINE(X1+2,Y1)-(X1+2,Y1+Y2),7,B:iLINE 
Fl=1 ТО 14:1F F$=R$(F1) THEN 3020 4088 NEXT X (Х1-1,Ү1)-(ХіжХ2%1,Ү1), Сі, Бі ІМЕ(Х1-і,Үі 


5010 NEXT 
3020 41=4111=Е110(К)=С (91,11) #С (91,11) =3 
BIGOSUB 2950: RETURN 

5059 X=28B- (N4-1 ) *41FOR 1=1 ТО N4#3-1 
5049 FOR J=1+I ТО №4*5 

3050 IF G(I)<G(J) THEN 3070 

3050 AsB(I)1B(1) =B(J)1B(J) mA 

5979 NEXT JıNEXT I 

JOBO FOR 1-1 TO М4ж5121-4111-11%1-(М4-1) 
ж5аС(21,112-8(121Хе50%54%(4-М4) #3+68+ (エー 
1) #34: Ys1541GDBUB 3BOINEXT』RETURN 

3090 LOCATE 2,18: 1МРИТ "ショ テリ BCWaLDCATE 2 
‚1ВЕРАТЫТ “ "IIF (СФ="с")+(С®= 
"р") THEN 2930 

3100 IF C%="r" THEN GOSUB 45001Р1=01Р2=4 
1P さ =J1iJ1=41CLB ай0Т0 970 

3110 LOCATE 2,18іРБІМТ " "GOTO 
529 

5120, 

5150 LOCATE 1 の 。141PRINT "M әле 4": 11=141С 
(J1, I1) mE (82) 1 X=136íY=112:G0SUB さ BOiLDCA 
ТЕ 35,141PRINT "の 5 ト * う "1C(d1。11) =Е (83) 』 Xe 
3281: Y=1 121 GOSUB 3860: RETURN 

3140 LINE (40,154) – (544,184) , 4, BF 1 RETURN 
3180 LINE (40, 154) - (544, 174), 4, ВЕ: RETURN 
4000 DIM Z1% (GL), 22% (GL) , Z34 (GL) , 24% (GL) 
„, 25% (GL) , Z6% (GL) , Z7% (GL) , Z8% (GL) , 29% (GL) 
+ ZZ1% (GL), ZZ2%(BL) ,ZZ3% (GL), 224% (GL), 225 

% (GL) , ZZ6% (BL) , ZZ7% (GL) , ZZB% (GL) , 229% (GL 
) 』CLB 3:CONSOLE 0, 24,0, Bı COLOR 7,9,0:8СК 

EEN 2. ВТАВТ=1: GOTO 4047 

4001 X1=X+16íiY1=Y+1@:R1=14:CL=@:GOSUB 40 

45』R1=1O1CL=41GOBUB 40451 К1=6: CL™21 BOSUB 
40101 RETURN 

4092 X1=X+16IFOR YimY+5 TO Y+15 STEP 101 

CL=01R1e71GOSUB 40451 С =4, 1 =41 GOSUB 401 

©: NEXT: RETURN 

4005 X1=X+8:Y1=Y+4:CL=@:R1=6:GOSUB 40451 

CL=4:R1=3:GOSUB 40101 Х1=Х+161Ү1=ү+101К1= 

біСітӨі8065ШВ 40451 CL=21R1=3: 00808 4010:Х 
1еХ%241Ү1еҮжібіНітбіГі- еді 80808 494511 =5 
1CL=4:GOSUB 40101 RETURN 

4004 FOR X1=X+8 ТО Х%24 STEP 16:1FOR Y1=Y 
+5 ТО Y+15 STEP 10:Сі=0:Кі=6: 80808 40454 

К1=5:С_ 94180808 40101 NEXT Y1,X1:RETURN 

4005 FOR X1=X+8 ТО Х+24 ВТЕР 161FOR Y1=Y 
+4 ТО Y+16 ВТЕР 12』CL=OriR】=5IBOBUB 40451 
Кі =: CL=41 80808 40101 МЕХТ Y1,X1:X1=X+1é: 
Y1=Y+1@íCL=0:R1=5:GOSUB 4045: В1=3: С =2: 6 
OSUB 40101 RETURN 

4004 FOR X1=X+9 ТО X+23 STEP 141Y1=Y+41R 
1=5:iCL=@:GOSUB 40451R1=3ı CL=41 GOSUB 4010 


4999 GETê (148, 90) - (200, 110) , 21%4 

4100 GET@ (202, 90) - (234, 110) , 22% 

4110 GET@(236』 90) - (24B, 110) 。 234 

4129 GET@ (270,90) - (302, 110), 14% 

4150 БЕТӘ (304, 90) - (336, 110) , Z5% 

4140 БЕТӘ (358,90) - (370, 110) , Z6% 

4150 БЕТӘ (372, 90) - (404, 110) , 27%4 

416% GET@ (404, 90) - (438, 110) , 28% 

4179 GET@ (440,90) - (472, 110) , 29% 

4171 GET@ (16B, 120) - (200, 140) , 221% 

4172 GETA (202, 120)-(234, 140) , 2224 

4173 GET (2364, 120) - (26B, 140) , ZZ3% 

4174 GETA(270, 120) - (302, 140), 114% 

4175 GETA (504,129) - (336, 140) , 225% 

4176 GET@ (338, 120)-(370, 140) „224% 

4177 БЕТӘ (572,129) - (404, 140) , 227% 

4178 GET@ (406,120) - (438, 140) ‚278% 

4179 ОЕТ@ (440, 120) - (472, 140) , 129% 

4220 FOR 1=1 ТО 2009:МЕХТ GOTO 50 

4321 XI=X+16rY1=Y+101X2mX+11 FOR Y2mY+6 Т 

О Y+18 STEP 2:LINE(X1,Y1)-(X2,Y2),4iLINE 
(X1,Y1)-(X+31,Y2),4:NEXT Y2:X1=X+4iYl=Y+ 

4iX2=X+19:FOR Y2=Y+3 ТО Y+B:LINE(X1,Y1)- 
(X2, Y2) ,21МЕХТ Y2:GOSUB 461RETURN 

4522 CL=4iX1=X+14iX2=4iY2=erFOR Yl=Y+2 T 

0 Y+12 STEP 9100506 501МЕХТ YliRETURN 

4323 CL=41X1=X+14:Y1=Y+21 X2=41Y2=6』 GDBUB 
Зда X1mX+7 ュ Y1mY+121BOBUB さら IX1=X+211BOBU 

В 3@:RETURN 

4524 CL=4:X2=4iY2=e:FOF X1=X+7 ТО X+21 8 

ТЕР 141FOR Yl=Y+2 ТО Y+12 ВТЕР 101 BOSUB 

ЗФіМЕХТ Y1,X1:RETURN 

4325 CL=41 X224: Y2=A1 FOR Х1=Х+6 TD X+22 В 
ТЕР 161FOR YimY+2 ТО Y+12 STEP 10rGOSUB 
ЗФіМЕХТ Y1,X1:CL=21X1=X+141 Y1=Y+71 BOSUB 
391 RETURN 

4324 CL=41X2=41Y2=bı FOR X1=X+& ТО X+22 S 
ТЕР BIFOR Y1=Y+2 TO Ү%12 ВТЕР 1 の IBOSUB 3 

@iNEXT Y1, X11 RETURN 

4527 CL=4iX2=4iY2=4:FOR X1=X+7 TO X+23 8 
ТЕР BıFOR Yl=Y+8 TO Ү%14 STEP &:GOSUB 50 
INEXT Y1,X1iCL=2iX1=X+15íiY1=Y+2íiBQSUB 50 
1 RETURN 

4528 Сіт41Х2-51Ү2-5іҒОК X1=X+3 TQ X+24 8 
ТЕР 2Z3ıFOR Y1=Y+3 TO Ү+12 ВТЕР 9100808 5 

ФІМЕХТ Y1,X1:LINE(X+8,Y+8)-(X+16,Y+3), 41 
LINE (X+14, Y+3) - (Х+24, Ү+8) , 41LINE (Х+В,Ү+1 
2)-(X+16é,Y+17),4:LINE(X+16,Y+17) - (X+24, Y 
+12) , 4』GDSUB 19IKETURN 

4529 X2=4iY2=4iFOR Yl=Y+2 ТО Ү%14 STEF 6 
1CL=41X1eX+71GDBUB 3@:CL=2iíX1=X+15:GOSUB 
3@iCL=4iX1=X+23iGOSUB 3@:NEXT Y1』RETURN 


+*Y2)-(X1+X2+1,Y1+Y2),CL,BiY3=(Y1+(Y1+Y2) 
)/2411МЕ(Х1-1,Ү3)-(Х1%Х2%1,Ү3), CL, Бі КЕТ 
RN 

4500 КЕМ ホー ラ / color / へ ナ コウ 

4510 COLOR= (i, 7, 7) 』 COLOR= (2, 3, 3) 』 COLOR™= ( 
4,0,0) 1COLOR= (7,6,6) 

4550 FOR 1=1 ТО 2000: МЕХТ I 

4540 СООК" (0, 1,1): COLOR= (2,5, 5) 』 COLOR=( 
4,6,6) : CDLUR= (7,3,3) 

4579 РОК 1=1 ТО 2000: МЕХТ I 

4580 FOR I=@ ТО 7』COLODR= (1,1,1) 1МЕХТ IIR 
ETURN 

воде ” Vafa? 2 Music TNF л" R74 
5019 RESTORE 5020 

5020 БАТА 45,40,41,409,49,40,0,40,58,20,4 
Ó, 20,41,26, 38,26, 34,70 

5030 Mim?sGOSUB 6909: RETURN 

5160 ' フリ コミ ノ Music ГОУ и М7" 
27. 

5110 RESTORE 5120 

5120 БАТА 45,20,50,20,49,20,50,20,52,29, 
53, 20, 52, 20, 53, 20, 55, 20, 57, 60, 0, 70 

5130 H1=11:GOSUB 40001 RETURN 

S2 ' Upning 2 Music "Itn УР. 

5210 RESTORE 5220 

5220 DATA $38,260,43,20, 47,20, 50,100, 0,10, 
52,10, 50,10, 47,20, 43, 20,47, 100,0, 10, 38, 2 
9,43, 20, 47, 20, 45, 190,0, 20,47, 10,45, 10,45 
‚20,40, 20,45, 100 

5230 М1=21. (30808 40001 RETURN 

5599” ®-э ノ Music 

5510 RESTORE 5520 

5520 DATA 45, 20,40,10,0,40, 40, 20,41,20,4 
3,260,52, 10,0, 26,52, 20, ©, 20,48, 40 

5330 MimiisGOSUB 50099: RETURN 

5400 ’ フリ コミ ノ Music 

5410 RESTORE 5420 

5420 БАТА 45,20,0,30, 45,50, 45,20,0,5,41, 
10,45,15 

5459 Ml=7:GOSUB 6009: RETURN 

ёде ’ Sound / エン ソウ 

6010 FOR I=1 ТО М! 

6020 READ М2, МЗ: SOUND М2, М; 

6030 NEXT 1 

6040 RETURN 

7000 ’ чиниииииииниииинииининииининиииии 
22422442144 4224142441212244 44122254 
7010 ' 

7020 ° РАЗОРТА 7 セイ サイ 。 の "ラフ 
492 マー シ " ャ ン 

7030 °’ 

7040 ” 58/9/4 


ıY1=Y+121R1=Sı CL™O: GOSUB 4G45』R1= さ 1CL=2 ョ 4330 LINE (X1。Y1) 一 (X1+X2。Y1+Y2) „CL, BF:G0 хафи "a 

GOSUB 40@10@ií:Y1=Y+16:R1=5:CL=@:GDSUB 40451 SUB 48:RETURN 7050 ' 

Ri=3ı CL=21 GOSUB 4010:МЕХТ X1: RETURN 4339 LINE (X+20, Y+@)~(X+24,Y+8), OrLINE (X+ || 7040 ' フラレ キ マイ コン 2 
4997 Хі-Х%7і Yi=Y+3ı Кі=41 Сізді BOBUB 4 26,Ү%8)-(Х%26,Ү%7),ӨіКЕТИЯМ 22", キマ コン 2927, FORESIGHT 

ら 45』R1=21CLm41GDSUB 4G19X1mX+16Y1mY+St 4540 (ІМЕ(Х%16,Ү%8)-(Х%16,Ү%18),ӨзіімЕ(Х || 70645 ’ 


7070 " Opening Music #85 і アナ クノ ホー ラ #9 
20 ЗЕ“ #960 1 779 / 9-% 01350 т 

か レノ Music #1160 ョ フリ コミ 7 
э» / ул") 9019, 890 
7075 ' 
7080 ” Music p` yery 7 ЕМ BS, 010, 89 
©, 920, 960, 1160, 1550 “a? ノ 

GOSUB 5000, 5100, 5200, 53 
090, 5400 メイ レイ 9 I"m シテ 2994 
7085 ” 
7990” иииииинииииинииииииииииичинининии 
244444444242 


Kim44CL=OIGDSUB 4945』RK1=21CLm41BOBUB 401 
9іХімХ%25іҮімҮ%71іКіедіСІі =0: GOSUB 49451К1 
=2:CL=4: ВОЗЫВ 4010: GOSUB 40111КЕТИЯМ 
4008 FOR X1=X+9 TO X+23 STEP 14』FUR YieY 
+4 ТО Y+16 STEP 4iR1=4iCL=@:GOSUB 404518 
1=24CL=41BOSUB 4 の 91OINEXT Y1,X1:RETURN 
4099 FOR X1=X+6 ТО X+26 BTEP 1OIY1mY+41R 
1=4』CL=O』 GOSUB 4@45:FR1=2íCL=4:G08SUB 4010 
1Ү1=ү+101К1=41Сі =0: GOSUB 4945іК1е2іГі-2і 
GOSUB 4010: у1=Уу+161:К1 =4: СЕ =0: GOSUB 4045: 
R1=2:CL=4:GOSUB 4010: МЕХТ: RETURN 

4010 CIRCLE (X1,Y1),R1,CLiPAINT (Х1,Ү1), 
CL: RETURN 

4011 FOR X1=X+9 TO Х%25 STEP 14:FOR Yl=Y 
+12 TO Y+16 STEP 4:R1=51CL=0: GOSUB 40451 
R1i=3:CL=2: GOSUB 40101 МЕХТ ҮІ, Хі з КЕТИКМ 


%8,Ү%19)-(Х%25,Ү%10),Ө:СІМЕ(Х%16,Ү%15)-( 
Хж11,Ү%16),Ө1ІМЕ(Х%11,Ү%16)-(Х%5,Ү%17), 
@:LINE(X+16,Y+13)-(X+21,Y+16),@rLINE (X+2 
1,Y+16)-(K+26, Y+17) ,@1 RETURN 

4341 LINE(X+11,Y+8)-(X+15,Y+12),@r LINE (X 
%21,Ү%8)-(Х%16,Ү%12),0ііІМЕ(Х%10,Ү%123-( 
Х%22,Ү%12),Өі(ІМЕ(Х%10,Ү%15)-(Х%22,Ү%15) 
,ӨІШІІМЕ(Хж12,Үж10)-(Х%15,Ү%17), ді КЕТКИМ 
4342 LINE(X+13,Y+5)-(X+13,Y+13),@(LINE (X 
+13,Y+13)-(X+6,Y+14),@rLINE(X+18, Y+5) – (X 
Ж18,Ү%13),ӨзіЛ1МЕ(Х%18,Ү%13)-(Х%25,Ү%14), 
@:RETURN 

4545 LINE(X+19。Y+17) 一 (K+27。Y+17) の 』LINE( 
Х%27,Ү%17)-(Х%27,Ү%15),ӨііІМЕ(Х%19,Үж11) 
-(Х%26,Ү%9), Ӛзі RETURN 

4544 し INE(X+22。Y+6) 一 (X+19。Y+ 日 ) 。44LINE (X+ 
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あな た は , 日 ご ろ の うっ ぷん を 晴らす た 
Өс, 銃 を 片手 に と ある 5 階 建て の マイ ユ 
ン ・ シ ョ ッ プ に 忍び込み, 店 の 中 に ある マ 
イコ ン を , 片っ端 か ら 破 壊し て いき ます . 

し か し , それ に 気がつい た 店 員 さ ん も , 
負け て な る も の か と , や は り 銃 を 手 に あな 
た を 攻撃 し て きま し た . 

さあ , あな た は 店 員 さ ん の 攻撃 を うま く 
か わし な が ら , 全 階 の マイ コン を すべ て 破 
壊す る こと が で きる で し ょ うか . 


迷路 (1 面 ご と に パタ ー ン が 違う ) と 店 
ASA, JR マン (あな た の 操作 する 人 ), 
マイ ユン が 表示 る れる と ゲー ム 開 始 で す . 

キー は [llllW で 上 左右 下 , [Z TKD? 
出 ま す . あな た は 店 員 る ん の 攻撃 を か わし 
な が ら 下 に 表示 る れ て いる COM が 0 に な る 
まで ひたすら マイ ユン を 壊し て くだ さい . 
COM が 0 以下 に な っ て か ら 左 上 隅 に 行く と 
ドア が 開い て 次 の 面 に 進め ます . な お , 1 
面 ク リア する ご と に ボー ナス が 出 ま す . 

店 員 る ん の 撃っ た 弾 に や られ だり , Wi 
っ だ りす る と ゲー ム ・ オ ー バ ー で す 。 


я! 


ォ ー ル BASIC で す ( マ シン 語 わ か らん も 
ー ん ). 別に 変わ っ だ こと は し て いま せん . 
興味 の ある 人 は 自分 で ゲロ グラ ム を 見 て 解 
析 し て くだ きい 、。 


5 面 ク リア する と GIVE UP と な り ま すか が , 
な か な か 難し いで し ょ う (5 面 が 特に ). GI- 
VE UP する と リモ ッ ト が か か る の で 注意 し 
て くだ さい <: 

この マイ コン は MZ, PC, FM ? 


画面 の 設 明 


Шт Хх 


な に し ろば ぼく は マイ コン を 始め て 1 年 し 
か だ た っ て いな い の で , か な りお か し い プ ロ 
グラ ム に な っ て し まい まし だ けれ ども 一 
生 懸 命 作っ た プロ グラ ム で す (ここ まで 作 
りあ げ る の に 約 半 年 か か っ た ). 

最後 に 一 言 . JR-100 は と て も いい マシ ン 
ст. みん な で 買お う / 

P.S. 店 員 ほ ん は で きる だ け 撃 な な いよ 

うに し で: くだ さい 。 CO 
表 1 変数 表 


JR マン の X 座 標 , Y 座 標 

JR マン の 移動 方 向 

店 員 さ ん の X 座 標 , Y 座 標 

店 員 さ ん の 移動 方 向 

この 位置 に JR マン が いて COM が 0 だ と 面 ク リア 
ドア の OPEN 用 

SCORE 

HI-SCORE 

面 の 数 

JR マ ン の アド レス 

JR マ ン の あと 消し アド レス 

店 員 さ ん の アド レス 

店 員 さ ん の あと 消し アド レス 
店 員 さ ん の あと 消し キャ ラク タ ( 
壊さ な けれ ば な ら な い COM の 数 
JR マン の 弾 ア ドレ ス 

JR マン の 弾 移動 方 向 

店 員 さ ん の 弾 ア ドレ ス 

店 員 さ ん の 弾 あ と 消し アド レス 
店 員 さ ん の 弾 移動 方 向 

店 員 さ ん の 弾 あ と 消し キャ ラク タ 
JR マン の キャ ラク タ 

JR マン の 1 つ 前 の キャ ラク タ 

JR マン の 弾 1 つ 前 の キャ ラク タ 
店 員 さ ん の 弾 1 つ 前 の キャ ラク タ 
店 員 さ ん の 4 方 向 の キャ ラク タ 


表 2 BASIC プ ログ ラム 


号 内 ж 


初期 設定 

メイ ン ・ ル ー テ チン 

JR マン の 弾 移動 

店 員 さ ん の 弾 移動 

面 ク リア の デモ と ボー ナス 
店 員 さ ん が 撃た れ た と き の 処 理 
GAME OVER 表示 

タイ トル 表示 

ドア OPEN 

ユー ザー 定義 文字 設定 
キャ ラク タ ・ デ ー タ 
10000—10120 | 1 面 の 画面 表示 
10372—10379 | マイ コン 表示 
11000—11100 | 2 面 の 画面 表示 
12000--12090 | 3 面 п 

13000—13090 | 4 面 п 

14000—14060 | 5 面 п 

20000—20100 | 画面 わく 表示 
21000—21300 | GIVE UP デモ 
30000—30020 | 変数 設定 
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マイ コン ショ ッ プ ゲー ム BASIC リ スト 


BODSUB9969 
15 BUSUB6999 

20 DIMF(4):H=@ 

50 М=115=0@ 

35 М=М+10 

57 X9=1:Y9=2 

49 GUGUB9O99+Nr 1000 

50 FICKP 

60 ТЕРЕ7ЗТНЕМУ=У-1:С1=$80; 2=-$2: 
Х2=0:Ү2=-1 

70 IFF=74THENX=X-1:Cl1=%82:Z=-1:X 
2=-1:Ү2=0 

80 ІРР=75ТНЕМХ=Х+1:С1=%85: 2=1:Х2 
=: ү2=0 

90 ІРР=77ТНЕМҮ=Ү+11С1=%81:2=52:Х 
2=0: Y2=1 

95 Q=$C100+Y#32+X 

100 IFP=9@G0SUB30@@ 

195 V=PEEK (Q) 

110 IF (V=%4C) + (V=$85) + (V=$88) THE 
МХ-Х-Х2:ҮжҮ-Ү2:і0-0-2 

129 РОКЕО1,9:РОКЕО,С1:01-0 

159 IFV=$84THEN4000 

155 IF (М<=0) ж (Х=х9) ж(Үшү9) ТНЕМ55 
оо 

140 F (1) =РЕЕК (Q9—32) :Е (2) =РЕЕК (Q 
9+1):F (3) "РЕЕК(09%32):Ғ (4) =РЕЕК ( 
99-1) 

150 O=(F (1) =%4С) + (Е (2) =$4С) + (Е (3 
)=$4С) + (Е (4) =$4С) 

160 ТЕО=ЗТНЕМХ5=-Х5: Y5=-Y5; 29=-7 
9: BHTU26 ひ 

179 IF((F(1 ) яФАС) # (Р (3) =$4С) + (Е 
2) =$4С) * (Е (4) «%4С) ) THEN26O 

171 IFRND (10) >5ТНЕМ1 В 0 

172 IFRND (10) >5THEN1 75 

173 IFRND (10) >ЭТНЕМІЕЕ (1) <>%4СТН 
ЕМХ5=0: У5=-1:29=—52: 6070260 

174 ТЕР (3) < >$4СТНЕМХ5 = ©: Y5=1 1: Z9= 
32: GOTO260 

175 IFRND (10) >STHENIFF (4) <>$4CTH 
ENXS=-1:Y5=%@:Z9=-1:GDT0260 

178 ТЕР (2) < >$4СТНЕМХ5 = і: У5=0; Z9= 
1:60Т0260 

180 ІҒ(Ғ(1)<>%4С) «ХҮ<Ү4) ТНЕМХ5=@ 
:ҮЗа-1:29--32: 6070260 

190 ІҒ(Ғ(3)<>%4С) «(Ү>Ү4) ТНЕМХ5 =@ 
: YS=1: Z9=32: 565070260 

200 IF (F (2) <>$4C) + (Х>Х4) THENXS=1 
1 Y5=0: 79=1 BUTU269 

219 ІҒ(Е(4) <>%4С) * (Х<Х4) THENX5=ー 
1: Y5=ó: 29=-1: 60Т0260 

220 ІҒ(Ғ(1)<>%4С)%(Ү5<>-13 ТНЕМХЕ 
=0: Үб=-1:29=-32: 8070260 

230 IF (F (3) <>$4C) «(ҮЗ< >1) THENX ら = 
Ө:ҮЗші:29-32: 65070260 

240 ІҒ(Е(2)<>%4С) ж(Х5< >1) THENX ら = 
1: Y ら = の 』 29=1: GOTO269 

250 ІҒ(Ғ(4)<>Ф%4С)ж(Х5<>-1) ТНЕМХ5 
ピー1 』 Y ら = ウ 』 29=-1 

240 X4=X4+XSr:Y4=Y4+Y5 

279 09х%С1009%Ү4ж52%Х4 

280 96=РЕЕК (09) 

299 РОКЕОВ, 97: РОКЕСЭ, $84: 08=09: A 
7-06 

500 IF(X4=X)#(Y4=Y) ТНЕМДООО 

505 IF(X4=X)+(Y4=Y) 605185200 

519 GOTO5O 

5090 21-0:РОКЕ1,%АА:БЕЕРІ 

5010 Z1=Z1+Z』P ら =PEEK(Z1 ) 

5020 1ЕР0=$4СТНЕМВЕЕР®: КЕТ 

3025 ІҒР0=%8400508635800: КЕТ 

5026 ІЕРО«ФВВТНЕММеМ-1:РОКЕ21,98 
7:ҒОКІ-170509: ВЕЕР 1 : NEXT: ВЕЕРӨ: GO 
103119 

3030 ІҒРО«ФВЗТНЕМРОКЕ21,%87:ҒОКІ 
=1 T050: ВЕЕР! : NEXT: ВЕЕРФ: 50705100 
5040 РОКЕ21,%ФЕ:РОКЕ21,0:00703501 
° 

5100 S=S+Nı М=М-1: СОСАТЕ®, 10:PRIN 
TS 

311@ LOCATE22, 109: РАТМТМу" " 

3130 КЕТ 

3200 Z8=Q9:Z7=Z8:POKE1,%$DD:BEEP1 
:С2-%84 

5210 Z8=Z8+Z9:P9=PEEK (Z8) 


5220 IFP?=$4CTHENPOKEZ7, C2: BEEPO 
: RET 

3230 ІҒ (Р9<=%85) + (P9>=$80) ТНЕМРО 
КЕ27,С2:РОКЕ28,%87: 50704000 

5240 РОКЕ27,С2:РОКЕ2Н,%04:27-е-28: 
C2=P9: GOTO3210 

3500 1ЕМ=5ТНЕМ21000 

3503 Хд=Х9:Үд=ү9-1 

55095 GUSUBBO99 

5520 ҒОКІ=Ү9ТОҮ9-25ТЕР-1 

5525 POKE1, $AA: BEEP 1 』 ВЕЕРФ 

3530 LOCATEI, X9: PRINT" 4" 

3555 ҒОН20е170500: NEXT 

3540 LOCATEI, X9:PRINT" " 

5550 NEXT 

35609 LOCATEI+1, Х9: РАТМТ" £" 

3580 CLS 

5590 1. ОСАТЕЗ, St РАТМТ"О.К. CLEAR 
эн 

5590 (.ОСАТЕ109,7іРКІМТЕ Р "+" Ng "Хх 
"J 100, "=" у S+N#100: 日 m+TN 100 
5619 ГОСАТЕ1! 5, В. PRINT"HIT АМҮ КЕ 
ү" 

5629 PICKP』 POKE 1 。 KND (256) 』 ВЕЕР\ 』 
IFP= ら THEN さ 629 

3630 N=N+1 』 BEEP の 』 GOTO3S 5 

3890 POKE1,$FF:BEEP1:FORI=1 T0500 
: NEXT: BEEP9』 POKEZ 1 , $84 

5810 М=М+М№#10: РОКІ = 1 ТОМж10 

5820 Х1І=КМр (27) +1: Ү1=КМ0 (21) +1 
5850 ТЕРЕЕК ($С100+\1*52+Х1) < VOTH 
ЕМ5820 

5840 LOCATEY1, Хі: РАТМТЕЬО (1) р" (" 
NEXT 

5850 РОКЕ21,%85 

3860 Х4ж1:Ү4е2:09-э%С141:Х5--1:Ү5 
=0: 07-988: 08-09:29--1 

3865 ТЕМ=5ТНЕМХ4=10: У4=2: 09% 14 
A: 08-09 

5866 LUCATE22。 10: РКІМТМ 

3879 КЕТ 

4000 РОКЕ! , $98: FORI=1 T0200: BEEP1 
1 NEXT: ВЕЕР 

4010 FORI=1T010:POKE1, $FF 』 BEEP1 
4011 LOCATEY, X-1: PRINT" "LOCA 
TEY-1,X-1sPRINT" "sy LOCATEY+1,X 
-1 

4012 PRINT" に 

4020 LOCATEY, Xs PRINT" Ж" 

4930 LOCEATEY-1 。Xー1』PRINT "NILOC 
ATEY+1。X+1aPRINT "へ N" 

4040 LUCATEY-1 。X+1』PRINT リン" ョ LOC 
ATEY+1,X-l:PRINT" Z" 

4050 LOCATEY, Xi PRINT"“ +" 

40609 LHCATEY。X-1』PRINT "一 "LOCAT 
EY。X+1sPKINT "一" 

4070 (ОСАТЕҮ-1,ХіРКІМТ" | ":LOCAT 
EY+1。XsPRINT" |" 

4980 NEXT: ВЕЕРО 

4195 LOCATES, 2аРАТМТ" —, — へ 


" 
s —— —— سلسم‎ 


4110 LOCATEé,2:PRINT" | — H Ii~ 
О S BR 1 ピー レデ 

4129 LOCATE7, 21PRINT" トー トコ ы 
د‎ СЫЙ لا ج‎ КАЙ 
4130 PRINT:PRINT 

4135 IFS>HTHENH=S 

4137 FORI=1@@TO2@Q:PDKE1, 1: ВЕЕР: 
NEXT: ВЕЕРО 

4138 FORI=1TO300: NEXT 

4140 LOCATE, 7: РКІМТ"ТКҮ AGAIN ( 
Y/N)" 

4150 PICKP:POKE1, ФАА: ВЕЕРІ 

4155 IFP=B9THENBEEFO: GOTO3O 

4160 ІЕРч7ВТНЕМВЕЕРФ: END 

4179 80704150 

6999 CLS 

6010 (.ОСАТЕ2Ф,2:РКІМТ" m mr — 
mimm mra — г" 

602% LOCATE21,2:PRINT" 111111 
бе тык ا‎ ЕЗІ t+" 

6950 LOCATE22, 2: РКІМТ" 上 上 ココ ーーー 
ке шол ЗН ызды La 

6040 РОКЕ! , $AA: ВЕЕР 

6050 FORI=1TOS@@:NEXT 

6960 ҒОКІж250Т098ТЕР-15:РОКЕ1,1: 


BEEP1: PRINT 

6070 NEXT: BEEPO 

4080 LOCATE10, 151PRINT" I" 

090 PRINTTAB(15)$" +" 

6100 РКІМТТАВ (15) $ "J ¢ +K" 

6110 РКІМТТАВ (15) р" у" 

6120 PRINTTAB(15)4" M" 

6130 ГОСАТЕ!З, В: РКІМТ". " 

6140 ГОСАТЕ!4, 8: РКІМТ"2" 

6150 ГОСАТЕ22, 10: РКІМТ"НІТ АМҮ К 

EY !!" 

6160 РІСКР: IFPmOTHEN61 60 

6179 БЕТ 

8000 LOCATEYO, Хе: PRINT" Ш" 

8010 01=%971ҒОКІ=1Т0239:РОКЕ1, It 

BEEP1 

8020 IFMOD (1, 30) “ӨТНЕМІ.ОСАТЕҮӨ, X 

©: РАТМТСНЕ$ (01) :01=01-1 

8030 МЕХТ:ВЕЕРФ 

8040 ГОСАТЕУФ, ХФ: РАТМТ" " 

8050 КЕГ 

9000 ОРТІОМСМОрЕ1 

9010 ЕОКІ-ФСФФОТОФСӨ4Е 

9020 READJ$:J$="$"+J$:J=VAL (J$): 

POKEI,J 

9030 NEXT:RET 

9035 КЕМ #CARACTERS DATA* 

9040 DATA3B, 38, 10, 3A, 56,30,28, 44 

9050 DATA1C。 1C, 08, SC, 6A, OC, 14,22 

9060 DATAGE, OE, E4, 3C, 04, 04, 04, 11 

9070 DATA7E, 70,27, 3C, 20, 20, 50, 88 

9080 DATAZA, 6C, 38, 12, 70,90, 28, Cé 

9090 DATACE, ЗЕ, 23, 23, SF, 41,81, FF 

9100 DATAO7, 6D, 17,90,7C, 12,28, C6 

9119 DATA?1,52, 10, 05, AQ, 08, 4A, 89 

9115 DATA99, 5A, 24, CB, CB, 24, SA, 99 

9116 DQTA6 さ , 14,48, ЗЕ, の 9。E 日 。 BO, EO 

10000 GOSUB20009: LOCATE17, 39: PRI 

NT" 

10010 FORI=3TO1BSTEPé: LOCATEI, 11 

PRINT "E ЫЫ E ШШШ 
ШЕ" NE XT 

10020 FORI=éTO18STEPé: LOCATEI, 41 

PRINT ЖЫНЫ RE И" 

1МЕХТ 

10930 FDRI=2TD1BBTEP6』 ҒОВЈ=5Т028 

BTEP6』FDRKm9T ロ 2 

10040 LOCATEI+K,J:PRINT'ig" 

10050 МЕХТ:МЕХТ:МЕХТ 

100650 FORI=STO18STEPé: FORJ=2TO28 

STEP&: FORK=0T02 

10070 LOCATEI+K, Jt PRINT "HR" 

10080 NEXT: NEXT: NEXT 

10999 LOCATE20, 5: РАТМТ" № に 

= =" 

10100 возивзееее 

10119 GOSUB10372 

10120 RET 

10572 FORI=1TOM+RND (N*10) 

10373 X1=RND(27)+1:Y1=RND(21)+1 

10375 IFPEEK($C100+Y1*32+X1)<>0T 

HEN10373 

10378 LOCATEY1,X1:PRINTFLD(1)I"Z 

“:МЕХТ 

10579 БЕТ 

11000 GOSUB20000@ 

11010 LOCATE16,3@:PRINT"WR" 

11020 FDRI=1TD2BBTEPBaFDRJ= さ TO1 晶 

STEPS: FDRK=9T ロ 1 

11959 LOCATEJ+K, 1: PRINT "REN" 

11040 NEXT: NEXT: NEXT 

11950 FORI=5T028STEP8:FORJ=2T020 

BTEP さ 』 FORK=OTO1 

11060 LOCATEJ+K, I: PRINT "ЕШ" 

11070 МЕХТ:МЕХТ:МЕХТ 

11080 GOSUB30000 

11090 GOSUB10372 

11100 КЕТ 

12000 BDSUB2oo ら の 

12010 1 ОСАТЕ15, Зе: PRINT "Ш" 

12020 FORI=2T028STEPé:FORJ=3TO18 

STEP3:FORK=OTO1 

12030 1 ОСАТЕЈ+К, І: РКІМТ "8" 

12040 МЕХТ:МЕХТі NEXT 

12050 FORI=4T027STEP6:FORJ=3T018 

STEPS: РОВК=©ТО1 
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マイ コン ショ ッ プ ゲー ム BASIC リ スト 
12060 1 ОСАТЕЈ+К, І: РАТМТ " йй" 
12070 МЕХТ: МЕХТ: МЕХТ 

12080 BUSUB さ ら 999 

12090 BUSUB19 さ 72 

12100 КЕТ 

1 さら 99 GOSUB?200009 

15010 1 ОСАТЕ 14, 350: РАТМТ" М" 

15020 ХВ=2: ҮВа5: Х7=26:Ү7=19:ҒОКІ 
=1 104 

15950 FORJ=X8TOX7: СОСАТЕУВ, J: РКІ 
NT "ik" : .ОСАТЕҮ7, о: РКІМТ "#8": NEXT 
13040 FUKJ=YBTUY7』 LUCATEJ。 ХВ: PRI 
NT "jif" a ОСАТЕЈ, X7: PRINT "RH" : NEXT 
13050 ХВ=Х8+2: Х7=Х7-2: ҮВ=ҮВ+2:ү7 
=Y7-2:NEXT 

13040 FURI=2TU26』 LUCATE1 1 。 I: PRIN 
TF: ERENT 

13970 FORI=3T019: LOCATEI, 14:PRIN 
T" "sNEXT:LOCATE11,1@: PRINT "Өй 
қамы" 

13080 BUGUB さ ら 999 

15990 6050810372 

15100 КЕТ 

14000 GOSUB20000 

14010 ГОСАТЕ!З, 50: РАТМТ" №" 

14026 6051839000: Х9=10:У9=2: Х4=1 
©: Y4=2 

14050 LUCATE2。 11 PRINT" dieiis 
шен 

14040 ГОСАТЕЗ, 1: PRINT " ЧУЕЯЦЦИЯЦЯНА 
P 

14045 LOCATE2, 1:PRINTFLD (1) "$" 
14050 GDSUB106372:LOCATE2, 1: PRINT 


PC-8001mkII 


プラ フィ ッ ク 画 面 逆 ス クロ ー ル 


この サブ ルー チン は , mkII の グラ フィ ッ ク 画 面 を 逆 ス クロ ー ル 
z > п — мН, 
1 度 に 8 ドッ トス クロ ー ル し ます . それ 以外 は , 


きせ る だ た め の も の で す . 
まで GS 
クロ ー ル し ませ ん 。 

IM EFE 


REM 
REM 
REM 
REM 
REM 


жм 
S.98 KILS 
REM ТУ TD 
КЕМ сіну мала”? 
ә CLEAR 


T 
Жш 
4 
5 
6 
Z 
1 


スク ロー ル さ せな か っ た か と 言う と 


ЕС-9901 тез 
аи тв スグ ロール 
((2,.16Ш-М3519,199) 
EF A Y7 


14060 RET 

20000 FORI=@TO23:LOCATEI,Q:PRINT 
SPC (52) 3: NEXT 

20010 FORI=@TO28:LOCATE1l1,I:PRINT 
"a" s NEXT 

20020 ҒОКІз0Т031:1.0САТЕ21,1:РКІМ 
Т": NEXT: СОСАТЕ1 9, 28: PRINT" Ж 
g" 

20030 FORI=@TO2@:LOCATEI,@:PRINT 
"Э": NEXT: СОСАТЕХ, 2: PRINT" i" 
20040 FORI=2TO20: LOCATEI, 28: PRIN 
Т": NEXT 

20050 LOCATEO, 4: PRINT"SCORE: "191 
"HI-SCURE』 "УН 

20060 LOCATE22, é1 PRINT "СОМ: "УМ 
20979 FORI=13T017: LOCATEI, 39: PRI 
МТ" " : NEXT 

20080 ГОСАТЕВ, 30: РА1МТ"В" : LOCATE 
9,50: PRINT"U" ョ LOCATE19。 30: РКІМТ" 
1" 

20999 LOCATE11,3@:PRINT"L" 

20095 1 0САТЕ20,27:іРКІМТ" £": LOCA 
TE2, 1:PRINTFLD(1) р "$" 

20100 КЕТ 

21000 X ウ =X ワ ー1 : YO=Y9 

21910 GOSUB8000@ 

21020 FORI=X9TOX9-2STEP-1 

21930 РОКЕ1,%АА: BEEP 1 : BEEPG 
21040 ГОСАТЕУЯ , І: РКІМТ" Ж" 

21050 РОКЈ=1Т0500: NEXT 

21060 ГОСАТЕУЯ, І:РКІМТ" " 

21070 NEXT 

21080 FORI=3T020 

21090 |.ОСАТЕ1-1,21РКІМТ" 


(0, 16) — (319, 199) 
ЕС“ 


上 の 方 は 


в рот АТ 


(TUE ) 


5) уа, => А7 


№ 272 РКОБКАМ FTA 1! 
3O00, %$HDFFF s CMD SCREEN 2:WIDTH 4 


О. 25: CONSOLE 0,25, 0, 1: CMD CLS 5 


29 РОК 1 
s VAL ("S%H"+D*$) 


=%HE の 99 ТО HEG11: READ р%ФіРОКЕ І 
s NEXT 


PUKEQ9 。 $84 

РОКЕ 1 。 $FF: ВЕЕР 1 』 BEEPO 

X ウ =2 日 』 Y ウ =2 の 』 505 0БНООО 
(.ОСАТЕ20,9:РКІМТСНК9 ($80) 
РОКЕ1,%АА 

ҒОКІ-17028 
LUCATE29, 2: PRINTCHR$ (9) у 
ВЕЕР 1 : ВЕЕРФ: FORJ= 1 T0200: МЕ 


ГОСАТЕ? ©, 50: PRINTCHR$ (980) 
МЕХТ 

FORI=Y4+1T020 
(.ОСАТЕ1-1,Х4:РКІМТ" " 
LOCATEI, X4:PRINTFLD(1) р "$" 
NEXT 

LOCATEI-1,X4: PRINTFLD(1) I" 


FORI=1T059: BEEP 1 : NEXT: ВЕЕР 


FORI=1TO1000: NEXT 
CLS: ОРТІОМСМОрЕО 
FORI=9TO11:LOCATEI,9:PRINT 
"" EERE NE x T 
212809 LOCATE10, 10:PRINTFLD (1)1 "6 
IVE UP tiw 
21290 BEEF1:FORI=1T02000: NEXT 
21300 Z=USR ($E400) 
50009 X9=1iY9=2 
50010 Х=27: Ү=201С1=%82:2=-1101=$ 
СЗ9В:Х4=1:Ү4=2:09=%С1411Х5=-11Ү5 
= の 
50920 07=0108=09: 29=-11 КЕТ 


@ 石 井 英 男 


コア な ど を PRINT& る せれ ば よい と 思っ たから です . 
са, 星 が 流 れる デモ を 付け て お きま し た . 

キャ ラク タ の スク ロー ル は あっ た けど 。, 
ー ル は めずらし いと 思い ます . みな さん , 


ックス クロ ー ル の ゲー ム を 作り まし ょ う 


な お リス ト 


グラ フィ ッ ク の スク ロ 
これ を 使っ て グラ フィ 


50 DEFUSR=&HE②② 
40 БАТА 5е,9,45,5с,21,4Ғ,ЬБ,11,74,һе,9і, 
В89,59,ес,Ь8,45,5Ғ,с9 

50 CMD FSET (RND (1 ) * さ 29。16) 。RND (1 ) * さ キ 1 
69 A=USR (9) : GOTO 59 
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BASIC-G 


* ス プラ イト 機能 を 使っ た ゲー ム を ,//” と 
RO, 今回 M5 の BASIC-G を 使っ て , スロ 
ッ ト ・ マ シン ゲー ム を 作り まし た の で て 発表 
し ます . 

BASIC-G に は , 32 の スプ ライ ト が あり , 
この プロ グラ ム で は , その 機能 を フル に 使 
つて いま す . ぜひ , 一 度 遊ん で や っ て くだ 
さい . 

や の の や の を を この この こる を る < 


プロ グラ ム の 説明 


を を を を を る を を を を を を を 4 

この プロ グラ ム は , 2 つの 部 分 か ら 構 成 
きれ て お り , 1 つ は スプ ライ ト の パタ ー ン 
を セッ ト す る た め の も の で (リス ト 1), も 
う 1 つ は ゲー ム 本 体 の プロ グラ ム で す (U 
スト 2). 


そし て , リス ト 2 の DATA 文 は , 左 か ら 


順に 左 中 右 の 各 ド ラム に 表示 され る 絵 の デ 

ー タ と な っ て お り , 各 デ ー タ の 値 は 表 1 の 

よう に な っ て いま すか ら , な か な か 絵 が 捕 

わな い 人 は 各自 で 変更 し て みて くだ さい . 
表 1 絵 の デ ー タ 


入力 方 法 


まず , リス ト 1 を 入力 し て 間違い が な い 
あたかも 回 っ て いる か の よう に 見 える ドラ ム 


=: 019 ete ar ЫК ei 


スロ ッ ト ・ マ シン テテ / 


こと を 確認 た やら > カセ ッ ド に ヤー ジグ じ ま 
す (この と き に , テー ジ " は 巻き 戻 き な いで 
EOSS ECTE) 

KE, リス ト 2 を 入力 し て , 前 と 同様 に 
入力 の 間違い が な いこ と を 確認 し て , 前 の 
プロ グラ ム の 後に モー ブ し ます . 
00000000019. I I IE 

遊び 方 

KC っ KS CSC SC っ SC っ eC I ec 

$3, カモ ッ ト か ら リ スト 1 の プロ グラ 
ム を ロー ド し , 再生 ボタ ン を 押し た まま に 
し て RUN し て くだ さき さい. スプ ライ ト の フ パ タ 
ー ン を セッ ト し , 自動 的 に リス ト 2 の プロ 
グラ ム を ロー ド し て ゲー ム が スタ ダー ト し ま 
す . 

2 202 Я. 274 
ン か ら 順 に 各 ラ イン に 賭け る コイ ン の 枚数 
を 開い て くる の で , 枚数 を 入力 し て [RETURN 
キー を 押 C ま す 。 だ た だし, ШО ШАУ? 
イン の 所 で は IRETURN キ ー だ け を 押し ます . 

そし で プッ イマ a PS 5 Б. 

* こ れ で いい で すか ?? と 聞い て くる の で 
YES な ら [Y] を , NO な ら [NI を 押し ます . 

する と 次 に , “ちか ら ?? と 聞い て くる の 
С, 1 以上 の 数 を 入力 し ます . この “ちか 
57% と いう の は , レバ ー を 引く 力 の こと 
で , 大 き な 数 を 入力 する ほど ドラ ム が 多く 
回 り ま す . 

入力 が 済む と レバ ー が 引か れ て ドラ ム が 
回 転 し 、 数 回 回 転 す る と 自動 的 に 左 か ら 順 
に ドラ ム が 止ま り , 全部 の ドラ ム が 止ま っ 
た と ょ とき に 絵 が 揃っ て いれ ば , RI CRF 
倍率 X か け だ コイ ン の 枚数 分 の コイ ン が も 

жі 倍率 表 


さき さくらんぼ 
さく らん ぼ 
さく らん ぼ 
オォ オレ ンジ 


さく らん ぼ 


さくらんぼ 


持ち 金 が な く な る と マシ ン の 冷た い 言 葉 が 
i 


えま 


な お , コイ ン は 最初 に 100 枚 あり , 0 枚 に 
な る か ", 5,000 枚 以上 に な る と ゲー ム ・ オ ォ オー 
ウー に か な "ます | 
уф を を を る を を を を を を を を 4 


最後 に 


と も を こす こる を を を を を を を を る 4 
デー タ 部 分 を リス ティ ング ・ フ ァイル に 
し て , い ろ みい の な デー タ を 取 つ て お で く 5,% 
で ゲー ム を する と き に 好き な パタ ー ン が 須 
NT, より 楽し る が 増し ます . 
避 参 考 文献 
1) BASICEG TEXT ソー ド 
2 УЖЕ tAm һе", РіО, 
№. 1 
M1 各 ラ イン 


14S 


Д2, 


Жоғ I=9 to &5F 

stchr "++++++++++++++++" 
next I 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 


"Йе?с1с2с767ЬЬ995" 
"Бәйғавдавдайавай" 
"@йЄй7?З7с#е7е7еЬс" 
"Д87?@Зс1ейей&й2йй" 
"0107142454747ғеЖ" 
"ef67773335120701" 
"8@ей+8+с+с+е+аз+5" 
"+5+а#е+сіс53е050" 
"ID1 FIF? fdf" 
"2+6#25180+000000" 
"@й@йййдей+8+с+9+7" 
"4+a9C さ Bag999999g" 
"gd197gagd9ddd1d" 
"1Ь3Ь3774с40501й0" 
"SBc0+0f3f8+3f3+c" 


10 print "" 
ыш DRM1DC63 >, DRM2D< 632, DRM3D 63 >, СОТ 


25 оп error gosub 5000 

42 for I=0 to 65 

50 read А,В,С 

60 DRM1D( I =A: DRM2D( I >=B : DRM3D( I )=C 

70 next I 

80 таз $ 

90 bcol &gF:for I=0 to 255:color I,&1F:n 


ext I 

199 COIN=199 

119 gosub 15999 

139 gosub 9999 

1900 loc 6 to 208,52:поче 6 іп 9 to 208, 


1919 loc 20 to 48,32:moue 20 іп 1 to 48, 
64,1:59 1,90,15 
1020 DRM1N=DRM1D(DRM1C >: DRMN=DRM1N : gosub 
2999 :DRM1C=DRIM1C+1 : if DRM1C=64 then DRM 
1C=9 
1025 DRM1C0OL=DRICOL : 59 1,,0 
1030 loc 24 to 96,32:moue 24 іп 2 to 96, 
64,1:59 1,90,15 
1040 DRM2N=DRM2D( ОРМ2С 2: DRMN=DRM2N : gosub 
2000: DRM2C=DRM2C+1 : if DRM2C=64 then DRM 
2C=9 
1045 DRM2COL=DRMCOL : sg 1,,0 
1050 loc 28 to 144,52:поче 28 in 3 to 14 
4,64,1:59 1,90,15 
1969 DRM3N=DRM3D( ОКМЗС ) : DRMN=DRMZN : gosub 
2999 : DRM3C=DRM3C+1: if DRM3C=64 then DRM 
3C=9 
1065 DRM3COL=DRICOL :sg 1,,0 
if ststus( さ )=1 then goto 1070 
if DRM1P<9 and DRM2P<9 and DRM3P<9 
goto 1599 
if status(9)=9 and sprite〈6,92 く >32 
move 6 іп 9 to 208,52,1 
if DRM3P= く 1 then goto 1250 
if DRM2P= く 1 then goto 1210 
if DRM1P= く 1 then goto 1170 
scod 23, sprite< 22, 2 ) : sco1 23,sprite 
(22,3) 
Ya 22, sprite( 21,2):scol1 22, sprite 
521,329 
1150 scod 21,sprite〈29,2):scol1 21,sprite 
(20,3) 
1160 scod 29,DRM1N:sco1 20,DRMICOL:loc 2 
@ to 48,32 
1179 scod 2?,sprite(26,2):scol 27,sprite 
) 


1180 scod 26,sprite(25,2):scol 26,sprite 
(25,5 

1190 scod 25,5рғі%е(24,2):5с01 25,sprite 
(24,30 

1200 scod 24,DRM2N:scol 24, DRM2COL : loc 2 
4 to 96,32 

419 ged 31,sprite(30,2):scol 31,sprite 
1220 scod 30,sprite(29,2):scol 30,sprite 
(29,3) 

1230 scod 29,5рғі%4е(28,2):5с01 29, sprite 
(28,3) 

1240 scod 28,DRM3N:scol 28, DRMSCOL : loc 2 
8 to 144,32 

1250 DRM1P=DRM1P-1:DRM2P=DRM2P-1:DRMIP=D 
RM3P-1 

1260 if ОКМІР›0 then goto 1010 

1270 if DRM2P>9 then goto 1030 

1280 if DRMSP>9 then goto 1050 

1500 E=9:H=sprite〈 21,2):B=sprite 25,2):C 
=sprite( 29, 2 ) :D=COINK 1 ) : gosub 25000 

1510 H=sprite〈 29, 2 ) : B=sprite< 24, 2):C=spr 
ite( 28, 2 ) : D=COINKX 2 ) : gosub 25000 

1520 H=sprite〈 22, 2 ) : B=sprite〈 26, 2 ) : C=sPr 
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リス ト 1 


stchr 
stchr 
stchr 


"#с+е}е++4Зейсййй" 
"099090++3ез4а584" 
"8сэ5а5802+#+000000" 


to 


スロ ッ ト ・ マ シン ゲー ム BASIC リス M 


scod ?,28:scol 7,14 
scod 8,23:scol 3,14 
scod 9,28:scol 9,14 


stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 
stchr 


"роадайғғ6529зда1" 
"25аӘа4зағғараайй" 
"9 くさ ささ 9 はり" 
"2202019105030797" 
"@Bfefəfefc3c7?873" 
"+@8+дейейсйсаёз@З@" 
"0073444444794041" 
"4141410101000009" 
"3930209200003099" 
stchr "812224141412212" 
stchr "99990005945 +7+4е+" 
stchr "e733180e030p0000" 
stchr "ййардасдғдағағсғғ" 
stchr "4++се1378с9900908" 
scod 6,23:5с01 6,6 


ite(30,2):D=COIM(3):gosub 25000 

1530 H=sprite〈 29, 2 ) : B=sprite〈 25,2):C=spr- 
ite〈39, 2 ) :D=COINK 4 〉 : gosub 25000 

1540 A=sprite( 22, 2 ) : B=sprite〈 25, 2):C=spr 
ite〈 28, 2 ) : D=COINK 5 〉 : gosub 25000 

1550 cl1s:1ocate 0,0:1Ғ E=9 then print "7 
"Ужур"! :goto 1970 

1560 Print "МК? 0";E;"94 "Z," iCOIN=COI 


1570 Жоғ I=9 to Е 

1589 sg 9,92,15 

1590 sleep 1,1 

1600 sg 0,1,15 

1619 sleep 1,1 

1620 sg 0,,9 

1630 next I 

1970 if COIN>=5999 then view:erase:cls:L 

OACTE 0,0:print "2 チト "メス 11" igoto 1993 
1980 if COIN=9 then cls:1ocate 9,9:print 
МЕЎЛ" Ө kok ト 2 セロ!IV:goto 1995 

1985 print "HIT SPACE KEY" 

1990 if inkes〈9) く >Z then goto 1990 else 

goto 130 

1993 print "も 27 チ ト " ヤリ マス カ 2 て Y or N)" 

1994 if inkey( 0)=38 then end 

1995 if іпкеу@ < >22 then goto 1994 else 
goto 100 

2000 if DRMN=&69 then DRMCOL=&98 

if DRMN=&64 then DRMCOL=&99 

if DRMN=&68 then DRMCOL=&94 

if DRMN=&6C then DRMCOL=&0A 

2040 if DRMN=&70 then DRMCOL=&91 

if DRMN=&74 then DRMCOL=&06 

if DRMN=&Z8 then DRMCOL=&92 

if DRMN=&7C then DRMCOL=&9B 

2080 return 


9010 for Ізі to 5:СОІНСІ )=0:1 ЅЕТ=0 
9015 cls:locate 20, 3:print “COIN="; COIN; 


9020 
LSET 
9025 if LSET>COIN then goto 9015 else CO 
IN=COIN-LSET 
9058 COIN І >=LSET:next I 
9040 c1s:1ocate 9,9:print "1/34211" i COINC 
10i "2/9411" i COINC( 2); "35420" ;COIM $ >: pri 
nt "4/3411" :СОІМ 4); "525420" ; COINCS ); 
9043 locate 20,3:print "COIN=";COIN; 
9045 I$="":locate 9,2:input "2,7" 117" スカ 2 
“,18:14 1$="у" оғ I$="Y" then goto 9050 
else COIN=COINP:goto 9010 
9050 locate 0,2:print " 

";:1осабе 0,2:Pu=1:input "325 


locate @,@:print I;:input "254202", 


2" ,PW 

9510 DRM1P=rnd¢ РИЖ6 2%6: DRIM2P=rnd PU*6 )+1 
2: DRM3P=r-ndK РИЖ6 +18 

9520 return 

15000 for I=9 to 2 

15010 scod 1,1%4+&4@ 

15020 scol 1,2 

15025 loc I to 48%1%48,52 


next 
150480 for 1:3 to 5 
15050 scod Г, It4+&40 
15060 scol 1,2 
15065 loc I to 48+ 1-3)%48, 160 
15070 next 
15075 color %80,%22 
15080 for J=4 to 23 
15090 for I=3 to 24 
15100 locate I,J:print chr$( 880); 


scod 10,23:scol 10,14 


Жоғ I=6 to 9 
joint 1+1 to I,3 
next I 

Жоғ I=29 to 22 
joint 1+1 to 1,3 
next I 

Жоғ I=24 to 26 
joint I+1 to 1,5 
next I 

Жоғ 1=23 to 20 
Joint 1+1 to 1,3 
next I 


15140 locate I,J:print chr$(&20); 


15150 next I:next J 
15199 return 
17% 


H=&69 then E=E+2*D 


H=&69 ала B=&69 
H=&69 and B=&69 


H=&64 апа В-%64 
and B=&68 
and B=&6C 
and В-%70 

25080 if H=&Z4 and В-%74 

E=E+299*D : goto 25150 

25090 if H=&Z4 апа В-%74 
and C=&74 


and С-%74 


then E=E+3*D 
ата C=&69 then 


and C=&64 then 
and C=&68 then 
and C=&6C then 
and C=&Z9 then 
and C=&Z4 then 
then E=E+29*D : 9 
then Е=Е+20%0:9 
then Е=Е+20%0:9 


then E=E+2*D : goto 25150 
then E=E+2*D : goto 25150 
then E=E+2*D : goto 25150 


874,%7с,%7с 
%64,%78,%68 
$68, &64, &64 
$64, &64,&70 
%7с,%7с,%78 
%78,%70,%78 
864,%78,%64 
660, &6с,&74 
%7с,%68,%78 
878,%68,%7с 
870,%7с,%64 
%6с,%64,%78 
864,%78,%78 
%7с,%7с,%60 
&69,&69,&64 
%68,870,%78 
878,%64,%64 
&78,&78,&68 
&6c,&68,&78 
$64, &60,&7с 
$78, &74, &64 
%60,%78,%78 
&64,&6c,&6c 
&Z9,&64,&78 
87с,%68,%6с 
&68,&Zc, &69 
&64,&69,&64 
%878,%74,%78 
878,%68,%7с 
878,%60,%64 
874,874,%68 
%64,%78,%68 
%878,%78,%64 
&64,&64,&79 
%6с,%7с,%78 
%878,%70,%7с 
864,%78,%64 
%60,%6с,%74 
%6с,%68,%78 
878,%60,%64 
30410 data %878,%74,%64 
30420 data %60,%78,%78 


Рю 


リス ト 2 スロ ッ ト ・ マ シン ゲー ム BASIC U Z F 


30610 data &69,&Z8,&78 
30620 data %78,%74,%68 
50650 data &64,&78, &7с 
プリ ンタ の 関係 で 次 の 
行 の キャ ラク タ が 抜け 
まし た . 

10 行 UU [SL 


30430 data %64,%6с,%7с 
30440 data %7с,%64,%78 
30450 data %64,%68,%6с 
30460 data %68,%7с,%60 
30470 data %64,%60,%7с 
30480 data %78,%74,%68 
30490 data %78,%68,%6с 
30500 data %64,%60,%74 
30510 data %70,%70,%64 
30520 data %6с,%64,%78 


%64,%78,%78 
%78,%6с,%60 
%60,%60,%64 
%68,%7с,%7с 
%78,%64,%64 
878,%68,%68 
%7с,%78,%78 
568,%70,%70 


_  БОҺЕУ24 2 
MSX 仕 様 の パー ソナ ルコ ン | MSX バ ー ソ ナル コン ピュ ー タ 
ピュ ー タ 「FM-X」 新 発売 |「CF-2000」 


富士 通 は この ほど 、MSX 規 格 に 準拠 し た パー ソナ ルコ ン ピ ュ ー 松下 は 選 界 の パー ジ ナ ルコ ュ コンピュー の 続 一 規格 て の る "МЕХ 
タ 「FM-X」 を 開発 ( 子 定価 格 49,000 円 ) し まし た . その 特長 と ГАЛА” を 採用 し た 「CF-2000」 を 発売 ( 子 定価 格 54,800 円 ) 


し て は , 


する と 発表 し まし た . 


①16 色 の カラ ー グ ラフ ィ ッ ク 表 示 が 可能 で スプ ライ ト 機 能 に よ 
り 、 ア ニメーション も 描け る . 

⑨ 低 音 か ら 高 音 ま で の 8 オク ター プ ブ の 音域 と 3 重 和 音 の ユン ピュ 
ー タ サウ ンド 機能 . 

⑧③⑧ROM カ ー ト リッ ジ を スロ ッ ト に 差し 込む だ け で , 簡単 に ゲー 


「CF-2000」 の 特長 と し て は ,。 


①ROM32K バ イト , RAM16K バ イト (拡張 RAM カー トリ ッ ジ に よ 


り 32K バ イト ま て 拡張 可能 ) の 高い 基本 性 能 . 


⑨② か な 配列 を アイ ウエ オ 順 に し だ た タ イプ ライ ター 型 キ ー ボ ー ド と 


本 体操 作 部 に 2 つの カー トリ ッ ジ 装着 可能 な ダブ ルス ロッ ト 方 


ム が で きる . 

④ キ ー ト ッ プ が ひら が な 表示 の . 
ー ド 

RF コン バー タ 内 蔵 に より 
ВЕ. 


そし て , 別売 の 「FM-7 イ ンタ フェ ー ス 」 を 利用 する こと に より , 


FM-7 と の 接続 も 可能 に な っ て いま す . 
問い 合わ せ 先 富士 通 (株 ) 広報 課 
9100 千代 田 区 丸の内 2-6-1 

ТҰ (03) 215-5236 


シリ ンド リカ ル タ イ プ " の キー ボ 


テレ ビ よ の 接続 が 可能 


式 採用 . 


を 今後 発売 予定 . 
EVE SIC 37; 


③ プ アリ ンタ 。 TEI 


ジョ イス ティ ッ ク な どの 豊富 な 周辺 機器 


現在 .。 ヤ ング の 一 番 欲 し いも の は パソ コン が 第 1 位 を 占め て お 


b, 松下 で は 今後 この MSX パ パソコン” を パソ ユン の 本 命 と 考え 


家電 販売 店 を 中 心 に 積極 的 に 推進 し て いく と の こと で す . 


問い 合わ せ 先 松下 電器 産業 (株 ) 


広報 本 部 


#105 港 区 芝 公 園 1-1-2 
тї (03) 437-1121 (大 代表 ) 


手軽 に 使え る る MSX 仕 様 の 日 立 パ バー ソナ ルコ ンピュータ 「H- 


日 立 は カモ ッ ト ROM を 使用 する こと に 
より 簡単 に 操作 が で き , 家庭 用 と し て 最適 
な MSX 仕様 の パー ソナ ルコ ンピュータ TH 
1 』」MB-H1 を HINT 商 品 と し て 発売 (ТЕ 
価格 62,800 円 ) する と 発表 し まし た . 

「H1」 は 家庭 用 普及 機種 し し て 開発 し て 
50, その 特長 と し て は , 
① 誰 に で も 簡単 な 使い や すい 設計 . 
メニ ュー 方 式 に よる 簡単 な 操作 . 
③R OM カー トリ ッ ジ の 操作 手順 ガイ ド な 

どの 手軽 に 楽し め る ソフ ト を 内 蔵 


④ 3 段階 の スピ ー ド コン トロ ー ル シス テム 採用 . 


@A 4 サイ ズ の コン パク ト ボ ディ ー に 引出 
し 式 の キャ リン グ ハ ン ドル を 装備 . 
⑥ 2 スロ ッ ト の ROM カ ー ト リッ ジス ロッ 


ト 装 備 . 
OM SX {LR ZIRH. 
⑧256 メ 192 ド ッ ト 16 色 の カラ ー グ ラフ ィ ッ 
ク と 動画 可能 な スプ ライ ト 機 能 . 
@ 3 重 和 音 8 オ クタ ー プ の サウ ンド 機能 . 
⑩ 本 体 左右 に 合計 2 個 の ジョ イス ティ ッ ク 
端子 を 装備 . 
と な っ て いま す . 
また, 外部 記憶 装置 と し て 3 イン チュ コン 
パク ト フ ロッ ピー ディ スク シス テム の 発売 
も 也 定 され て いま す . 
カタ ログ 請求 先 日 立 家電 販売 (株 ) 宣伝 部 
第 2 製品 宣伝 グル ー プ 
22105 港 区 西新 橋 2 -35- 6 (第 3 松井 ビル) 
Т (03) 437-1831 
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MSX x 


BASIC 


この ゲー ム は ,PC-6001 の BASIC コン バ 
イラ ・ ゲ ー ム 「『CRAB PLANET』( ペ ー バ 
ー ウ ェ ア PC-6001, p.19) を MSX 用 に 移植 
し た も の で す . 


3220401 8923, ウラ 銀河 系 第 31 
惑星 の バル ー ン 星 は 悪名 高い 第 8 惑星 
の クラ ブ 星 人 の 侵略 を 受け て いた . ж 
虜 に な り 地 下 深く 閉じ 込め られ た バル 
ー ン 星人 を , クラ ブ 星 人 が 出す 放射 能 
入り の 泡 を 避け な が ら , 定め られ た 時 
間 内 に 何人 脱出 させ る こと が で きる か 


操作 は ジョ イス ティ ッ ク , キー ボー ド 
の どちら で も OK で す . キー ボー ド よ り 操 作 
する 場合, 左右 の カー ソル ・ キ ー と [SPACE 
キー を 使い ます . カー ジル ・ キ ー で バル ー 
ン 星 人 を 左右 に 動か し , [spAcgl キ ー で 真 上 
に ジャ ンプ させ ます . 斜め に ジャ ンプ きせ 
る こと は で きま せん . 

最初 、 バ ルー ン 星 人 は 画面 の 右 下 に 現 わ 
れ ま す . クラ グ 星 人 の 出す 放射 能 入 り の 泡 
を 避け な が ら , 画面 左上 まで 脱出 し て くだ 
8, 上 の 階 へ は , は し ご の 真下 で ジャ ン 
デ プ す れ ば 昇 れ ます . 2 階 か ら は 床 が 開閉 し 
ます か ら 落 下 し な いよ うに , タイ ミン グ ダ 良 
移動 し て くだ さい. バル ー ン 星人 は 落下 
で は 死に ませ ん が , 泡 に あたる か 時 間切 れ 


1000 CLEAR 300, &HCFFF 


1010 CLS: SCREENG, ©,0: DEFINT A-Z 


1020 LOCATE4,8 


1050 РКІМТ"У”а4 ステ ィ ッ フワ 9 ツ カ イ マス カ P 


1940 A$=INPUT$(1) 


1050 IF A$="y" OR A$="Y" THEN DV=1 ELSE DV=o 
1040 DEFUSR=&HD ら COs BU=&HD 199』 GOSUB 2210 


1970 GOSUB 1950 


1080 T=@:R=1:M=3:J=0:LX=239;:LY=191:SX=16:Fl=56:L 


< 


(y/n) "j 


з 


クラ ブ プ ・ プ ラ ネ ッ ト 


ANET 


に な る と 放射 能 の た め , 死ん で し まい ます . 
タイ ム は 表示 る され な い の で 注意 し て くだ きる 
с. 落下 し て ロス タイ ム よ と ならない よう に, 
スピ ゼー ディー に 脱出 肥 て 《 だ さい 、。 

スコ ア は PC-6001 の も の で は , 泡 を ジャ 
ンプ し て か わす ざと 10 ポイ ント 入っ て い 
だ た の で す が 。 この ゲー ム で は は し ご を 昇っ 
て 上 の 階 へ 行く ご と に 10 ポ イン ト 入 る よう 
に し て あり ます . バル ー ン 星人 が 無事 脱出 
する と 1 面 ク リア で 。 ボー ナス 点 が 加算 さ 
れ ま す . ボー ナス は 面 数 が 進む ほど 多く な 
b k o: 


Ом 
フロ グラ ム に つい て 


コン パイ ラ の ゲー ム を , スピ ー ド の 遅い 
BASIC に 移植 し た ため, お せ じ に も 良い ゲ 
ー ム と は 言え を ませ ん が 。 スプ ライ ト を 使う 
な どい あい みて と 下 内 た つも り で す 。 プロ 
グラ ム は オール BASIC で す が 。 グ ラフ ィ ッ 
ここ に いれ ば 絶対 安全 


CRAB PLANET BASIC リ スト 


D( 1 ) ж3) 


ク 画 面 に PRINT 文 で 文字 を 表示 で き な か っ 
だ た だ た だめ, スコ ア 表 示 な どの 部 分 の み マ シン 
語 で 作っ て いま す (2170 行 か ら の サブ ルー 
ао 
ピー ド の 関係 か ら , 動 く (キャ ラク タ ( 泡 

と バル ー ン 星人 ) は スプ ライ ト で 表示 し て 
いま す . スプ ライ ト は 横 方 向 に 4 つま で し 
か 表示 で き な い の で , 各 キ ャ ラク タ は 単色 
と な つて で あおい ゆあ し だ な 。 22 4 F 1816 
16 の 標準 スプ ライ ト ・ モ ー ド に し て , 使っ 
ТОЁТ. VPOKE と いう 命令 が あっ て , 
グラ フィ ッ ク 面 に キャ ラク タ を 直接 書き こ 
せこ と も で きま す が 、 a NEE ЕА 
ECT, АВЕО: 
+. また, V-RAM 上 に パタ ー ン 名 称 テ ー ブ 
ル と いう も の が あっ て , 画面 の 8 x 8 の >* 
ター ン を 高速 に 動か すこ と も で きま す が , 
制御 が 面倒 に な り ま す . 

この ゲー ム は PC-6001 の CRAB PLANET 
の 移植 で す が . や は りあ ちら は BASIC ュ コン 
ポイ 2, こち ら は スプ ライ ト が ある と は い 
х BASIC プログ ラム な の で , と て も スピ 
= F, キャ ラク タダ とも か な いま せん . まだ た: 
少し で も スピ ー ド を 上 げ る だ た だめ 。 バル ー ン 
星人 や 泡 の 移動 単位 と を 16 ドット に し た り , 
得点 の 取り 方 を 変え た た り し まし た の で , IH 


白き さ に 欠け る か も し れ ま せん . ご めん な さき 
6 
ФЕ =ñ 
八幡 修 :^CRAB PLANET”, ペー フッ \ 
- 7 PC- 1.2 Ес 253, Е 
ウェ ア 6001(1), 工学 


1150 IF УМОр5< 29 THEN 1230 

1140 (ІМЕ(55%01%54,144)-(74%01%54,147»,ВС,ВЕ 
1170 LINE (55+62%64,72)-(74+62*64, 75) , BC, ВЕ 

1180 LINE (55+65*64, 108) -(74+63*64, 111), ВС, ВЕ 
1190 G1=INT (КМО (1) #3) : G2=INT (КМО (1) #3) :G3=INT (RN 


1200 (.1МЕ(55%01%04,144)-(74%01ж54,147),5,ВЕ 
1210 LINE (55+62%64, 72) -(74+62*64,75),5, BF 
1220 LINE (55+63*64, 108) -(74+63*644,111) ,5, BF 


1=43:F2=120:L2=43:F3=184:L3=43: BC=3 


1090 C=Q:EX=8:EE=163:EY=EE:ZZ=246:U1l=1:U2=1:U3=1 
1100 GOSUB 16660 
1110 (.ІМЕ(55,144)-(74, 147) , BC。BF iLINE (119, 144) 一 ( 


138, 147) ‚ВС, ВЕ: LINE (185, 144) – (202,147), ВС, ВЕ 
1120 LINE (55, 72) 一 (74。 75), вс, BF:LINE (119, 72)- (138 
, 75) 。 BC, BF:LINE (183, 72) - (202 , 75), BC, BF 

1150 LINE (55, 108)-(74, 111), BC, BF:LINE (119, 108)-( 
158,111),ВС, BF:LINE (183, 108) — (202, 111), BC, BF 
1149 IF EX=24QNDEY=19 THEN 1440 


148 


1230 IFV>7OOTHEN WX=12:WY=12:PR$="TIME OVER": GOS 

0В2170:ҒОКІ-ӨТ01009: NEXT: GOTO1540 

1240 IF (EX=F1ANDEY=L1) OR (EX=F 2ANDEY=L2) OR (EX=F3 

ANDEY=L3) THEN ‘1540 

1250 IF EX=S& THEN IF EY=5SOREY=910REY=127 THEN 
2240 

1260 IF EX=12@ THEN IF EY=SSOREY=910REY=127 THEN 
2240 

1279 IF EX=184 THEN IF ЕҮ-550ОКЕҮ-910КЕҮз127 THEN 
2240 


1280 UU=1:MX=F1: MY=L1: GOSUB 2290 
12909 UU=2: MX=F2: MY=L2: GOSUB 2290 

1590 UU=3: MX=F 3: MY=L3: GOSUB 2290 
1510 IF Ul=@ THEN IF F1<ZZ THEN F1=F1+16 ELSE Ul 

-1:Ғіш5б:і 1іж45 ELSE IF Li=EE THEN М1с0:ҒізГҒіз16 

| ELSE Li=L1+12 

1520 IF U2=9 THEN IF 

=1:Е2=120:12=45 ELSE 
ELSE L2=L2+12 

1330 IF U3=9 THEN IF 
=1:F3=184:L3=43 ELSE 
ELSE (35-і 5%12 

1340 IFJ=1THEN2 140 
1550 IF JJ=1 THEN IF 
12:GOTO 1400 

1360 KY=STICK (DV) 
1370 IF KY=3 THENIFEX>=LXTHEN14@@ELSEEX=EX+SX: GO 
TO 1400 

1380 IF КҮз7 ТНЕМТЕЕХ< =5ТНЕМ1 400ELSEEX=EX-SX: GOT 
О 1400 

1590 IF STRIG(DV)=-1ñNDJ=@ THENGOSUB2070 

1400 G=G+1:V=V+1: IFJT< >@ƏTHENJT=JT-1ELSEJ=@ 

1419 PUTSFRITE 4, (F1,L1),1,4:FUTSPRITE 5, (22,12) 

y1,5:FUTSPRITE 6。(F さ 。 し さ ) 。 1,6: PUTSPRITE 1, (ЕХ,ЕҮ) 

,15,1 
1420 
1450 
1440 


Е2<22 THEN F2=F2+16 ELSE U2 
IF L2=EE THEN U2=0:;F2=F2+16 


Е5<22 THEN F さ =F さ +16 ELSE ИЗ 
IF L3=EE THEN U さ = の 9』F さ =F さ +16 


EY=EE THEN ЈЈ=@ ELSE EY=EY+ 


680701140 

КЕМ 

PLAY" 049g2r 32ee8r 32f 8r 32g2r32cr4" 
1450 PLAY"dBe8t8g8r32fer32d2d" 
1460 ШХ=10: МУ=12: РА$=5ТК$ (К) +" 
UB2179 

1479 TB=509%R:FOR I=@ ТО 599: МЕХТ 

1480 WxX=10:WY=14: PR$="BONUS ж "+STR$ (ТВ) : GOSUE 2 
170 
1490 


"+" CLEAR !!":608 


R=R+i: T=T+TB: У=0:РОК I=9 ТО 5900: МЕХТ 


1500 WX=10:WY=16: PR$=" CONGRATULATION" : GOSUB 2170 
1510 IFR=3THENM=M+1 

1520 FOR I=@ ТО 2000: МЕХТ: БОТО! 090 

1530 REM 

1540 Рі АҮ"+25004еіёфгібеі ёг і бе! ӧғг8с4": У=0 


1550 М=М-1:1Е М=0 THEN ИХ=109: ИҮ=15: РК%= "САМЕ OVE 
R"sGOSUB 21760: ҒОК I=@ ТО 1000: МЕХТ: 060701580 

1560 FOR I=@ ТО 1000: МЕХТ: БОТО! 090 

1570 КЕМ 

15809 IFHT<TTHENHT=T 

1599 WX=10:WY=10:PR$="HI-SCORE"+STR$ (НТ) : GOSUB 2 


179 

1890 WX=9:WY=13:PR$="Replay [Y]orCN]":GOSUB 2170 
1619 W$=INKEY$ 

1620 IF W$="y"ORW$="Y" THEN 1080 

1650 IF W$="n"ORW$="N" THEN END 

1649 GOTO 1619 

1659 КЕМ 

1669 КЕМ **5СКЕЕМ** 

1679 SCREEN2,2,@:COLOR15,3,1:CLS 

1880 АФ="": КЕЅТОКЕі690:ҒОК Ісі ТО 32:READ АА%: АФ 


=A$+CHR$ (VAL ("&H"+AA$) ) : NEXT: SPRITES (1) «АФ 

1599 DATA 0,0,18,24,42,83,7,f,1d,1f,le,7e,ct,c,c 
,7е,0,0,18,24,42,с1,е0,#0,Ь8, fB, 78, fe, +3, 30, 50,7 
е 

1799 LINE (0,56) - (255,39) , 5, ВЕ 

1719 LINE (0, 72) -(255,75),5,ВЕ 

1720 LINE (0,108) -(255,111),5, BF 

1730 LINE (0,144) - (255, 147) , 5, BF 

1740 LINE (55, 32) - (74,59), ВС, BF: LINE (119,52) - (138 
„ 39) 。 ВС, BF: LINE (183, 52) - (202, 39) , BC, BF 

1750 HX=28: HY=40: GOSUB21 00 

1769 HX=219: HY=76: 605082109 

1779 НХ=28:НУ=112: 605182100 

1780 HX=219:HY=148: 605082109 

1799 LINE (©, 180) - (254, 192) , 5, ВЕ 

1800 LINE (0,0) -(254, 1 1 ) ,4,BF 

1810 WX=1:WY=0:PR$=" SCORE ": 505082170 

1820 WX=B:WY=0: PRH=STRS$ (Т) : GOSUB 2170 

1850 BA$="":RESTORE18S0:FORI=1TO32: READ BK$:BA%= 
ВАФ+СНЕФ (VAL ("&h"+EK$) ) : NEXT 

1840 SPRITES (4) =ВА$: SPRITES (5) <ВАФ: SPRITES (6) “БА 
% 

1856 БАТА 09,9,0,0,09,9,9,9,5,7,0,Е,Е,р,7,5,%9,0,9, 
O, 0, Ò, O, Ò, CÒ, EG, ВО, 70, 70, ВО, Ed, CO 

1840 KN$="": RESTORE1880: FORI=1TO032: READ K9$:KN$= 
КМФ+СНЕФ (VAL ("&h"+k9$) ) : NEXT 

1870 SPRITES (10) =KN$』 SPRITES (11) =KN$: SPRITES (12) 
=KN$ 

1880 DATA ЗЕ, 50, 64, 78, 650,60,66,62,22,17,Е,ЗЕ,4Е, 
ЕЕ,СЕ,92,7С,6,26,1Е,6,6, 66,4%, 44, ЕВ, FO, FC,F2,FF, 
ЕЗ,49 


Рю 


CRAB PLANET BASIC И АР 


1899 
1900 
1910 
1920 
1930 
1940 КЕМ 

1950 ЭСКЕЕМ!, 2, 9: COLOR 15,2,1:КЕҮ OFF:CLS:PLAY"t 
149o4g8e8q8e8a8q8e8dBc2" 
1959 LOCATE 2, 5:РАТМТ" 
NT" 


РОТ SPRITE 10, (56,14),8,10 

PUT SPRITE 11, (120,16),8,11 

PUT SPRITE 12。(184。16) 。 日 12 
МХ=20: МҮ=0: PR も ="RDUND "+BTR$(R) : GOSUB 2170 
RETURN 


жж CRAB PLANET **":РАТ 


1979 РКІМТіРКІМТ" Л=/ 779 957 ヒ タ ^ リ ウエ マテ " ノ ホ " ゅ テ 7 
9" уя." 
1989 РКІМТ:РКІМТ"СТІМЕЈ OVER =} END" 


1990 
2000 
2010 
" 
2020 
2030 
° 
2040 
2050 
2060 КЕМ 

2070 IF(EX=216QNDEY=EE ) OR (EX=24QNDEY=EEー さ 6 1 ) ОК ( 
EX=216QNDEYmEEー さ 6w2) ОК (EX=24QNDEY=EEー さ 6* さ ) THEN E 
Y=EY- さ 6』 T=T+1@:LINE(62,@)-(11@,1@),4,BF:WX=8:WY= 
@:PR$=STR% (T) : 605182179: RETURN 

26080 J=1:JT=4 

2999 RETURN 

2199 КЕМ 

2119 LINE (HX, HY) -(HX+2, HY+23) , 4, BFILINE (HX+9, HY) 
-(НХ%11,НҮ%23),4,БҒ 

2120 FOR I=1 ТО S:LINE (HX+3,HY+4*I)—-(HX+B,HY+4*I 
), 4: МЕХТ 

2150 RETURN 

2140 IF JT>=2 THEN ЕҮ=ЕҮ-В ELSE EY=EY+8 

2159 GOTO 1400 

2160 КЕМ 

2170 PRESET(WX*B, WY#8) : РОКЕ%НОФЕЕ , LEN (PRS) 

2180 FOR Ізд ТО LEN(PR$)-i:POKE BU+I, ASC (MID$ (PR 
$,I+1,1)):NEXT 

2199 AB=USR (0) : RETURN 

2200 КЕМ 

2210 RESTORE 2220:РОК 1=0 Т0.18:КЕАр рА%Ф: РОКЕ &Н 
ресе+І, VAL (DA も ) : NEXT 

2220 DATA &НЗа, УН++, 。&Hd9。 &H47, &H21 。 &HO, &Hd 1 。 &H7e 
s &H23, Нез, &Hc 5, kHcd, HBd “Но, Hci, &He 1 。 KH1O, &Н+ 
S, SHC? 

2259 RETURN 

2249 IF ЕҮ=55 THEN FF=G2 ELSE IF EY=91 THEN FF=G 
5 ELSE FF=G1 

2250 IF FF=0 THEN IF EX=56 THEN 70-0 ELSE 44-1 
2260 IF FF=1 THEN IF EX=12② THEN 42-0 ELSE JJ=1. 
2270 IF FF=2 THEN IF EX=184 THEN 42-0 ELSE JJ=1 
2280 GOTO 1280 

2299 IF MX=56 THEN IF MY=SSORMY=910RMY=127 THEN 
2530 
2500 
2330 
2519 IF MX=184 THEN IF MY=550RMY=910RMY=127 THEN 
2530 

2520 RETURN 

2530 IF МҮ=55 THEN FF=G2 ELSE IF MY=91 THEN FF=G 

5 ELSE FF=G1 

2540 IF FF=@ THEN IF MX=56 THEN КЈ=0 ELSE KJ=1 

2550 IF FF=1 THEN IF МХ=120 THEN KJ=@ ELSE KJ=1 

2569 IF FF=2 THEN IF MX=184 THEN KJ=@ ELSE KJ=1 

2570 IFUU=1THENU1=KJ 

2580 IFUU=2THENU2=KJ 

2390 IFUU=STHENUSI=KJ 

2400 RETURN 


РКІМТІРКІМТ"ІАМ 21 カー ソル ノ SF" 
PRINT:PRINT"CJUMP] 21° =a: キー" 
PRINTiPRINT "リリ シ コ " 2 マレ タテ" JUMP スズ ルト ТЕЖ“ LIR 


KEYS 


РКІМТ:РКІМТ" С HIT ANY KEY OR TRIGER 1" 
IFDV=1THENZ2O040ELSEX$=INKEY$: IFX$=""THEN 205 


MM=STRIG (DV) : IFMM< >-1ТНЕМ2040 
RETURN 


IF МХ=120 THEN IF MY=SSORMY=910RMY=127 THEN 
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sAN 
TIS 
L es 


西 歴 1999 年 , 突如 宇宙 の か な た か ら 飛 来 
し た カプ ト ガ ニ 型 UFO の 攻 載 に より , ЖЕ 
量 に ある 地球 連邦 の 太陽 系 防衛 基地 は 壊 減 
状態 と な っ た . か ろう じ て 生 き 延 びる こと 
の で きた あな た は , 最新 型 宇宙 戦艦 コス モ 
アロ ー に 乗り 込み ,。 カプ ト ガ ニ 型 UFO の 後 
を 送っ て , 星 の 輝 きす ら な い 外 宇宙 へ と 向 
か う の で あっ た . 


プロ グラ ム の 説明 


ォ ー ル BASIC で ,。 し か も 短 か い プロ グラ 
ム で すか ら ,。 詳し い 説 明 は 省き ます が , > 
ログ ラム ・ マ ッ プ (№1) と 使用 変数 名 表 
(R2) を 載せ て お きま す の で , 各自 で 解 
析 し て みて くだ る さい . 


入力 方 法 


リス ト 1 を よく 見 て 間違い の な いよ うに 
入力 し て くだ さい . 


ол 


RUN す る と 画面 上 に 照準 が 表 わ れ ます . м 
準 は キー ポー ド の 回 円 回 キー を 押す 


19 GOSUB 4000 
20 BUSUB 4100 


190 КЕМ 

119 CURSOR BX,BY:PRINT" " 
120 USR ($00D8) : GET A$ 

130 ВХеВХ%(А%ж")")-(АФи"; "9 + ( 
ВХ=28) - (BX=@) : BV=BX #6+12 

140 BY=BY+(A$="@")-(A$="/")+( 
BY=20) (BY=1 ) : BH=BY*8+4 

150 CURSOR BX,BY:PRINT P$:P$= 
"(уч 

160 

179 
1200 

180 ЕМ=ЕМ-1 

199 CURSOR の 9。9』PRINT "РОІМТ"; 
Т: ТАВ (15) š "ЕМЕКСҮ ЕМ" " 

200 IF EN>@ THEN 100 

210 GOTO 5500 

559 CURSOR 09,11 

1000 КЕМ 


№0: BODSUB 1000 
IF СТ>500 THEN N=1: GOSUB 
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POINT 10900 


L, それ ぞ れ 上 下 左右 に 動き ます . そし て , 
せま り 来 る カプ ト ガ ニ 型 UFO に 照準 を 合わ 
せ て , SPACE ] キ ー を 押す と , UFO を 破壊 
ТЕЗИС. 

うま く カ プ ト ガ ニ 型 UFO を 倒す と, ЕМЕ 
RGY が 20, POINT が 100 増 え を ます . た だ し 
POINT が 1.,000 点 以上 の と き に は , エネ ル 
ギー は 10 し か 増え ませ ん . 

カプ ト ガ ニ 型 UFO は ある 距離 まで 来る 
ビー ム を 射 っ て きま す . この ビー ム は よ け 
る こと が で きず , これ を 浴び る と エネ ル ギ 
ー が 100 減 り ま す . ま た , エネ ルギー は 通常 
の 状態 の と き で も 刻々 と 減っ て いき , ОД 
下 に な る と ゲー ム ・ オ ー バ ー に な り ま す . 


最後 に 


ジョ イス ティ ッ ク を 使う 場合 の 変更 点 を 
リス ト 2 に 示し て お きま す . 操作 方 法 は , 
ジョ イス ティ ッ ク で 脱 準 を 動か し , RDO 
か 9 の ポ ボタン を 押し て UFO を 破壊 し て くだ 
きい. 


ENERGY 213 


プロ グラ ム ・ マ ッ プ 


実行 (RUN) ご と の 処理 
ゲー ム ご と の 処理 
жн 

カプ トカ ニ 型 UFO の 移動 


カプ ト ガ ニ 型 UFO の ビー ム 発 射 
新しい カブトガニ 型 UFO 出 現 
MEt [ ] に 変え る 

人 間 側 の ビー ム 発 射 

GAME OVER 処理 


ж2 使用 変数 名 


順 準 の 位置 (キャ ラク タ 単 位 ) 
ЖОШ (757152 単位 ) 
腺 準 用 キャ ラク タ 

カプ ト ガ ニ 型 UFO の 番号 (0or 1) 
エネ ルギー 

カプ ト ガ ニ 型 UFO の 位置 

カプ ト ガ ニ 型 UFO の 大 き さ 
カプ ト ガ ニ 型 UFO の 速度 

ハイ ・ ス コア 

ボ ポイ ント (スコア) 


1010 V=X (N) :H=Y (N) :E=D (N) 

1920 D=E*1.2 

1950 X=V+XP (М) жр: У=Н+УР (N) жр 

1200 LINEE ら ] V+E,H,V+E+E,H, V+ 
E, H-E, V-E, H-E, V-E-E, H, ソーE 。 H, V, 
H+E, V+E,H 

1219 LINEL51 X+D,Y,X+D+D,Y,X+ 
D, Y-D。 X-D, Y-D。 X-D-D, Y, X-D, Y, X, 
Y+D,X+D, Y 

1220 X(N)=X:Y(N)=Y:D(N)=D 

1250 IF D>25 ТНЕМ бОЗУВ 2000 

1240 IF(X+D>BV)*(X-D<BV)*(Y>B 
H) #(Y-D<BH) GOSUB 3000 

125@ RETURN 

2000 REM 

2010 Q=(96-X)/76.65:R=(92-Y) / 
76.65 
2920 
2025 
2050 
2040 


D=3. 455 

SOUND 1,1 

FOR I=@ TO 17 

X=X (N) «ОП: Y=Y (N) +R*D 


= = ケン フン ファ е 2 
リス ト 1 スペ ー ス ・ カ プ ブ ト ガニ BASIC リ スト 


2050 LINEF2] X+D, Y+D, X-D, Y+D 
»X-D, Y-D, X+D, Y-D, X+D, Y+D 

2040 D=D*1.2 

2042 SOUND 

2045 SOUND@6. 5+1/2, 20 

2070 NEXT 

2080 MUSIC"LSCOROCOROCOROCO" г 
SOUND: EN=EN- 100 

2090 CLS 

2100 X(N)=2+RND(5)#187:Y(N)=2 
+RND (5) *179 

2110 X=6G+RND (5) *72: Y=5@+RND ( 
5)*124 

2120 XP(N)=(X-X (М) ) /155』 УР (N) 
= (У-У (N) ) /155 

2150 D(N) =1 

2140 Х=Х (N) : У=У (М) s D=1 

2150 RETURN 

3@@@ REM 

5010 P$="[ 1": CURSOR BX,BY:PRI 
NT P$ 


Рю 


リス ト 1 スペ ー ス ・ カ プ ト ガ ニ BASIC リ スト 


5029 MUSIC "C+@" 4920 HI= の 
さ 9 さ 9 USBR($ ら 9D 日 ) s GET А$:1Е А%< 4050 RETURN 
>" “THEN RETURN 4100 REM 
IF D>12THEN D=12 4110 COLOR 7,@:CLS 
LINEL31BV+D, ВН, BV—D, BH 4129 FOR N=@ ТО 1:GOSUB 2100: 
LINEL31BV,BH+D, BV, BH-D NEXT 
D=D/1.4 4130 BX=11:BY=11 
LINE[ さ ]BV+D 。 BH+D, BV—D, BH 4140 Рф=" () ": CURSOR BX,BY:PRI 
NT P$ 
LINE[ さ ]BV-D, BH+D, BV+D, BH || 4150 Т=0: ЕМ=500 
4160 CT=ġ0: RETURN 
MUSIC@"L555CDEG" 5500 CURSOR 8,15 
Т=Т+100: ЕМ=ЕМ+20: IF ET>1 5510 PRINT"CGAME ОМЕК1" 19 БІ, (A=4) + (A=5) + (A=6) =( 
909 THEN Е-Е-10 5520 FOR I=1 TO 9:MUSIC б-В)-(А-1)-(А-2)-(ВХе-0) + (BX=28 
3@9@ CURSOR @,@:PRINT "POINT" ||9":МЕХТ ):BV=BX*6+12 
%Т%ТАВ(15); "Energy" ЕМ" " ТР PRINT TAB (6) $ "YOUR 140 BY=BY+(A=Z2) + (А=5) + (А=4) – ( 
за гор 2090 чаа Аза енген А=6) - (А=7) – (A=B) + (BY=20) - (BY=1 


z ) : BH=BY*8+4 
4010 DIM X(1) 。Y(1) 。D(1) 。XP(1) ІНІ 


3050 10Ү81 A:IF (А<29)ж(Ас29) 
,YP(1) 5550 IF HI<T THEN PRINT TUEN RETURN 


)s "You are HI-SCORE":HI=T 
SS40 PRINT ТАВ (4) 8 "TRY AGAIN 
(У оғ М)" 

5570 GET КӨ:ІҒ K$="Y" THEN 20 
5580 IF K$="N" THEN END 


5590 GOTO 5570 


ВИ Z F 2 Z a 4 Z74 у RARER БИН 


РС-8001тКІГС 
セミ グラ フィ ッ ク を 表示 する 
@s2 = 


PC-6001mkII で セミ グラ フィ ッ ク を 表示 BASIC メ イン ・ プ ログ ラム 
する 方 法 は あま り 知 られ て は お ら ず , その 19 GOSUB 250 :КЕМ жж マシ ジコ" 2 カキ 
ik К» re - 125 жж 
МЕНТОВ E >С LC. | o Pa=PEEK (MHFD8C) ーーーーーー*How тапу Pases ?” で 何 ペ ー ジ を 入れ た か を 調 ら べ て いる . 
めん どう くさ いも の で す . そこ で , この サ ЗӨ INPUT "ヒョウ シド シタ イ еу" ИР 
プル ー チ ン を 作っ て み ま し た . この サブ プル 7 INPUT "ヒョウ シド シダ タイ I И NaI 91"; C 
ー チ ン は 必要 な デー タ を 入力 する だ け で セ 50 INPUT "ヒョウ シー シタ グイ л уал? (X,Y) "SX 
"v 
ミグ ラフ ィ ッ クキ ャ ラク タ を 簡単 に 表示 し bO INPUT" ヒ ョ ウジ "シク イ r 2 40"; С:С=С 
-1 
て くれ ます . 70 INPUT" ヒ ョ ウシ" シタ イ r 2 ハイ サイ 2 AON 
ES а заа E LESS CA=VAL ("%h"+CA$) 
ЕР E ТЕЛЕ ЖИЕН 90 КЕМ ww アト トレ スネ 2 ケイ サン жж 
“ ヶ 199 ОМ РА GOTO 110,129.129,149 
する 時 は ‘SCREEN 2, 1, 1 [RETURN 119 DE=&H499: AE=&HG: GOTO169: КЕМ 
ELERI ENS PASE 1 


@ プ ログ ラム を RUN さ せま す . する と 表示 29 AE=%H4000: GOTO 150:REM PASE 


し た い 画 面 を 聞い て くる の で 1 一 4 まで を 159 AE=&HBo9: GOTO 159:REM PASE 
3 


入力 し て くだ さい . た だ し , How many 149 АЕ=®&НСӨӨӨ 

= TER Š 150 AE=AE-%H4000%# (P-1) 
Pases? で 指定 し た ペー ジ 数 を オー バー 159 PE=QE+X+49#Y: DE=QE+&H499 
する こと は で きま せん . 179 REM жеж 40 ノ ケイ サン weee _ 
@ 次 に 表示 し た い キャラ クタ 番号 を 聞い て | EXEC hoobsCDcPEEKtheia) 11225522208, Джовани сов, BASIC 
きま す の で 2 桁 の 16 進数 を 入力 し て くだ 199 CSS=9: IF ВС>7 THEN CSS=2 だ と 雑 な た め マシ ン 語 で 処理 を し て いる . 

200 КЕМ жжжж キャ ラフ ウー Э n? жж 

さい 。 だ た と え そば “Ж” を 表示 し た けれ ば ぱ ば B 210 OUT &HCO, CSS —— ++ >? *# OROMEiNIRT $ 
7 と 入力 し て くだ さい 22e PANE TENTA ны 
са. 5 , キャ ラク タ に 色 を つけ る . 
@ 決 に 画面 の どこ に 表示 する か を 聞い て く 249 END 


250 КЕМ ### マジ ンコ " / カキ コミ ж” 2 
る の で X 座 標 , Y 座 標 と 入力 し て くだ さい . 240 FORI=&HE9 の GTU&HE91 1 : READ AS: ん ーー マシ ン 語 の 書き 込み 
£ と POKE I, VAL ("th"+A%):NEXT: RETURN 
@ 次 に キャ ラク タ の 色 な ど を 開い て くる の 279 БАТА 24,15,Е0,07,97.97.97.СВ 


で 表示 し た い 色 の 番号 を 入力 し て くだ きい ҒЕ,47,3А,14,Е9,В0,52,10,Е0,С9 Ә-туутоз-» 
( 赤 を 表示 し た けれ ば 10 と 入力 し て くだ さい ). 
これ で デー タ の 入力 は 終わ り で , ちゃ ん と 
у „йел ж 2 > マイ ママ マエ ママ マコ 
指定 され た 所 に 表示 され て いる は ず で す . О: 
жеты. ы ы ж- 
ORG кодон 
9 END: EQU 9E913H 一 プロ グラ ム の お わり の 番地 


CDATA: EQU END+1 一 一 キャ ラク タ の 色 
BDATA: EOU END+2 一 一 背景 の 色 が 格 の うさ れ て いる 番地 


アド レス の 計算 . PC-6001nkII で は ペー ジ 
アド レス 割 撫 り が 変わ る の で それ を ここ で 計算 し て い 


ms マン 2 8 U TI o БЕ 


АМ: EQU ЕМО+$ ーー 計算 の 結果 


ЗА15ЕФ а, (BDATA) 

97 

97 背景 の 色 を 計算 
97 

97 

CBFF 

47 

за14і = 

207589 pal キャ ラク タ の 色 を 計算 
うこ 21 6E9 

c? 
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Q 


PC-1500+4KRAM+ カ ナ テ ー ブ 


BASIC 


プロ フェ ッ シ ョ ナル ・ ベ ー ス ボー ル 


PROFESSIONAL 


BASEBALL 


一 菊池 幸雄 


ゲー ムセン ター に ある Champion Ваѕе- 
ball を や っ て いて , これ は 面白 いと 思い , 
我 が PC-1500 で も で きる よう に と 作っ て み 
た の が この ゲー ム で す . 今 ま で の ボケ コン 
の 野球 ゲー ム と は 違い , 盗塁 は も ちろ ん 代 
Ж, К, 選手 の デー タ な ど が あり , より 
本 物 に 近く な っ て いま す . 少々 長く て , メ 

モリ が ぎり ぎり で す が , ぜひ 打ち 込ん で み 
лы 


プロ グラ ム の 説明 


プロ グラ ム の 主 な 内 容 は 表 1 の と お り で 


ЖІ プロ グラ ム 内 容 


初期 設定 

チー ム 入 力 

得点 表示 

バッ ター 名 , 打率 表示 
MAN が スチ ー ル する か 
COM が スチ ー ル する か 
コー ス 入 力 
MA N の 代打 
COM の ビ ピッチャー 交代 
カウ ント 表示 

球 表 示 
打っ た か どう か 

スト ライ ク か ボー ル か 


フォ アボ ー ル 

リア ウト (チェ ンジ ) 
アウ ト 

ゲー ム ・ セ ッ ト 

選手 デー タ 


リス ト の と お り に 打ち 込ん で くだ さい . Ж 
手 名 は カタ カナ で 4 文字 以内 に し て ある の 
で 必ず その と お り に 間違え な いよ うに し て 
くだ きい (メモ リ の 都合 で 4 廊 字 し か で き 
ませ ん で し た が , 8 K の 人 な ど は 10 行 の 一 
部 を DIM D$ (2, 15) ж10--- に 書 
き 換 えれ ば , 10 文 字 ま で 入り ます ). 


遊び 方 
まず 。 カ ヵ カナ テー プ を ロー ド ゼ ます (カナ 
モジ ュー ル を 使っ て いる 人 は や ら な く て よ 
い ). 次 に , この プロ グラ ム を ロー ド し て R 
UN し ます . 最初 に . チー ム 名 を 聞い て き 
ます の で , ЖЖ (1-6) を 入力 し て 〈 く だ 
きい (1 三 中 日 , 2 三 巨人 , 3 =н, 4 
広島 , 5 =ë, 6 = ニヤ クル ト ). こ ちら 
が 先攻 に な り , 図 1 の よう に 表示 る され ま す . 
図 1 通常 の 表示 例 
| БІ タオ 0 .823 ニシ モト | 


$: ¢} 1 + 
チー ム 名 打順 バッ ター 名 打率 ビッ チャ ー 


図 1 が 表示 る れ て いる 間 に [0] キ ー を 押す 


ょ 代打 が で きま す . た だ し , すでに 代打 用 員 
を 3 人 出し て いる 場合 は な に も な り ま せん 
( 代 投 の 場合 も 同じ で す ).[0Q] キ ー を 押し た 
後に は 図 2 が 最高 3 回 (3 人 分 ) 表示 きれ 
9: 


図 2 代打 の 表示 例 


Д ЕР: 


{ 1 


} 
控え 選手 の 番号 バッ ター 名 打率 


(1--3) 
その 後に “チェ ンジ メン バー" と 聞い て 
くる の で ,。 1 一 3 の 数 字 を 入力 し ます . ピ 


ッ チ ャ ー 交 代 の 場合 も 同様 に し て , [0] キ 
ー を 押し ます . 図 3 が 表示 きれ る の で 同じ 
よう に し て だら Sw, 

M3 代 投 の 表示 例 


шутит ビ ピッチャー 名 スタ ミナ 


次 に 攻撃 で す . ピッ チャ ー, ホー ムペ ベー 
х, カウ ント , ダイ ヤ モ ン ド (ラン ナー が 
いる 場合 ラン ナー が 表示 され る ) な ど が 表 
示さ る され, し ば らく 《 す る と ピッ チャ ー が 球 を 投 
げ る の で , ベー ス の 上 に 球 が きた ら タ イミ 
ング よく [_ SPACE | キー を 押し て 打っ て く 
だ さい ( 図 4 ). こ の 際 に , [SPACE | キー は 
や や 長く 〈 押 きる ない と 振り 遅れ る 場合 が あり 
ET 

[SPACE] キー を 押し て “STRIKE” と 表示 


され た 場合 は 空振り の こと で す . ADT 
ааа а ат. 
28, 1・3 鞭 の と き に 限り ます . 成功 率 
は まで す が , 盗 革 中 は 本 物 と 同じ よう に ボ 
ー ル は 打 て な く な り , 見 送る どけ な の で 注 
NU Tee т». 
そし て , 守備 で 7. 
くる の で , 
© ( 図 5). 


= コー スー じき いで 


1 一 5 の 数 字 を 入力 し て くだ る 
図 4 ベー ス 


ベー ス の 少し 手前 で ボー ル が 変化 し ます 
が 、 こ れ は コン ピュ ー タ が 勝手 に 決め ます . 
また だ , 自分 の 得点 より も 相手 の 得点 の 方 が 
大 きく な っ た 時 点 で ゲー ム ・ モ セッ ト に な り ま 
3. これ を な くし て 9 回 まで や り だ た い 人 は 
375 行 を 削除 し て みれ ば よい と 思い ます ( 延 


長 戦は な く 、 9 回 裏 の 時 点 で すでに com の 勝 
ち は 決 まっ て いて も X メ ゲー ム は あり ませ 
ん ). 


最後 に 


この ゲー ム は モ ・ リ ー グ 用 で す が 。 デー 
の 部 分 を 変え れ ば パパ ・ リ ー グ 用 まだ た は . オ 
ー ル スネ スター ゲー ム も で きま す の で いろ いろ 
遊ん で くだ さい . 最後 に 協力 し て くれ た 南 
ШО Ж АЖ, 津田 勢 田 君 あ り が と う 


ご ざい まし た . 
@@® 
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БЕ PROFESSIONAL BASEBALL BASIC U АР 


18: CLEAR :КАНООМ 
:DIN D$(2, 15)* 
4, 0(2, 15), 1$(2 
)*39, 1)2), S(2) 

20: 1$(9)="9192949 
81422412214088 
40201" 

39: 19<12-"0102040 
8142241221C989 
40201" 

40: 18<220-"0102040 
81422432214088 
40281" 

58: 1$(3)=" り 192949 
8142243221C989 
40201" 

60:1$(4)="0102040 
81С22412214080 
40201" 

28: 1$(5)="9192949 
81C2241221C988 
48281" 

88: 1$(6)="9192949 
81C22432214888 
40201" 

38: 1$(7)="8 102048 
81C2243221C989 
40281" 

190: ЫА1Т 159:PRINT 
"Professionol 
Base Ва!!" 

130: INPUT "What is 

your Теат(1-6 
jE 

149:T=RND 6:1Е E=T 
GOTO 140 

189: RESTORE (3000% 
(Е-12%10): ЕАО 
り $:FOR 1=1Т0 1 
5: RERD D$(1, 1) 
01/1): МЕХТ 1 

229:RESTORE (3008+ 
(7-12%102: RERD 
ИФ: РОК 1=1Т0 1 
5: RERD 0% 2, 1) 
‚0(2, 1): МЕХТ 1 

269:FOR L=1TO 9: 
FOR D=1TO 2:H$ 
="93";: IF D=] 
LET H$=" オ モテ " 

318:WAIT 159:PRINT 
L;H$;" ";U9;" 

SDS 
(2);" "WS 

320: 0=8:K=8: W=D*-1 
+3 

328: TH(D)=H(D〉+1:E= 
0:5-0:В- ІР М 
(D)>3LET MCD)= 
1 

325:1Е S(1)<S(2) 
GOTO 2208 

388: C=M(0):N=D(D, С 
): IF C=9LET N= 
42 

390: A=D(W, 9): N$=D$ 
(D, C): J=K: IF D 
=1GOTO 510 

400: GOTO 620 

410: J=K: IF 0=160ТО 
550 

430: GOTO 660 

510:МАІТ @:FOR 1-1 
TO 25 

529:PRINT 98;С;" 
“ҮНӨ УҢ" 
“%09<2,9) 

530: IF (X<3AND C く > 
9RND ]NKEY$ =" 
8")GOTO 708 

540:МЕХТ 1 

559: 1F (J>gRND J<4 
JOR J=SINPUT " 
24-і (СҮ оғ N) 
“5% 

560: IF P<3AND (A<8 
6OR (A<188AND 
RND 5<4))GOTO 
810 

619:R=RND 2:U=R+ 
RND 3-2:GOTO 9 
69 

620:МАІТ 8:FOR Ізі 
TO 25 

639:PRINT и$;С; " 
NS" "рм" 

“3081,9; 

640: 1F (M( 3AND 
1NKEY$ ="0") 
GOTO 878 


650:МЕХТ 1 

660:1F ((J>gRND J< 
4208 J=5)AND 
RND 2=1LET S$= 


нү" 


629:Z=RND S+RND 5: 
INPUT "3-2 ( 
1-52“ ІК RCI 
OR R>5GOTO 678 

689: R=R+] : り =RND 3- 
2+8: GOTO 968 

708: РАЦЅЕ U$;" С" 
ンチ 629-": ВЕЕР 
3, 200, 200 

219:FOR 1-10Т0 12 

229: IF D(1, 1)=9 
GOTO 240 

239:MAIT 159:PRINT 
1-9j" 0951,1 
0C1, 1) 

249:NEXT 1 

750: INPUT "チェ ンジ ツァ 
we ©1370 
:0=9+9 

728: IF Q<180R 0212 
OR D(1.3)=0 
GOTO 2 っ 9 

289:PRINT N$;N;" 
> "jD$C1, Q);D 
(1, Q):N=D(1, Q) 

290:D$(1,C)=D$(1, Q 
2:051,С2-0(1,0 
):X=X+1:D(1,Q) 
=0: GOTO 550 

819:PAUSE Ы$;" リリ 
+F Берре": 
ВЕЕР 3, 200, 200 

828:MRIT 158:G=RND 
3+12:1Е 0<2, 6) 
=060Т0 820 

838: Р=Р+1:С050В 84 
9: СОТО 610 

840: АІТ 159:PRINT 
0$ сн, 9j" > 
"50%и, G): D$ (H 
, 9)=0$%И, G): DC 
ч, 9)=D(W, G): DC 
W, G)=8: RETURN 

829:PRUSE Us$s;" уу 
=7 Е? фр": 
ВЕЕР 3, 200, 208 
:РОВ 1=13TO 15 
Ф1Е D(1, 1)=0 
GOTO 900 

890: WAIT 158:PRINT 
1-12" "961, 
15jD(1, 1) 

900:МЕХТ 1 

918: INPUT "チェ ンジ ツァ 
Ses 613236 
:6=6+12: IF 621 
SOR 6<130Е D(1 
rG)=gGOTO 910 

920: М=М+ 1: GOSUB 84 
9: GOTO 668 

968: =D(M, 9): Т=2^‹ 
R-1):1F R=1LET 
T=1 

1040:9-2 (0-19 IF 
U<2LET 9-1 

1060: IF U>6LET V= 
64 

1120: ЫА1Т @:PRINT 
"646" В"; В 
i" 0";0: 
GCURSOR 69: 
GPRINT 1$(J) 

1140: GCURSOR 85: 
GPRINT "4244 
241Ғ2868": 
WAIT 158: 
GCURSOR 143: 
GPRINT 62; 34 
:34;20; В 

1139:MRIT В: 
GCURSOR 85: 
GPRINT "4044 
241Ғ286808": 
FOR 1-92Т0 1 
42:GCURSOR 1 
:GPRINT Т: 
ВЕЕР 1,15,15 
:МЕХТ 1 

1299:FOR 1=148ТО 
155: GCURSOR 
1 

1220:0М (1-147) 
GOTO 1238, 12 
48, 1258, 1258 
‚ 1260, 1278, 1 


230, 1238 

1230: GPRINT U: 
GOTO 1280 

1240: GPRINT (МОВ 
62): GOTO 128 
8 

1250: GPRINT (VOR 
34):GOTO 128 
9 

1260: GPRINT (VOR 
29):GOTO 128 
9 

1220: GPRINT (VOR 
8) 

1289: IF 5$‹›"Ү" 
AND ((INKEY$ 
=" "AND D=1) 
OR (1<153AND 
2=1-145АНО D 
=2))LET Үз1- 
145: GOTO 156 
a 

1308: ВЕЕР 1, 15, 15 
‘NEXT 1 

1305: 1F S$="Y" 
GOTO 1368 

1318:PAUSE : IF U< 
20R U>6PAUSE 
Ы <<< 
T°- >>>": В= 
В+1:ВЕЕР 1,1 
50, 300: GOTO 
1338 

1328: PAUSE " 

<<< スト ライ の 
>>>": ВЕЕР 1, 
188, 250:5-5% 
1 

1330: IF B>3GQTO 1 
480 

1340: IF S>2PAUSE 
EN 

I PIE OE 
: BEEP 1, 168, 
250:0=0+1: 
GOTO 1345 

1343: СОТО 418 

1345: IF 0226070 1 
550 

1358: GOTO 378 

1360:5%="": IF RND 
2=160Т0 1438 

1328: PAUSE " 

<<< 23-4 79 

ト >>>": ВЕЕР 

1, 160, 250:0- 
0+1:1F 022 
GOTO 1550 

1339:K=2: IF J=10R 
J=2LET K=9 

1499: IF J=5LET K= 


4 

1418: IF J=3AND 
RNO 6<4LET К 
=4 

1420: СОТО 1318 

1438: PAUSE " 
<<< 2€ e 
2 >>>": ВЕЕР 
3, 30, 39: K=6: 
IF Уа ПЕТ K= 
2 

1460: IF J=2LET K= 
4 


1429:GOTO 1310 
1480: PAUSE " 
<<< IA? t"- 
ц >>>":F=3: 
ВЕЕР 1, 138, 1 
50:1Ғ J=9LET 
K=1 
1508: IF J=10R J=2 
LET K=3 
1518: IF J=4LET K= 
5 
1528: IF J=30R (J) 
4AND J<2)LET 
K=? 
1530: IF J=2LET E= 
1:К=7 
1540: GOTO 2108 
1558: PAUSE " 
у= ЖУ Ла 
23°": BEEP 3, 
160, 259: GOTO 
2528 
1560: H=N*199-(RBS 
(CU-4))*58-ñ+ 
259+D*85: T= 
RND 1808 


1578: IF H>TGOTO 1 
689 
1589: IF T>899GOTO 
2020 
1590: IF T>649GOTO 
1329 
1615:PRUSE " 
<< 了 9 ト > 
>>": ВЕЕР 1, 1 
68, 250: 0=0+1 
:1Е 0>2GQTO 
1550 
1612: GOTO 328 
1689:H=INT (YN*59 
+(159- 月 ) ン 3+ 
ABS ((N-6)* フ 
>>: IF Н=780® 
H=210R Н›86 
GOTO 1768 
1200: IF H>B20R H= 
256070 1820 
1718: IF Н>2460Т0 
1878 
1220: GOTO 1938 
1260: PAUSE " 
xx% HOME RUN 
жжұ": ВЕЕР 2 
5, 30, 20: IF J 
=BLET Е=1 
1220:1Ғ J=10R J=2 
OR J=4LET E= 
2 
{289: IF J=30R (J> 
4AND J<2)LET 
E=3 
1290:1Е J=?LET E= 
4 


18908:F=15:K=80: 
GOTO 2100 

1820: PAUSE " 

кї スリ ー ^^ 

-2 ЖҰЖ": ВЕЕР 
14, 30, 20: К=4 
БІР J=10R J= 
20R J=4LET E 
=1 

1830: IF J=30R (XJ) 
4AND J<2)LET 
Е=2 

18480: IF J=?LET E= 
3 

1859:F=B:GOTO 218 
9 


1828: PAUSE " 
ЖЕЙ у=. ara 
А ЖҰЖ": ВЕЕР 
9, 38, 29:K=2: 
IF J=10R J=3 
OR J=SOR J=? 
LET К-б 
1880: IF J>1RND J< 
BLET E=1 
1830: IF J=60R J=? 
LET E=2 
1928:F=5: СОТО 218 
9 


1930: PAUSE " 
xx ヒッ ト Ж 
жұ": ВЕЕР 5,3 
ð, 28: IF J23 
LET Ea 
19408:K=J*2+1: IF K 
>8LET K=K-8 
2919:F=3: СОТО 218 
в 


2020:5-5%1:ІҒ S22 
LET 5=2 

28038: PAUSE " 

<<< ファール 

>>>": ВЕЕР 1, 
250, 288: DCW, 
9)=R-1: GOTO 
418 

2100: S(D)=S(D)+E: 
OCW, 9)=R-F: 
GOTO 320 


"2500: МЕХТ 0: МЕХТ 


L 

2299:MRIT :РВІМТ 
"4... бәз" 
3995512 = 
*;50‹2);" j 
% 

3000: DATA "D", "ә 
2%, .292, "С2) 
"17.299; "9:4" 
..323, "руч2" 
..312, "4493" 
..305, "вл", 

. 287 


PiO 


3081:Пата "*#na",. 
232, "NEN", . 
256, "299", 13 
5 

3802: DATA "325", 
. 227, "2031", 
. 346, "0773", 
. 32, "9333", 1 
25, "N2", 143, 
"арэ", 132 

9010:DATA "G", "マリ 
ек", . 382, "ジフ 
эй”, 2292 “9; 
АС Гад. 
44292, "АЯ" 
‚. 264, "+Л\" 
..289 

3811: АТА "スズ "キリ 
. 314; "P727", 
‚299, "сурек", 
122, "49799", . 
237, "3065", . 
319, "2и-д",. 
252 

3012: DATA "In"2", 
130, "уэ", 1 
32, "х2", 125 

3828: DATA "Т", "73 
=", , 345, "#96 
5", .264, "ツー 
А", .268, "Л72 
و“‎ 4282, "9 J)" 
..225, "2949" 
‚.282 

3022: DATA "nao", . 
255; "Е 59.2 
19, "Эм", 13 
5 

3024: DATA "3297", 
‚303, "+л“л", 
.263, "7,2", . 
254, "229", , 1 
38, "1794", 13 
0, "Anto", 115 

38398: DATA "С", "ЭЛ 
02", . 382, “РӘ 
9+", .322, "27 
+4", 259, "г? 
Ек", . 337, “FF 
пу", ‚308 

3032: DATA "ナリ リマ リッ 
. 29, "PAN. 
221,"99Л2",. 
229, "172", 1 
58 

3034: DATA "299", 
. 292, "244", . 
241, "АЛ“2",. 
333, "9 9,1 
45, "44)",128 
н "P92", 135 

38490: DATA "М", “3N 
“aI, PT 
33", .222, "#0 
зї“, 321, "v4 
2", ‚275% k= 
2,2212) ЫП 
",.241 

3842: DATA "PIF", . 
302, "?n+", .2 
5, "17", 138 

3844: DATA "2765", 
ОР 
87, "モト イ "」. 22 
6, "t79", 118 
a "947", 125, 
"ЗАК", 105 

3858: DATA "S", "73 
т^", .283, "23 
“j . 261, “IM 
",, 353, "オオ スキ 
“;.263, "24279 
",.288, "マル リカ 
و"‎ .282 

3052: DATA "2724", 
.26, "ЯЯГ", .2 
79, "33an", 13 


2 

3054: DATA "1232", 
¿281 "90992", 
.321, "4299", 
‚ 262, "Ay" £", 
121, "カウ" マリ" 1 
49," ミ TP モト "。 18 
5 
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РС-1251 


BASIC 


THE LABYRINTH 
УЛ 


自分 を 見 捨て つつ ある 人 間 た ち に 対し て 
恨み を 晴らす た め に , PC-1251 は 人 間 狩り を 
始め た . その 最初 の え じ き と な っ た あな た 
は , 彼 の 創り だ し た 迷宮 に 閉じ 込め られ て 
し まっ た . 一 刻 も 早く その 迷宮 か ら 脱 出し , 
彼 の 機能 を 停止 きせ る た め に , あな た は そ 
の 核 を 破壊 し な けれ ば な ら ない. 


プロ グラ ム の 説明 


リス ト ど お り に 入力 する と , メ モリ が 224 バ 
イト 余っ て いる こと が 確認 び どき ます 。 こ の 
224 バ イト は 迷宮 デー タ 用 と し て 。 すべ て 
使わ れ て いま す の で , 必ず フリ ー に し て お 
いて くだ さき さい. 残り メモ リ が 224 バ イト で あ 
る こと も 未確認 の まま (確認 ふれ て も ) I 
の プロ グラ ム を 実行 する と , ALE ВЕЗЕТ 
の や っ か い に な る 事態 が 起こ る 場合 が あり 
ます の で , 実行 前 に テー プ に セー プ し て お 
СЭ. 

な お 。 使用 中 画面 の 両端 で わけ の わか ' ら 
な い パ ター ン が 表示 され だ り , 点 減 し た り 
し ます が ,。 これ は PC-1251 の 構造 上 どう し 
て も 人 避け られ な いも の な の で す . また だ た, Ж 
池 が 消耗 し て いる と 表示 が 見 えな いこ と が 
あり ます . 2120, この ブログ ラム を 実 
行 す る と き , PC-1251 本 体 を 縦 に し た 方 が 
使い や すい で し ょ う . 


遊び 方 


この プログ ラム を 実行 する に は , RID 
よう に 3 つの 方 法 が あり ます が , ま ず は RUN 
ECEAT] SS, 

ЗЕ, 最初 に 迷宮 の サイ ズ を 聞い て き 


10:6070 508 

20:78” ВЕЕР 1: 00503 90 
9: AAIT йі PRINT ** 9 

30:У5: STR$ (М+1): IF М 
=9 „ЕТ \$=°А* 

40:45: STR$ (м+:.): IF N 
=9 LET us="ñ° 

Sd: PAUSE ° 
ysi” 

ÉG: PRINT * 
9 D.F.?”: CALL T+3 ZEN 


154 


79! し = ASC INKEYS : IF L||140:ACZ)=A(Z)+1:P=X%+8-): 
(299 IF (5278 THEN 7 


5000 LUCK” 
99:Х=0:Ү=0:2=1:5=0:Н=0 


100:%5% CALL TIK=U+19 
118:1Е R 60508 479+2 
120:5-5%!:1-0 
150:4=0:3=0:С=0:0=0:А‹2)| |154:1=1/2:1= INT (1/2) 
155:(-(1- INT ь)*8+1: 


ШЕ 8—86 


ます の で , 2 ぶ X2 か ら 10X10 の 範囲 で サイ 


ズ を 設定 し て くだ きい. 迷宮 が 完成 する t, 
いよ いよ “TheLabyrinth′ が 始ま り 、 タ 
д Км, 迷宮 サイ ズ を 表示 し た 後 D. Е. 
(Direction Finder) が 必要 か どう か を 聞い 
て きま す . これ に は Y か N で 答え て くだ き 
い (まあ 最初 は Y と 答え て みて くだ さい ). 

画面 中 央 に 見 える 矢印 が D.F.( つ まり 方 
向 探知 器 ) CF. これ は , あな た が 迷宮 内 
で 向い て いる 方 向 を 示す も の で , 最初 は 北 
(Y 軸 の 正 の 方 向 ) を 向い て いま す . 

次 に 画面 の 説明 を する と いい 末 ′ が あな た 
AFT, あな た の 視野 分 の 壁 の 状況 を 真 上 
か ら 見 た 状態 で 表示 る れ ま す . 

最後 に 操作 キー の 説明 を し ます . [6] C ñil 
進 , [3] で 左 に , [| で 右 に それ ぞ れ 90 度 向き 
を 変え ます . また , プ ラス ター 発射 は [Ө] キ 
ー で す が , これ は 迷宮 脱出 後 の み 有効 で す . 

ST, サイズ を 10※10 と 設定 し た 場合 に 
は (1, 1) が 区 ター ド で (10, 10) мг 
ー ル と な り ま す . ゴー ル に 到達 し , 迷宮 か 
ら 脱出 する と 核 が 現われ ます の で プ ブラス 
ター で 破壊 し て くだ きい. その 後 PC-1251 
は , 再び 人 間 の 手 に よっ て 始動 きれ る まで 
その 活動 を 停止 し ます . 


PC-1251 は ギャラ クタ 上 し て で 較 "を 


持っ て いる に も か か わら ず ,。 それ に 対す る 
キャ ラク タ ・ コ ユー ド が あり ませ ん . LDL, 
次 の よう に すれ ば この キャ ラク タ を プロ グ 
ラ : ム 、E で 使う だ と が で き ' ま ず 。 

$3, RSV モ ー ド で NEW [ENTER] と し て 
くだ さい . МС, POKE & 8000, 225, 76 
[ENTER] と し て みて くだ さい . リザ ー ブ ・ キ 
ー[ 和 に " 画 / が 入っ て いる こと で し ょ う . 

у — УМЦ &8000 82° 6 &802Е Ж 
地 ま で に 格納 きれ , РОКЕ%0222512 [A] O 
値 で , [B| は 226 で す . # 1:76 ` №” ФИ 
ュー ド で す . 

いろ いろ 値 を 変え て 試し て みて ください. 
マニ ュ ア ル に 載っ て いな い 命 令 も 見 つか る 
か も し れ ま せん . 


最後 に 


PC-1251 も PC-1500 ば ぼり の グラ フィ ッ ク 
ス が で きる の で す . あと は マシ ン 語 が 公開 
され る の を 待つ だ け で す . 

Special Thanks to Takoshi Yonezawa 


表 1 プロ グラ ム 実 行方 法 


新しく 迷宮 を 作り ます . 


ia, 


同一 の 迷宮 を 再度 楽し むこ と が で きま す . 
(た だ し メモ リ 上 に 迷宮 デー タ が な いと エラ ー と な る ) 


Q=Y+ñ-C 


151:L=LZ4:I= INT (L72): 8 
GOTO 155 
152:1=1и8:1=0: 0070 155 


RETURN 
160:I=K+J:E=0:F=0:G=0 
159:L= PEEK (100+P+&C4F0||1708:IF J=0 LET E=20:F=28 
89:R=(L=89): PAUSE * ): 60508 150+2: GOTO 16-8 
160 180:G0SUB 190+L: GOTO 20 


199:POKE iuEyFyGy6765: 
RETURN 

153:L= INT (1/2): RETURN||191:POKE 1,64+Е,64+Ғ,64+ 

. 6›64›64: RETURN 

192:Р0КЕ ТЕР» 6,0127: 


迷宮 の 途中 で プロ グラ ム を 停止 させ た 場合 に 停止 し た と き と 同 じ 条 件 で 同一 の 迷 
宮 を 楽し むこ と が で きま す . 


THE LABYRINTH BASIC J х К В 


RETURN 
193:РОКЕ 1»64%Е»64%Ғ,64% 
6,64,127: RETURN 
194:РОКЕ 1»1%Е»1%Ғ»1%6,1 

41: RETURN 
195:РОКЕ 1»65%Е»65%Ғ»65% 
6,65,65: RETURN 
196:90КЕ 1,1+Е› 1+2, 1+6,1 
,127: RETURN 
197:РОКЕ 1›65+Е›65+Р,65+ 
6,65,127: RETURN 
200: 1Е L〈>2 IF 1‹›3 IF Lj 


РО 


‹›6 IF L<)? LET J=J+ 
5: 6070 140 

2:0:1Е Р=М IF Q=N THEN 
POKE К+Ј+4,99 

220:1=] 

230:1-1%5: IF PEEK (K+I+ 
4)=0 ТНЕМ 250 

240:РОКЕ К+1,0,0›,0,0›,0: 
5070 230 

250:ІҒ H=1 LET А=34@: 
6070 350 

260:L= VAL ІМКЕҮ$ /3: IF 
ЕО ТЕ (592 TEES 
THEN 260 

270:0М L GOTO 289, 399 29 
8 


280:2=2-2 

290:2=2/4:2= INT ((2- 
INT 2)ж4)+1: GOTO 11 
9 

308:1Е J=9 THEN 260 

319! (2Z)=1!X=X+B-DiY=Y+A 
-C 

320:IF Хам IF Y=N (ЕТ H= 
1 


530:0070 120 
349iFOR 1=0 TO 15: 
I: RETURN 
359:POKE &Е842,0: 60508 
A: POKE &Е8 410,99, 0: 
60508 А 

369:POKE &Е84С, 107,0: 
00508 А: POKE %Е84В» 
127,8: 60508 А 

370:РОКЕ К, 119,28: 
А: POKE К,20: 
А 

380: =&E84EIB=&E868:C=&E 
86Ғ: POKE &E86E,8, 29 
‚8 

399:POKE С,20:1= VAL 


МЕХТ 


60508 
60508 


Раул 
w 


INKEY$ : 
POKE С,28: 
400:POKE A,8 
418:FOR K=0 TO 28 STEP 3 
: POKE А+К,@›@›,0›8: 
NEXT K 
420:РОКЕ B+6,8,20,8: 
POKE В+5,8› 20,42,20, 


IF 16 
GOTO 390 


8 

430: POKE В+4,8,34,8,85,8 
34,8: POKE В%2,8,0, 
0,65»20»0;20:65»0,0» 


8 

440:РОКЕ В8»8,0,0»0»8,8,й 
›34,0,8,0,0, 0,0; 8: 
POKE В, 6,0, 0,0, 0,9, 9 
›0, 0,0, 0, 0,9, 8,8 

450:ВЕЕР 2: PAUSE * 
ONGRATULATION!!” 

46Q:WAIT : PRINT * 

TOOK "$ 578% S$" 

EPS." 

479iEND 

480:РОКЕ 1)38»28,42»8,8: 
RETURN 

481:РОКЕ Ш,8,4,62,4›,8: 
RETURN 

482:РОКЕ 0,8»8;42,28»8: 
RETURN 

483! 50KE 0;8»16»62»16»8: 
RETURN 

580: "2" CLEAR : RANDOM 

510:8-%С4Ғ0:8-%С554:Т-%6 
48B:U=&E837:0=U+29 

S20:INPUT “ SIZE?(2-10) 
Х=°;Х,* SIZE?(2-10) 
Y="; Y 

530:ІҒ (X<2)+(X>10)+(Y<2 
2%(Ү210) THEN 520 

540:М=Х-1:№=Ү-1: WAIT В: 
PRINT * JUST AM 


“و 


TO 208 STEP 


550:Ғ0ОК 1=@ 
13 

560:РОКЕ Ағ1»00»0,0»0;0 
,0»0»0»0;0,0,8 

570: МЕХТ I 

589iFOR 1=11 TO 11-11 
STEP 11: POKE В+1›1: 
POKE В+Х+1,1: NEXT І 

590:РОКЕ В›1›1›1›1›,1›1»,1 
91919191 

600:РОКЕ B+11Y 1515615151 
"19191919191 

610:Р0КЕ А+1›,4,4,4,4,4,4 
1434 

620: POKE Ағ1%108%1,1,1,1 
9191311 

630:Ғ0К 1:10 TO 19N-19 
STEP 10: POKE А+1›8: 
POKE A+M+I,2: NEXT I 

649!POKE 8,12: POKE Ағ10 
№9 

650:РОКЕ А+м,6: POKE A+M 
+194, 3: POKE 0+3, ММ 

669iFOR К-М TO 1 STEP -1 
i POKE 0+1, Х-К 

670:FOR I=N ТО 1 STEP -1 
} POKE 0, У-1 

688:РОКЕ В+К+111,1 

690:0N RND 4 GOTO 708,74 
9, 780,820 

700:1Е PEEK (B+11+K+111) 
=9 THEN 699 

710:РОКЕ 8+11+К+111,1 

720:РОКЕ 8-1%К%101»( 
PEEK (й-1%К%1012%2) 

730:РОКЕ A+K+19I5( PEEK 
(А+К+191>+8): GOTO 8 
69 

740:1Е PEEK (В+1+К+111)а 
8 THEN 690 

750:Р0КЕ 3%1%К%111,1 


PNA Р 


`i № 
№. АБ. 2. ЩИ 


と し て 使い た いし , チ ェ ッ ク ・ サ ム の 同時 表示 の 機能 


ろ で す . テン ・ キ ー の 16 進 キ 一 化 の ゲロ グラ ム は 中 井 氏 が , 


"83 年 。 8 月 
グラ ム を 発表 し ます . 


チェ ッ ク ・ サ ム の プロ グラ ム は リス ト 1 と リス ト 2 に ある と お り 
これ で は 中 井 氏 の プロ グラ ム と ア 
る の で 中 井 氏 の プロ グラ ム を リスト 3 の よう に 8 
リス ト 4 は モニ タ の 互 コ マン ド 拡 張 用 フッ ク と 汎用 フッ ク 
を 上 の プロ グラ ム が 走る よう に 書き 換え る た め の も の で す . WID 
ELTA S4 

以後 選 コ マン ド で は テン ・ キ ー を 16 進 キー と し て 使え , 同時 に チェ 
れ ま す . 


кш а" 
522% 
TH8O と し て . Ух Ке 


ッ ク ・ サ ム が 表示 きる 


部 入力 し た ら 6GF3AO | フン 


СА, лы 


越す と よい で し 


=”, 
を 16 進 キー 
も 欲し いと こ 
I/O, 


号 に 発表 し て いま す . こ こ で は チェ ッ ク ・ サ ム 表 示 プ ロ 


1/0, 
2) PC-Techknow 8800 Vol.1, 


Hm LABYRINTH BASIC リ スト 


760:РОКЕ А+К+1@1› 
(4+К+101)+4) 

770: РОКЕ А8-10%К%101»( 
PEEK (А-10+К+101)+1) 
: 6070 860 

780:ІҒ PEEK (В-11+К+111) 
=9 THEN 699 

790:РОКЕ В-11%К%11131 

800:РОКЕ 8-10%К%101,( 
PEEK (й-10%К%1012%8) 

810:РОКЕ 8-11%К%101»( 
PEEK (й-11%К%1012%2) 
: 6070 860 

820:1Е PEEK (В-1+К+111)= 
9 THEN 699 

830:РОКЕ B-1+K+11151 

840:РОКЕ A-11+K+1915( 
PEEK (А-11+К+101)+1) 

850:РОКЕ А-1+К+101› ( 
PEEK (ñ-1+K+101)+4) 

860: МЕХТ І 

870: МЕХТ К 

880: 60Т0 20 

890: RETURN 

900: RESTORE 

918:CALL Т: 60508 349!R= 
&E891:B=899 

911:РОКЕ 8»32»17»10,4: 
00508 B 

912:РОКЕ А»16»8»5,2: 
60508 B 

913:РОКЕ 8»8»4»2,1: 
60508 B 

914:РОКЕ 8942,1» 0: 
GOSUB B 

915:РОКЕ А» 2,1,0: 50SUB 
B 


916:РОКЕ 8,1,9: 60518 B 
917:Р0КЕ 8,0 


920:FOR К=0 TO 11: 
F: FOR I=0 TO 3 


939:REND ABCDE: POKE 


READ 


Р,» В,С» 0» 

940: МЕХТ I: NEXT К: FOR 
І=0 TO 50: NEXT I: 
RETURN 

959: DATA %Е819»0»8,1,1,0 
,0»35з4»4,231,151791 
7;8,4»62»68:68,52 

951:DATA 8Е81Е»1»0,0,9,1 
7,0,д0)7,31»231,1, 
38, 127,8, 4,4, 129 

952: DATA &Е823, 6,1, 1,1, 0 
;3,5,5,5, 1,1421; 21» 
21,6, 56,84, 84,84, 24 

953: DATA &Е8 21, 1,1, 1,1, 1 
›7,4,4,4,4, 31,16, 16» 
16,16, 127, 64»64»64,6 
4 

954: DATA &Е832,0,1, 1,1, 1 
,2%5»5»5»7»8»21,21,2 
1,30, 32,84,84,84, 120 

955: DATA %Е837»1,1,1,1»8 
%7%4;4;4)3331,18,17» 
17914»127»72»68»68»5 


956: бата &Е877, 0, 8,0, 1›1 
з0»1»2»5»4)3,4,8,20, 
19,12,16,32,80›,76 

957: АТА %Е872»0,0,0,1,0 
sss BITs 1,12, 31, 
9,4, 4,83, 124,9 

958: DATA &E86059,115159 
,8, 4,7, 4,0, 0, 16, 31,1 
7,0, 0,64, 125,68, 0 

959: ВАТА %Е868»,1,0»0,0,1 
›7, 8,0, 87, 39, 1, 1,2, 
31,120,4,4,8,124 

960: DATA &Е8 63,0, 1, 1,0, 9 
›2,4,4, 3,0, 8, 17, 17,1 
5,1,32,68,68,62,4 

961:ПАТА &Е85Е›,1,0›0›0›1 
.7,0›0й›0,7,350»1›1›,2» 
31,120›4,4,8›127 


9416, ERE СЕЕ 
РС- ЕЛ コマ ンド に チェ ッ ク ・ サム を 表示 さ せる プロ グラ ム 


PC-8801 の モニ タ の E コ マン ド は マシ ン 語 の リス ト を 入力 する 
の に は と て も 便利 な コマ ンド で す . 


"83 年 8 月 号 , 工学 社 


TARS 


R 


@ 東 海陽 一 


生還 細 細 較 E コ マン ド に チェ ッ ク ・ サ ム を 表示 させ る ルー チン тын 


ーー リズ トド ү, 91796 メイ フルー チ フ 6 サフ" ルー ジフ Т. 


ドレ ス が 重 な 


F280 00 


F250 00 00 00 00 O0 D9 08 721 02 00 39 7E EE 26 20 08 1 
Ғ260 23 7Е ЕЕ 65 20 02 18 03 08 D9 C9 21 48 ҒВ 36 20 
F270 TI 49 РВ ОГ 37 00 ED ВО 21708 ҒЗ 7E LU 20 ҒЗ 87 
F280 87 87 87 57 23 7E CD 20 ЕЗ 82 57 23 7E CD 20 ҒЗ 


F290 87 87 87 87 SF ЕВ ES ОГ 00 10 II FD ЕЗ C5 ЗЕ 10 
F2A0 47 АР 86 23 10 ЕС 47 81 4F ЕВ CD ҒО F2 C5 01 76 
О? СТ EB 79 СГ. 


4F IO E4 OI 78 00 ЕВ 09 47 CD 


F2CO ҒО F2 Е! 11 CS FB ЗЕ 10 47 ES C5 ЗЕ 10 47 05 11 14E 
CMRE ENEE 


F200 TO 00 AF 85 ТУ IO FC DT 47, ЕВ CD З 
F2E0 CD 39 ЕЗ 77 23 23 ЕВ C1 Е! 23 10 DD 08 09 С 
T2F0 36 ЗА 78 23 CD 30 ҒЗ 77 78 23 CD 39 ҒЗ 77 ` 5 9 146 


р-я 


УАК 2551770 7775-Ұ2 2,3,4. E F= 


WIDTH80 と する の は , 80 字 モー ド の と き に し か 正しく チェ ッ ク ・ サ 


ム を 表示 し な いか ら で す . 凌 走 ある いい は, 故意 に ワー ク ・ エ リ 


ア を 


F330 Е5 С5 Е6 ҒО 21 50 ҒЗ 18 ес Е5 С5 Е6 
F340 1 ЕЕ ЕЕ. 


ГЕЗ 0 


21 70 
00 


破壊 する こと が な けれ ば RESET し て も この プロ グラ ム は 壊れ ま 
せん . 再び @F3AO レ | と すれ ば ちゃ ん と 機能 し ます . 


E コ マン ド メイ ン ・ ル ー チ ン 6408Н--6753Н 


モニ タ E ビ コマ ンド 拡張 用 フッ ク Е67ВН--Е67ОН 6528H か ら CALL さ れる . 


モニ タ 汎 用 フッ ク Е681Н--Е683Н 


7159H は E コ マン ド か ら は 6523H か ら CALL さ れる 
参考 文献 


1) 中 井 義 行 :^PC-8801 の E コマ ンド で テン ・ キ ー を 16 進 キー と し て 


7159H か ら CALL さ れる . 


ОТ IO OO ED BI ZI 60 
F350 FO EO DO CO BO AO 90 80 % 60 50 40: 
F360 30731 32 33 32 35 36 37 38 39 41 42 
F370 ОҒ ОЕ 00 OC 08 ОА 09 08 07 06 05 04 
リス ト 3. ラン キー 916 シン キー = スル ルーチン 


F380 09 21 97 ҒЗ 01 06 00 ED В? 20 05 21 98 ҒЗ 09 7E 189 


OF 
|82 
30 
43 
03 


00 
20 10 
44 45 
02 01 


дк. 


ЕЗАО 2I AC ЕЗ II 7B Её 01 09 00 ED ВО FF C3 80 F3 С9 107 
F380 00 00 СЗ 55 F2 00 00 00 00 00 00 00 00 00 00 00 10А 


22 ФЕЗАО 27 $13996 7 ヒョウ シッ シ ダン キー Л 16У27- =. ナリ マス 


29-27% レト" フッ I 


155 


PC-1245/1251/1250 


BASIC 


ポケ コン 


8 BAAR, ЯЖОТ.ҮЖІІ”АП УР 

マシ ン を や り た いか ら 作 っ て くれ 」 と 言わ 
Ж, 暇 な と き を 利用 し て 作り 上 げた の が こ 

の ペグ スケ ジィ ョ ックス ロッ トマ シン *^ СТ 
完成 後 T. Y 書 に 遊ば せ た と ころ , 結構 気 に 
で そま し た - 


全体 の 流れ に つい て は , 表 1 に プロ グラ 
ム ・ マ ッ プ "を 載せ て お きま す の で 各自 で 解 
析 し て くだ さい . 

ま 706 ま 8 の ジロ グラ ラム で ば は マニュアル に 
載っ て いな い コ マン ド も 使っ て いま す が 、 
これ に つい て も 場所 を 改め て 発表 し た いと 
思い ます . 

Ші プロ グラ ム ・ マ ッ プ 


初期 設定 

持ち 金 表 示 

[6] 入力 判定 

掛け 金 入力 

掛け 金 判定 

画面 作成 

3 つの キャ ラク タ を 決め る 
レバ ー の デモ 

ドク ロ の 数 , 画面 処理 
キャ ラク タ 表 示 

倍率 判定 

は ずれ た と き の 処 理 

ドク ロ が 2 つ 以 上 ある か どう か の 判定 
*DOKURO” の 文字 表示 
ドク ロ 笑 う 3 

時 間 つ ぶし , 掛け 金 を 引く 
持ち 金 が $100 以 上 ある か どう か の 判定 
GAME OVER の 処理 
Syra N уе 

プロ グラ ム 終 了 
画面 処理 サブルーチン 
バッ クマ ン 表 示 

モン スタ ー 表 示 
イン ベー ダー 表示 

エイ リア ン 表 示 

星 表示 


10:78” CLEAR 1 
=1999! RANDOM 
20:РАІМТ ° "+ STRS М," 


2S:INPUT * KAKEKIN ? “i 
KiK= INT K 
30:IF K<199 OR K>h OR < 


カジ ノ 


Алаш | 


と くに 難し いこ ご お は あり ませ た 。 УАР 
を よく 見 て 間違い の な いよ うに 入力 し て く 


RUN モ ー ド か ら [pg[Al と キー イン する 


と ゲー ム が 始ま り , 最初 に 持ち 金 を 表示 し 
ます (最初 の 持ち 金 は $1.000 で す ). 

KU, [Q] キ ー を 押す と 掛け 金 を 聞い て き 
ます . 掛 け 金 は 1 回 に $ 100 か ら 持 ち 金 全部 
まで か けら れ ま す ( ゃ 100 未 満 は か けら れ ま 
せん ). 掛 け 金 を 入力 L, [ENTER] キー を 押す 
L, 画面 が 一 変 し て スロ ッ ト マ シン の レバ 
ー の デモ を 表示 し た 後 , キャ ラク タ が 3 つ 
出 て 判断 に 移り ます . 表示 され る キャ ラク 
誠に や いて は 本 を 見 で で だ きい 。 まな: 
倍率 に つい て は 表 3 の と お り で ,( 掛 け 金 ) < 

表 2 キャ ラク タ 


エイ リア ン 


Е 


Р814+102, 127,127, 127 
127,127: NEXT 2 
80:ҒОК 2=1 TO 3:42) = 


12,12: РОВ Z=1 TO 10 
t NEXT 2 
110:POKE &F837,64, 64,64, 


ЕЗ> 
Е2> 


星 以外 3 つ 
星 以外 2 つ 


(倍率 ) が 持ち 金 に 加算 きれ ます . た だ し , 
ドク ロ が 2 つ 以 上 出 た と き は , (НН) х 
(ドク ロ の 数 ) が 持ち 金 か ら 引 か れ ま す . 
そし て , 持 ち 金 が $100 以 上 あれ ば , 持ち 
金 の 表示 に 戻り ます が , $100 未 満 に な る と 
ゲー ム ・ オ オーバー に な り ま す . 
ま た, 持ち 金 が $5,.000 以 上 に な る と スロ 
ентіге し まい ます . 


о” ログ ラム を 作る まで に 何 回 と な く 


ЕАО, や っ と まとも な 
も の を 作り 上 げ る こと が で きま し た . 

PC シリ ー ズ は BASIC が し っ か り し て い 
る の で , 入門 用 に は も っ て こい だ と 思い ま 
+. ボケ コン を し っ か り 操 れれ ば . 
ン を や る に も 大 し た 苦労 は いり ませ ん (Ж 
は 私 も そう だ っ た ). 

最後 に ,. こ れ か ら BASIC を 学び た いと い 


マイ 


う 人 へ の 助言 を 1 つ .『 と に か く 自 分 で プロ 
グラ ム を 作っ て みる こと . 簡単 な も の か ら 
始め て 失敗 し , 理解 し , そし て 成功 し て い 
LOTFI. 
参考 文献 


*PC-1251 に つい て ヶ 。 1/0, 
BIO 


1) 兵頭 英樹 : 


"83 年 8 月 号 
м 


140:Ғ0% 2-1 TO 3: ON A(Z 
2 60508 500»510,520» 
530,540,550,550: 


PUSH 09%: CALL &11Е0: 
IF М250008 PAUSE * G 
IVE UP 119%: END 

22:78: INKEY$ : IF F$) 
*9@* 6070 22 


RND 7: NEXT 2 
90:РОКЕ &2837, 127,3: 
FOR 2=1 TO 10: NEXT 


96,96: FOR 2-1 TO 10 
: NEXT 2 
120:0=0: FOR 2=1 TO 3: 
IF В(2225 LET 2291 
139:NEXT 2: 60508 300 


NEXT 2 

145:1Е A=5 AND A=B AND B 
=C ВЕЕР 4: PAUSE ° 
7 BRI 11!!! *: М=М+7К: 
GOTO 20 


M-K く 199 AND M>K) 
5070 29 

49:PRINT * < 
CALL 81120 

50:08 2-0 TO 2: POKE % 


2 
100:РОКЕ %8Ғ837»64%52»16» 


156 


159iIF A<6 AND A=B AND В 


=C ВЕЕР 3: PAUSE * 
4 BAI !!!*:М=М+4К: 
5070 20 


155:IF (A=5 AND A=B) OR 


(B=5 AND B=C) OR (A= 
5 AND =C) ВЕЕР 2: 
PAUSE * 2 BAI !!*:М 
=М+2К: GOTO 20 


160:IF (ñ<6 AND A=B) OR 


(B<6 AND B=C) OR (A< 
6 AND A=C) ВЕЕР 1: 
PAUSE 4 1 BAI !':М= 
ñ+K: GOTO 20 


170:ІҒ 2<2 LET M=M-Ki 


5070 205 


180:ІҒ D<2 THEN 210 
190:PRINT “ DOKURO : 


195: 


197: 


200: 


205: 


CALL &11E0: FOR X=1 
TO 3: FOR 2=1 TO D: 
POKE %Ғ825%52»14,91, 
87,91,14: NEXT 2 

FOR 251 70 D: POKE & 
Е823+52,14,59,55,59, 
14: NEXT 2: NEXT X 
FOR 2=1 TO D: POKE & 
Е823+52,14,91,87,91, 
14: МЕХТ 2 

FOR X=1 TO 50: NEXT 
X:M=M-KD 

IF M>=100 GOTO 20 


210:РАЏЅЕ * *; STR$ Mi 


ВЕЕР 2: PAUSE ° GA 
МЕ OVER’: PRINT " ON 
СЕ MORE (Ү/н2%: CALL 
&11E9 


220: 


250: 
240: 
300: 
510: 


К$= INKEY$ : IF K$<> 
“Y” AND K$<>YNY GOTO 
228 

IF K$="Y" GOTO 10 
END 

FOR 2:1 TO 3 

POKE &F814,85,42,85, 
42,85: POKE &F81E,85 
›42,85,42,85: POKE % 
Е828»85»42,85,42,85 


ІРОКЕ %Ғ814»42,85»42, 


85,42: POKE %Ғ81Е»42 
›85,42,85,42: POKE & 
F828, 42,85,42, 85 ヵ 42 


NEXT 2 
ІРОКЕ %Ғ814,85,42,85» 


42,85: POKE &F81E,85 
›42,85,42,85: POKE % 


Рю 


グラ フィ ッ ク スロ ッ ト マ シン BASIC リ スト 


F828 85 42 85 42,85 


RETURN 
:РОКЕ %Ғ808%102%34311 


9,127, 127,62: FOR X= 
1 TO 10: NEXT X: 
RETURN 


ІРОКЕ &Ғ8йА+102› 126,5 


5»127%55,126: FOR X= 
1 ТО 10: NEXT X: 
RETURN 


:РОКЕ %Ғ808%102»92»54 


,95,54,92: FOR X=1 
TO 10: NEXT X: 
RETURN 


:POKE &F80A+10Z: 50:75 


, 39,64,48: FOR X=1 
TO 10: NEXT X: 
RETURN 


540: POKE %Ғ808%102,8»56» 


289568: FOR Х=1 TO 
10: NEXT X: RETURN 


550:РОКЕ &2804+182, 30,11 


5,111,119,3@: FOR X= 
1 ТО 10: NEXT X: 
RETURN 


君 も 目指 せ / ス ター プロ グラ マー s. 7uz5s +W spna 


その 1 ボツ に な ら な い プ ログ ラム 

PiO 編集 部 に 投稿 され る プロ グラ ム は すべ て ポ ボツ に は し た く あ 
り ま せん . 誌面 の 都合 で すぐ に 採用 に な ら な いも の も あり ます が が , 
そう いっ た も の も いずれ 何ら か の 形 で 発表 し よう と し て いま す . 
で は 実際 に ボツ ッ に な る の は どん な プロ グラ ム で し ょ うか ? 
あり ふれ た プロ グラ ム 

ВУ Ж ОУ РАНЕ, 6 = 2 7 
グラ ム な どの プロ グラ ム は 投稿 数 が 多い の で す . そん な 中 か ら 選 
ぼ ば れる わけ で すか ら , よほど 特長 の ある も の で な いと 投稿 し て も 
ボッ に な る 可能 性 が 大 きい の で す . 

ゲー ム ・ セ ンタ ー に ある プロ グラ ム 

これ は 現在 。 名 前 と キャ ラク タ が 法律 で 認め られ て いて , これ 
に 該当 する も の は も ちろ ん 採用 で きま せん . また , РО や I/O で 
は , 完全 な オリ ジ ナ ル の み を 発表 し て いく 方 針 で す . テーブル ・ ゲ 
ー ム の パソ コン 版 は テー ブル ・ ゲ ー ム 会 社 自身 に まかせ まし ょ う . 


も と スタ ー プ ブロ グラマー に な る に は オリ ジ ナ ル ・ ソ フト を 作ら な 
けれ ば な ら な い は ず で す . 
漫画 に で て くる キャ ラク タ を 使っ た も の 


РіО No.1 で は うる 星 や つら の キャ ラク タ を 使っ た も の を 載 
せま し た が , あれ は わざ わざ ビデ オ に 撮っ て 小学 館 プ ロ に 送っ て , 
や っ と 許可 が も ら え だ たん で す よ . この よう に この 手 の プ ログ ラム 
は 発表 する まで が 大 変 な の で す . 編集 部 と し て は こう いっ た 企画 
は や り た い の で す が , な か な か 思う よう に いか な い の が 現状 で す . 
必ず ポ ボツ と いう わけ で は あり ませ ん が , その 確率 は 高い わけ で す . 


その 2 こん な ソフ ト が すご い / 

も ちろ ん オリ ジ ナ リティ 

誰 も が 考え も つか な か っ た ソフ ト . UR, 誰 も 考え な いわ け で 
ちか ら , これ を 思い つく の は 大 変 難 し いこ と で す . で も これ を 成 
НН, "あな だ や スタ ダー デ プログラマー です. 
ゲー ム の 3 大 要素 

ゲー ム の 3 大 要素 は PiO パ ー ツ で も ある よう に スト ー リ 。 キャ 
ラク タ 。 サウ ンド で す . この 1 つ で も 欠け て し まう と 途 端 に 面白 
く な く な っ て し まい ます . 不得 意 な 分 野 は PiO パ ー ツ に 頼っ て 補 
е 
みん な が 使え る ソフ ト 

ゲー ム で 遊ぶ 人 は 今や 子供 か ら 大 人 まで , さら に は お じい ちゃ 
А, お ば あちゃ ん まで いる の で す . それ を 考え ん たら, や た ら 難 し 
い だ け の ゲー ム で は 駄目 だ ど だ と い うこ と が わか る で し ょ う . 

で は どう し た らい い の で し ょ うか ? ア メリ カ の ソフ ト に は 必ず 
ある の で す が , ゲー ム の 難易 度 の セレ クト で す . ゲー ム を 始め る 


前 に 自分 に 合っ た 難易 度 を 選択 で きる の で す . この 他 , 操作 性 を 
考慮 し た も の で , 最初 に ユー ザー 自身 で , ゲー ム に 使う キー を 自 
由 に 定義 で きる も の も あり ます . 

これ ら の 考え を も っ と 進め る と APPLE の ゲー ム , 『 ピ ン ボ ー ル 
だ コンストラクション ・ セ モット 」 の よう に , 自分 で ゲ ダーム 自 体 の 
設定 まで 変え た れる よう に な り ま す . 日 本 製 の ゲー ム で も , 自分 で 
キャ ラク タ 。 サウ ンド , 各 キ ャ ラク タ の スピ ー ド な ど を 自由 に 変 
それ る も の も あり ます . 
飽き な い ソ フト 

2 パソ コン ・ ゲ ー ム は ゲー ム ・ セ ンタ ー に ある よう な も の で は い 
け な い と 思い ます . それ は ゲー ム ・ セ ンタ ー に ある よう な も の は , 
すべ て 100 円 を 入れ て 短 時 間 だ け 楽 し め る よう に な っ て いる か ら 
сў. と ころ が , パソ コン は 1 日 中 自分 の 手元 に ある わけ で すか 
b, ゲー ム も 本 当 に 飽き て し まう まで 続け られ ます . し か も 毎日 
で きる わけ で すか ら , 単純 な も の だ と すぐ に 飽き て し まう わけ で 
ЕЛ 

Жез ЕР АЕ 
ゲー ム は こう いっ た と ころ か ら 生 まれ た ので し ょ う . リア ル タ イ 
ム ・ ゲ ー ム で も 飽き な くす る こと は 可能 で す . 変化 を つけ た 面 数 
を 多く し て , 上 達 に 応じ て 新しい 面 に 挑戦 で きる よう に し た り , 
ユー ザー 自身 が ゲー ム の 背景 や キャ ラク タ , サウ ンド を 自由 に 変 
そら れる よう に する な ど 工 夫 次 第 で どう に で も な り ま す 。. 
マシ ン 語 は 知ら な く て OK ノ 

マシ ン 語 は その パソ コン を 最大 現に 活か す た め に は 絶対 に 覚 を 
な けれ ば な ら な い 言 葉 で す が , な に も 必ず 使わ な けれ ば 良い ゲー 
ム が 作れ な いと いう わけ で は あり ませ ん . 逆 に マシ ン 語 を 駆使 し 
た か ら と いっ て 良い ゲー ム が で きる わけ で も な い の で す . 

アド ベン チャ ー ゲ ー ム な ど BASIC の み で 書か れ た も の も ある じ 
ゃ な いで すか . また 麻雀 ゲー ム , ポー カー ゲー ム , 花札 ゲー な 
ども BASIC の み で で き て いる も の も だ た くさ ん あり ます . BASIC で 
高速 な ゲー ム を 作ろ うと すれ ば 無理 だ あり ます が , BASIC の で き 
る 範囲 で うま く 作 っ て や れ ば いい プロ グラ ム が 必ず で きる は ず で 
T, 

最近 は BASIC コ ン パ イラ な ど , と て も 便利 な も の も 多く 出 て い 
#3. コン パイ ラ を 使え ば , マシ ン 語 で 作ら れ た プロ グラ ム に だ 
っ て 負け ませ ん . 
最後 に 

多少 未完 成 の プロ グラ ム で も 内 容 が よけれ ば , 編集 部 の 方 で も 
アド バイ ス し て 完成 きせ , コム パッ ク か ら カ セッ ト ・ サ ービス で 
きる よう な も の に し た いと 思っ て ます 。 

で は 以上 の こと を よく 念頭 に 置い て 。 スタ ー プ ログ ラマ ー 目 指 
し て 頑張 っ て くだ さい . 
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これ は 代々 木 に そびえ た つ Z ビ ル に 隠さ 
れ て いる ダイ ヤ モ ン ド を 盗み 出す ゲー ム で 
3. 途中 で カギ を ひろ っ て 部 屋 に 入り , い 
ろ い ろ な 情報 を 得 て , 5 階 の ある 一 室 に 隠 
され て いる と いう ダイ ヤ を 盗み 出し , HA 
まで 戻っ て きま す . 各階 に 部 屋 は 5 つ ず つ 
T, 途中 し つこ く 攻 撃 し て くる モン スタ ー 


を 倒し , 見 事 任務 を 果たす こと が で きる か 
1? 


入力 方 法 


ステ ッ プ 数 を よく 確認 し な が ら 間 違い の 
な いよ うに プロ グラ ム を 入れ れ ば 問題 は あ 
り ま せん . テー プ へ の 保存 は , 

МОРЕ [3|ПМУ |[5АУЕ ПМУ ||МОрЕ [5 | 一 | 
р]|[1 |[А|[ЕХЕ) 
р Ж E Sk Ый 


遊び 方 


まず , [РО] を 押し ます . ス ター ト の 位置 は 


PROGRAM LIST ЕГЕ 
М98-19,Е-1Е 512steps 
FILE: 5-1 LBL 


LBL4 
Í H-81 60708 
LBL8 

LBL6 

1 HH81 


LEL 
“-« е4гр5 


жї* Pi 

$ B-8? x=F 80703 
HRGZ х-Ғ 60101 
HREJ 


Hin83 №05 


65 
+/- Хо, > INT 


1 階 の (0.0) か ら で す . 初め に “Юг: Open 


?" と 聞い て きま す が , 
DT [O][EXE] を 押し ます . 


カギ を 持っ て いな い 
次 の 表示 で 左端 


が エネ ルギー, 真ん中 が 自分 の いる 階数 , 
右端 の 2 桁 の 数 字 が 自分 の 進む こと の で き 


る 方 向 を 2 


は 常に [] 
いて いる 


表 1 


H 
H 
1 


( 
H 
Ë 


RAHE - MRIG + 36 = 
X> 


示し ます . 自分 の 向い て いる 方 向 
の 方 向 で 右 に 進ん で も 自分 の 向 
[の 方 向 は 変わ り ま せん . 表 1 に 
表示 形式 と キー 入力 

表示 の 意味 と キー 入力 
左 か ら エ ネル ギー, 階数 , 進め る 方 向 


ドア を 開け る と き [1|[EXE| 
開け な いと き [O ЕХЕ) 


左 か ら 何 番目 に 落ち て いる も の を 拾う 
か を 入力 し [EXE| 


エレ ベー タ の 位置 


自分 の 位置 


モン スタ ー 出 現 . 次 に 表示 され る 角度 
を 瞬時 に 覚え て 入力 し , 退治 する 


ゲー ム 終 了 . 右 ゲ スコ ア 


“Honster ” 


‘055steps | | 55BP5 


HRI x 72 = MHDT 


Hinê 
PAUSE 


4 
x 2 192 = Ш 
= AE 

HLT RND? 


ss ĝj isters 


Ri? = 


|8819 
RIT x 16-2 МЕВА. 
Bx 


BL8 
Rai BinF х=й 60707 
ELI 


38 60702 


- HRES = 
ABS x 5 10Х = х=й 
RANE los +/- + HROS 
+5 = INT HET х 3 = || HAC 60709 
LBLS 


PAUSE 80701 
LBL2 

MRIG x=F 60705 
LBL3 

НЕ! x=F 80706 
MR12 x=F 80706 
ЮЕ15 x=F 80706 


MR14 х-Ғ 80706 
KRIS х-Ғ 60706 
LBL4 


表示 と その 意味 と 対応 を 表 2 に は キー の 
説明 を 示し ます ( 注 : エ レベ ベーター や 部屋 
は 各階 X Y 座 標 で (10.100 の 中 に あり ます 
が 。 う っ か り 進 ん で いる と を その 外 に 出 て し 
まい ます ). жы, 途中 で 拾っ た な ルビー は 


点 、 ダ イヤ は 3,000 点 で 出口 まで た 
どり つい だ と き 残 り の エネ ルギー 量 と 加え 
られ スコ ア に な り ま す . 


表 2 


コマ ンド 表 ( 通 常 モ ー ド で ) 


コマ ンド 内 容 


[2][41[6[8]| それ ぞ れ 下 , 左 , 右 , 上 の 方 向 に 進む 


廊下 で 物 を 探す (サー チ ・ キ ー) 


持っ て いる カギ を すべ て 捨て る 
(カギ は 移動 コス ト を 食う の で 注意 ) 


最後 に 


一 度 入 っ た 部 屋 で ダイ ヤ が 発見 で どき な く 
Tb, 他 の 部 屋 に 入っ て か ら 再 び 元 の 部 屋 
に 戻る と ダイ ヤ を 発見 で きる 場合 が ある の 
で 根気 よく 探し て み ま し ょ う / BO 


КЕЙТ INT 
“GHP arig Fi Rg92 


AR 
HLT х=й Hindé Hinds 


TH 
HLT х=й 80703 


HinF 
AC Min84 x>F 2 8-16 
1 #16 
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рт: реп?” 
| х=й 50104 


«e 80351625 


Pé 
ARIF + HRI 18% xê 
658Р2 
#1118 HinF КЕ] x=F 80709 
LBLW Hing? 
55BF3 LELE 
=F 60708 МЕВА х= 50709 
Ніле 


+/- x4 60109 


M5 の Tiny 解 析 erspan= 
1)BASIC-| で の リア カレ タイ ムキ ー ス キャ ン に つい て 
PEEK(&702A) t + る Ł [SHIFT] や (CTRL (FUNC| キ ー な どの 値 が 読 
め ま す . 
PEEK(&702B) と する と [Al 一 [| や [一 [| な ど 文 字 キ ー の 値 が 読 
め ま す . 
また だ た, うる る い ク リッ ク 音 を 消す に は , 
POKE&701A,16 と し ます ( 元 の 値 一 144). 


2) サ ウン ド ・ 画 面 関係 に つい て 


M5 の PSG は OUT 命 令 で 直接 コン トロ ー ル で きま す . 


例 : OUT&20, &Е5: OUT&20,&FO0O と する と ホワ イト ・ ノ イズ 発 . 


M5 の GII モー ド で の テキ スト 画面 先頭 アド レス は 名 3800 で す . 

例 : 画面 上 の キャ ラク タ を 読み と る つつ VPEEK(&3800 填 X メ +Y 
* 32) 
STCECHR 人 命令 で スプ ラテ タラ イト > ター シン を セッ ト す る と き さ , 
STCHR 7----” TO n[9 つ 最後 の コン マ 0 は 省略 で き , メモ リ を 
少し で も か せ ご うと する と き 良 いと 思い ます . 

一 言 。 早く マシ ン 語 が 解る よう に な り だ た いよ ォ ーーー/ 


参考 文献 BASIC-I マニ ュ ア ル 「UFO ゲ ー ム 」 


PC-1251 プ ログ ラム 実行 中 
で の 電源 OFF өрі 


プロ グラ ム 中 に , CALL&5999 と 入れ て お け ば , その 部 分 が 実行 
され る と 電源 が OFF に な り , BRKI キ ー を 押す と 電源 が ON に 戻り 
ET. 

な ただし, OFF に な っ て いる と き に , WRA >+ ОЕЕ>ОМ 
に する と 。 プ ログ ラム が 消え て し まう の で 注意 し て くだ さい . 
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プロ 電 ア ド ベ ンチ ャ ー ゲ ー ム BASIC ! АР 


$ 1-8 арос)” 
MR85 х=й 80702 PAUSE 50700 
[814 
і M+IF Нілі8 
$ ЕР 3 ҰҢ9 


ey! 
PAUSE 60708 
LBL3 
- 4 = N! 60706 


Ріо №. НОЛЬ 
を さら に 高速 に өен 


РіО No. 1 ОРІО BOX(p.138) の プロ グラ ム は ムダ が 多 す ぎ ま す 
ЕРЕВАНЕ. 
30 行 一 TO 以下 の TO N/2 を TOSQR (№ に (SQ R(N) =/N) 
60 行 FOR ВЕАЖА ТОМ STEP А 
8017-Е (В) = 1: NEXT 
11041--ТО N に STEP 2 + (А=2) を 加え る . 

も し も , 貴 機 の 理論 式 が 十 1 を 持つ な ら 2 一 (A=2) に し て くだ 
さい (AZ : ? (А=2) TRA). 

これ で 大 変速 く な る は ず で す . 


JR- ら 00 有 解析 記事 она 


JR-200 の ROM 内 ルー チン が 2 つ ほ ど と 分かり まし だ の で お 知ら せ 
ほ ま 3 お: 
ФӨЗЕЗСВ 一 字 廊 キー 入力 

この 番地 コール す る と , $ 1 番地 に キー の 値 が キャ ラク タ ・ 
コー ド で 入り ます . また , $ 2 番地 は 次 の キー 入力 ま て 内 容 を 保 
Вест. 
ӨЗЕБЕ? 一 文字 出力 

A レ ジス タ に キャ ラク タ ・ コ ー ド を 入れ て この 番地 コール す る 
L, 現在 の カー ソル 位置 (これ は 今 だ よく 分 か ら な い ) に , その キ 
ャ ラク タ を PRINT し ます . іг, これ に は ユン トロ ー ル ・ コ ー ド 
DCLS, カー ツル キー な ども 通用 する よう で す . 

この 2 つ は , ヘタ を し て バー ジョ ン が 変わ れ ば 使え な いと いう 
よう な こと は まず な いと 思い ます の で , 誰か これ を 使っ て JR-200 
の アセ ャ ンプ ラ を 作っ て 〈 だ さい ! 
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ЕХ-7О2Р 


BASIC 


野球 ゲー ム 


リア ル ア ニ メッ ク ・ ベ ー ス ボー ル 


この ゲー ム は , FX-702P を 使っ て 野球 を 
シミ ュ レ ーション し た も の で , 今 ま で の 野 
球 ゲ ー ム に 比べ て も 格段 に 面白 い , 野球 ゲ 
ー ム の 決定 版 と いえ る プロ グラ ム で す . 


いる の で , キー イン の と き に は 少し テク 
ニッ ク が 必要 で す . まず リス ト 1 を 入力 し , 
RUN し ます . これ は , 文字 変数 を 入力 する 
も の で , 実行 後 は ゲロ グラ ム を 消去 し , P 
0 か ら リ スト 2 を 大 力 し ます .。 この と き , 
長い 行 は スペ ー ス を [Cl キー で 削り な が ら 入 
Са, 

入力 後 は , テー プ に SAVE ALL と し て お 
OTIS 

リス ト 2 を テー プ に 入れ て し まえ ば, 
(SAVE ALL) リ スト 1 は 必要 あり ませ ん . 

また だ た, リス ト 3 を リス ト 2 の 前 に 入れ て 
お く と , 各 バ バッタ ー の ファ クタ ー を 決め れ 
ば , 自動 的 に 初期 化 さ れ ま す . 

この 後 , LOAD ALL と すれ ば , [FIO] で 
すぐ に ゲー ム が で きま す . 


順 で 行い ます . まず , 各 打 者 の ファ クタ ー 
を 決め ます . ファ クタ ー は 0 一 9 まで の 整 
ЖОС, 小さ い ほ ど 打 率 は 良く な り ま す . < 
れ を 決め た 後 , 

@[F1|[.] を 実行 す る. 

@0, 0[F1|[STAT| を 実行 する . 

の 決め て お いた ファクター を , 先攻 か ら 小 
数 点 以下 2 桁 目 以降 に , 打順 ぼ お り に 入 
HL, 次 に 後 攻 を [| の あと に 、 同様 に 入 
HLT, [STAT| キ ー を 押し て くだ さい . 


例 0.0543124579, 
先攻 の ファ クタ ー 


0.055 2 11 3 5 6 8 [STAT 
1704123456789 


@⑧IF1| [6] で ゲー ム は スタ ー ト し ます 


| 
Е 1K 0-0 | 


この 後 , [CONT| を 押す と, 打順 し ファク 
ター を 表示 し , 投手 の ファ クタ ー を 表示 し 
$3. これ は , 整数 部 分 が 小さ きい ほど 球 が 
速く また 小数 部 分 が 小さ きい ほど コン トロ 
ー ル が 良い こと を 示し ます (毎回 変わ り ま 
Т). 

次 に スコ ア な ど を 次 の よう に 表示 し ます . 


| s=0 в-0 o=o 0-0-0 o 


左 か ら , スト ライ ク 。 ボー ル 。 ア ウト の カ 
ウン ト , 次 に ラン ナー の 状態 (ラン ナー は 
1 で 示さ る れ 。 左 か が ら 35 Др, 
最後 が 得点 を 示し ます . また だ た, この 表示 か 
ら 5 投球 の 間 に サ イン が 送 く れ ま す (後述 ). 


ты, р 5 Ч р. Ч“ 


投球 は | が ボー ル で 右 か ら 左 に 動い て き 


ます . この 球 が 左 か ら 3 番目 の 所 で 変化 し 
て し ば らく ( 約 1 秒 弱 一 ) Fi b ++. Z 
の と き 変 化し た キャ ラク タ と 同じ キー を 押 
Же ЕЕ ОЗІНЕ: 

スト ライ ク , ボー ル は , 角度 モー ド の 位 
置 で 見 分 け ま す . DEG は スト ライ ク , GRA 
は ボー ル , RAD は 難し い ボ ー ル で ある こと 
を 示し ます (これ は 投球 後 , 打撃 の 位置 ま 
で 球 が 来 た と ころ で 変わ り ま す ). 

球 種 は , 円 (スト レー ト ), И (#-—7), 
中 (フォ ー ク ),| 」( スペ ー ス で 魔球 ) の 4 
種 で す . 

また , 打撃 の 際 [ 画 を 押す と バン ト に な り 
ます . 送り バン ト の 他 に 1. 2 番 で は バン 
ト 安 打 も 期待 で きま す 。 ラン ナー 3 RTT 
ント し て 空振り に な る と , 388727 — 
アウ ト に な り ま す . 

以上 が 打撃 で 、 それ ぞ れ に 応じ て ヒッ ト 。 
2937, 外野 (ヒビ フ ト ) 224, 内 野 (1 
m) 254, Мо, ホー ムラ ン , ファ 
ー ル , 空振り と な り ま す . 

打 た な い 場 合 に は , スト ライ ク か ボー ル 
か が 判定 され ます . 


サイ ン は [pg [P], [SID 3 種類 で す . 
[D] : 代打 を 告げ ます . その ファ クタ ー が 表 
жай, その 打席 の 間 は その ファ クタ ー が 
有効 と な り ま す . 次 の 打席 で は 元 に 戻り ま 
Ж. 


P|: 投手 交代 を 告げ ば ます. 次 の 投手 の ファ 
クタ ー が 表示 され ます . 

$]: BOHA lT. 条件 は , 2 DE 
いて いて 1 役 に ラ ン ナ ー が いる と きのみ 有 
MCT. ランナ ー の 打順 が 小さ えい ほど , ж 
功 の 確立 が 高く な り ま す . サイ ン が 出る と 。 
^O・K* と 表示 され ます . 

次 時 の サイ ン を 出し て 打つ と ヒッ ト エ ン 
ドラ ン と な り , 内 野 ゴ ロ の と き の ダ ブル 
レー の 確率 が 減り ます . 

寺 E め よう に で て の 岡 を デブ と れれ し ます: 
у, 勝敗 は 判定 し な い の で 自分 た ち で 決 
め て くだ さい . また だ , 細か い ル ー ル な ど は 
自由 に 決め て くだ さい . 


кщ 


— 


少し 難し いで す が 。 ゼ ぜひ ち ぉ 試し くだ さき さい. 
きっ と 満足 の ゆく 野球 が 楽し め ゅ ます . 私 た 
ちの 間 で も 人 気 が あ り , 大 学 の 授業 中 も ひ 
っ ii ま D28 こ で すこ の だ め に 前 年 だ りり 5 
単位 を 落と し た 者 も いる ほど で す !? 

まだ, も し 難し けれ ば , ブログ ラム の 内 
容 の 一 部 を 変 た て みて くだ さい . SEKO 
1 一 18 ま で に 球 種 が 入っ て いま す . ここ を 
変え る と 変化 球 の 傾向 や 内 容 が 変化 し ます . 

自分 な り に プロ 野球 を 想定 し て 戦う の も 
な か な か 楽し いこ と で す 、 

で きる 限り リア ル に し まし だ た だ が,。 いたら 
な いと ころ は お 許し くだ さい 、. (580) 
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жә PRG LIST 
YAR: 26 PRG: 1688 
РЁ: 183 STEPS 
18 {=”---/ defi, 
pa BASE HIT 


28 F$="BATTER” 
3ê Ме” OUT I 


48 U$="RUHHER" 
58 үде i" 
68 РЕТ 70. !" 


| |) X ト 3 | 


+++ PRG LIST 
VAR: 26 РЕБ: 1688 
PB: 172 STEPS 


НКО 5:656 188: 
(-8 


11858 188:0=B 


AT CD 
48 PRT "HLL RISHT 
НЕ 


ТОВ 1%: 6=8 


РЯ 
128 B=ñz181(1+1)+B: 


NEXT І 
138 РЕТ Б? 0. 2”: 
STOP RET 


+++ YAR LIST 
VAR: 26 PRE: 1688 


rr Еш» с” гул 209 
и мен Шен 
С Сш Cr OK СК 


18 HAIT i@:PRT "SE 


28 РЕТ "АТО ZEHE ” 
$8 SAC DEL #,8:51 


188 РЕТ BATTER FAC 


118 FOR に 1 Tü SPF 
ТАРВЯ "ИН 


リス ト 3 


F$ 


+++ PRG LIST 
ЧАВ: 26 РЕВ: 1688 


FRAC (СНТ/2)=8; 

D=SY 

3 H=FRAC Ds18:D=1 
НТ D:PRT CHT/2+ 
17K; INT 597 
2 НТ SY:STOP : 
555 #9 

5 RRAN PRT "P 
IT£HER="”:#, EHR 

é PRT fS: 
8 02707 
ne fîz | Fz; 
KHED 

1 (=: егі КЕН 
ТЕ R$ IF КЕ 
IF L=B;U=2:PR 
T 70, ЕРІ ЕНЕ 

8 IF Я$=7Р°: =н 
#*5:РЕТ NERT 7 
15070 5 

18 НЕВА: E=S0R 
RANEE (+Y) 

12 B=PRR08212:IF B$ 

2p; Y=INT (RAN 

ӘЗІРЕТ б 


14 ЕНИН, 1: 
AIT КАМНЮ: 
FOR 1=8 TÛ 4:PR 
TCSR N 


EXT I 

16 KODE Б/4+41РЕТ 
CSR 22$ 

18 HAIT 9:FOR 158 
Tü НЕЕ 
A=” NEXT J:60 
Т0 38 

22 H Ң5-2% THEN 5 

24 ТЕ АВ” THEN 
54 


28 РЕТ "ВАНТ °;:Н= 
ӘЖЕННІР Hy4:G 


| SB ШТІРЕТ V$:5= 


S+1:B0TO 42 
32 IF Hz(1-LOS | ж 
. HIR: 
#1:60Т0 42 
54 K=RANŞESOR 2:E= 
HRANE: GOTO 54 
56 8070 42 
$8 PRT CSR 8;:IF 6 
{T-FRAC RiS=S+Í 
:PRT "STRIKE 
118010 41 
48 PRT "2,.BBLL":IB 
=В+]:1Р ЕМІРТ 
CSR 8;4:558 68 
:BSB #9:С=1 
41 IF C=2:85B #5 
42 IF Sigii] 
44 i. ÜsP;PRT FE 


45 IF 033 ТЕН 

46 IF HEPiBSB #9 

58 80706 

52 IF EE 幸明 所 お 
SE #Ї1+ЕҢН##2:5й 
10 42 

54 IF RANÄAEZGOR 3 
:1=4:658 73:601 


042 
56 РЕТ "KRRRBURI": 


бб 
МЕНТІ 
110 42 
58 ЕСН ВЕ: 
=8:658 #4:РЕТ U 
Фоп SI 
59 5070 42 
ТВЕН 上 に 本 = 
KiKiRET 
62 IF Ее Ке НРЕТ 
64 ВОВ #4:К=1:КЕТ 
18 STAT 8, Я: =Б+Н/ 


18 

ТІР FRAC (CNT/2) 
єр FRAC SX; 
@:5ТЕТ D-INT 5% 
‚В: 8010 2 

Т2 DEL B.FRRC 51:5 
TAT 8,D-INT SW 
8070 2 

75 0=0+1:1Е РАНК, 
2 THEN 94 

77 658 ШІРЕТ IHT 
(ВАН): 
КЕШІР 02358 


Е 
88 IF Ei THEN 86 
82 IF Hti IF KB 
НЕ ЁЙНК.5: РАТ 
U” СТОР”: ВЕТ 


84 ТЕ К=1:1Е РАНК 


.9 ТНЕН 88 

86 5070 #4 

88 IF ЕРІНІ ,5365 
B š4:L=ü:K=l:PR 
T IST ШЕШН 
Рей: 6070.49 

98 =0HIIIF 042566 
B #4:1=й 

92 PRT DOUBLE PLA 
RET 

94 656 #6:РЕТ "15T 
РЫУ”: 0=0+6-1:К 
=К-С+1 

95 RET 


Рі: 227 STEPS 
2 IF FRAC (1/33-0 


THEN 18 

4 IF жетік? 
F #=2 THEN 28 

6 BSE 町 FRT НІК 
26): Ñ=C+8sRRHE: 
= LEH O HU 


18 J=RRN8*4+7:65B 
#6:PRT "LEFT FL 
=H 

ШІРІМЗІР бе! 
F EPRT "ТЩ 
H ЦР: рер: Мй 

18 ВЕТ 

26 IF ЕНІН 1 
1:658 #7:РЕТ ЇЇ 
0119}: Н=2+2%ВЯН 
$:658 #4:1=1:60 
1049 

22 =16:558 IPT 

HORE RUHI”:H= 
4:85B B4:D=D+1: 
5070 #9 


н PRT yi TF 
50035258 
4 RET 


På: 42 STEPS 
2 FOR 1=1 TÜ B:D= 
рай: КЕ 
НЕТ Г:Н=Н:1= 
tiiRET 


Ро: 98 STEPS 
$ РЕТ STEEL- 9:1 
F RAN ESOR LN T 
Вин. 4:РЕТ "SR 
FE 191-і: е Е 


ET 
5 РЕТ ІШ 0-01 
“КейіРей [F 025 


I= Tü J+: 
ЁО: НЕХТ HR 


Рт: 36 STEPS 
2 BSR W6:FOR I=I- 
1 10 Jr (5 
БЕЗ LERET 


P8: 29 STEPS 
2 PRT CSR PC 
SR ІР ЕК1 
naa " Т 


P9: 78 STEPS 

18 Р=0:В=:9=8: =H 
tiEIF ірі 
9 

28 Y=INT (FRAC (He 
(МІН (H-1))#1 
8)iPRT НЕРІН 
T HPE 

кө VAR LIST 


ФАР: 26 РЕБ: 1698 


иинииииииини 


ЭСЕ ое ас тары ра SED ARNT 
un un 


wr 
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TET 


ここ は 50 階 立て の ビル が 立ち 並ぶ ビル 街 . 


そこ を 歩い て いる あな た と 友人 . 突然 友人 
が 『「 な ぜ あ な た は ビル に 登る の か 』」 と た ず 
ね て きま し た . あな た は つい 「 そ こ に ビル 
が ある か ら さ 』 と 答え て し まい まし た . と 


SHIFT O 


DUBRA’ は な ぜ か 3 人 いま す . きら に 
3 万 点 を 越え を る と も う 1 人 増え ます . 

遊び 方 は 簡単 で , ビル の 窓 に 気 を つけ な が 
らい くつ か の キー で あな た を 操り 50 階 まで 
2,47, だ だ これ だ け の ゲー АС. = 
LT, 50 階 登り きる と 5,000X 面 数 の 点 だ け 
ボー ナス が も ら え ます . 

この よう な こと を , あ な た が 1 人 も いな く 


な る まで 続け ます . 


この ゲー ム の 注意 と し て は 。 1 つめ に ゲ 
ー ム が 始ま っ て か ら キ ー を な に も 押さ な い 
で いる と, 窓 か ら 手 を すべ ら せ て 落ち て し ま 
うと いう こと と ,。 2 つめ に 上 に 登る キー を 
押し て も すぐ に は 画面 が 変わ ら な いと いう 
こと で す . 2 つめ の よう な 現象 が 起こ る 理 


由 は , キー を 押し て か ら 画 面 を 変え て いる た 


めで す . 


この ゲー ム が 難 か し いと いう 人 は 13 行 の 
FOR 一 TO の 値 を 大 きく し て くだ さい . や き 
し いと いう 人 は を その 値 を 小さ くし て くだ さき 
с. それ と , この ゲー ム は 10 面 を クリ ア 
ーー すると, まだ 1 面 と 同じ レヒ ベル に な り ま 
ж. 

PB ユー ザー の みな さん PB で も これ だ け 
の ゲー ム が で きる の で す . で すか ら あ な た 
の PB を 見 捨て な いで プロ グラ ム を 投稿 し ま 
2%; 

Фа =á 

1) I/O, "81 年 12 月 号 。 工学 社 

2) 1/0, "82 年 1 H Z, 工学 社 

3) 1/O, "83 年 ЗН, 工学 社 

4) バカ シオ パン コン 総合 ライ プラ リー 

[2]”, 技術 評論 社 
5) パパ ソン ュ ン お も し ろ ゲ ー ム П], [2], [3] ” 

産 報 出 版 


6) 塚越 一 雄 , 平 山 正章 : “カシ オッ ソコ ン 
НЕ", FY АҢ 
7) Тһе BASIC 83% 9 HZ, 技術 評論 社 


1 画面 に つい て 


図 2 キー 操作 に つい て 


S t 7 
и Іш g 
и. 


図 3 キャ ラク タ に つい て 


я = [ ビル 画面 mu Am ия | 


нн) ИИА 


カー ツル 012345678 901 


-htt 

!… 花 びん (当たる と 一 50X 面 数 ) 

\… ボ ー ナ ス ( 拾 うと 100 一 900) 
ビル の 窓 3 

口 … そ の 場 も 上 も あい て いる 

#… 上 が 閉まっ て いる 

較 … そ の 場 が 閉まっ て いる 

ー… そ の 場 も 上 も 閉まっ て いる 


表 1 変数 表 


ビル キャ ラク タ 文 字 列 
キャ ラク タ 読 み 出 し 
MID 用 

ルー プ 

SCORE 

ROUND 

残り 人 数 

階数 

HI-SCORE 
HI-ROUND 
НІ-МАМЕ 

KEY 関数 用 

全 カ ー ソ ル 

登っ た か どう か 
乱数 発生 用 

増え た か どう か 
KEY ルー プ 

%--2 

ビル 内 容 


= жө 
<г ROT ОО ШЕ 


ovoz 


57 
р 


18 МЕТ С 
11 PRINT CSR ЯШ; 

ЗЕГЕ 
12 PRINT CSR 1; °4" 


Ы 8 | 4 ЕЕЕНИЕ E29jE= 
9 
Pñ PRINT "ROUND";E 
1 PRINT "#PB-CLIN SFOR С=0 Tü 30 
BERK" “НЕТ C:PPINT 
2 PRINT “HI-SCORE 6 50508 24 
"Н, “ROUND: D" Т PRINT CSR 9:6; 
МАМЕ *; 1$ 8 FOR C=9 Т0 19-Е 
3 Е=й:Е=3:6=й:0=8 51 
| :L=9: = || 9 PRINT CSR С; "4" 


IF K$>"9" THEN | 
17 


сл 


16 505UB yñL(K$)*1 
3:6070 20 

17 HERT P 

18 PRINT :PRINT "K 
EY OVER": 

19 5070 120 1 

20 IF 0=031Е 05308 || 261 
әрен | 5 


15 FOR Р-й TO 11-Е 
:K$=KEY 

14 IF K$<"4" THEN 

17 


) 
F N259+Ez,55B= 
:8070 52 
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27 iF M52-E; 8948 
010 52 

28 IF B>5B-E;B=4:6 
070 32 

29 IF Ny43-E:B=3:D 


D+INT (RHN#941 
)*1B0:U$(L;="a" 
44 IF О) = ІЙ 


D-530*ËE:U$CL)="0 


[=й 
ТНЕН 11 


ТУЛЕ U$(L)="8" TH 
EH 120 


Рю 


PB-CLIMBER BASIC リ スト 


ЕҢ 120 


94 RETURN 
119 PRINT PRINT "R 
OUND":E; "CLEAR" 
, "BONUS": 5080ж- 
111 б=й:)=р+2йййжЕ: 
LWPRIHT “SCOR 
ЕИ РОВ Р-й Т0 
29:NEKT P:PRIN 


112 0070 4 

128 F=F-1:IF Fey TH 
EN 150 

121 PRINT PRINT "K 
iLL 1is,"SCORE" 
FOR ғ-й TÜ 


28:НЕХТ P:PRINT 


151 PRINT "SCORE":D 

132 ТЕ ФЕН THEN 135 

133 PRINT "YOU HRE 
HIGH" 

134 H=D:I=E:IBPUT " 
МАМЕ СМЯХ З? J$: 
ІР LEN(J$))3 TH 
EN 154 
KEKEYFRINT CS 
Я В: PUSH ANY К 
EY" IIF K$#==" T 
ВЕН 155 
FRIHT GOTO 1 


010 32 45 RETURN 74 ТЕ YEO =a ТН 

ЗВ IF N)27-E;8=2:6 || SA H=3:RETURN ЕН 128 
010 32 68 Мей ігі БІРІ» 15 RETURN 

51 B=1 5ңіз5 39 М=1:5=6+1 

Е | 51 IF USSF TH 81 IF U$(L)="#" TH T 
1D(B,1) ЕН 120 ЕН 12 

КЕМІ 62 ТЕ U$(L)="=“ TH 82 IF 6250 THEN 11 

34 HERT È ЕН 128 ñ 

35 RETURN ö3 IF а) == 33 RETURH 

49 =й =ЕНИЕ К D+INT (PHN#*911 ИНЕМ 
B;L=B ESE EHIS CAE h 2ТЕ 15759125 

41 IF U$(L)="8" TH || 64 ІРІН(4- 0) 91 IF 5250 THEN 11 
EH 120 D-5B*E:U$(L )="U ñ 

42 IF UFO ==" TH ' 92 IF Н )= TH 
ЕҢ 120 63 RETURN ЕН 129 


43 IF КОЧЕ | 


あな た は ター ボ エ ン ジン を 搭載 し た トラ 
クタ ー を 操作 し て , と に か く 速 く 走り 回 っ 
E CIEE 


ルー ル 


全 コ ー ス は 4 つの プロ ッ ク か ら な っ て い 
га БА 
O {XEF (M1) 

前 後 か ら 走 っ て くる トラ クタ ー そ 車 な ど 
を 人 放 け な が ら 走 行 し , 途中 の 農協 に 寄っ て 
ポイ ント を 得 ま す . 

@ ぁ ぜ 道 走行 ( 図 2) 

いわ ゆる ダー トコ ー ス で , 道 に 落ち て い 
る 石 や 水たまり を さけ な が ら 走 行 し , 途中 
に 落ち て いる 米 依 を 拾っ て ポイ ント を 得 ま 
す . 
水田 走行 ( 図 2 ) 

他人 の 水田 を 走り 回 り ま す . た だ し 苗 を 
踏む と 減点 され ます . また , 水田 の 中 に い 
る お 百姓 さん の 投げ る 石 に ボ つ か る と リタ 
КУЕ ЗО #3; 

@ 広 域 農道 走行 ( 図 4 ) 

この 違法 ラテ リー を 聞き つけ た お まわ りき 
ん が , あちこち に 仕掛 け を し て いる の で そ 
れ を 避け な が ら 走 行 し ます . そし て , パト 
カー に 後ろ か ら 追 突 さ せ て ポイ ント を 得 ま 
ае 


| 7A М=|:{=1-11б=6+1 


93 IF Ізет ТН 


Ы; 


ШІ バイ バス 走行 


п2424292% 
г emem 


122 5070 5 
128 PRINT :PRINT 7 
BANE 


бүр" 


… 水 た まり ү UNE 


登 上 キャ ラク タ 


zu bo bua, - 


登 上 キャ ラク タ 


全体 を 通じ て 


以上 の 4 コー ス を 走り ぬい て ゴー ル し た 
と き の 得 点 で ゲー ム を 競い 合い ます . 


また , トラ クタ ー は 走る と 軽油 が な く な 
る の で , スタ ンド に 寄る か 道端 に 落ち て い 
る 軽油 カン を 拾っ て 軽油 の 補給 を し ます . 
軽油 が 0 に な る と リタ イア と な り ま す . 


図 4 広域 農道 走行 


登 上 キャ ラク タ 


[> Ф.у NI バリケード 


きら に , ト ラク ター が 物 に ぶつ か る と , ス ピ 
ー ド に し た が っ て ダメ ー ジ を うけ ます . 


全体 に 出 て くる キャ ラク タ 


71 егер 4 4 B … 軽 油 の 入っ た カン 
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PC-600 1 mk II 


モニ タ ・ あ ら か る と + ご 


PC-6001mkII モ ニタ の 解析 / メ モリ ・ コ ント ロー ラ の 使い 方 


ШРОР CORN/COMPAC 


PC-6001mkII 専 用 の プロ グラ ム の 登 稿 が 
まだ ほとん ど な く , PC-6001mkII の ユー ザ 


ー は Neo-BASIC モ ー ド で し か 楽し め な いと 


いう 現状 を みか ね て , こ こ に POP CORN 氏 
が 調べ られ た PC-6001mkII の 資料 を 公開 し 


EZI- HONDE 


CECECECECA 


ФЕЯОРЕЕКУ 


ССС ССС ССС 


PC-6001mkII は , 64K の RAM を 装備 し て い 
$3. 前 半 32K は BASIC ROM の 裏 RAM で す 
が , 画面 や ユー ザー エリ ア と し て 利用 で きま す . 
Neom-BASIC (モー ド 5) ФРЕЕКХ > 


ニタ の コマ ド は , この 裏 RAM を 読み 込み ます . 


一 方 , モー ド 5 以外 の PEEK 文 は ROM を 
読み 込み . 裏 RAM は 読め ま ょ せん. し か も , 
6000H 一 7FFFH 番 地 は 拡張 ROM に な っ て 
いま す . 

し た が っ て , 2 種類 の PEEK 文 が あり な 
が ら , PEBEK 文 で モー ニタ の 内 容 を 見 る こと 
が で きま せん . で も ,BASIC が だ め な ら , 
機械 語 が あり ます . 

モー ド 5 で, 機械 語 プ ログ ラム を 利用 す 
る Е, ROM の 全 領域 が の ぞ け ます . マニ ュ 
アル の 応用 ゲロ グラ ム を 応用 し , USR 関数 
で PEEK 文 の 代用 品 を 作っ て み ま し た . U 
スト は これ を 使っ た 逆 ア セン プラ で , モニ 
タ を の ぞ く こ と が で きま す . 


(С3-С-3-С3-С3-С3-С3-С-3-С-3-С-3-С3-С3-СЭ-СЗ-СЭ-С3-СЗ-СЗ- 


モニ タ に つい て 


[эк ош аш аш аш ош шш аш аш шш ош эш иш вш шн шш шш] 
モニ タ 処 理 の アド レス は , 75C3H 番 地 か 
ら 始 まり ます . モニ タ の 各 コ マン ド 処 理 の 
アド レス は , 家 1 の よう に な っ て いま す . 
な か な か 盛り だ くさ ん の モニ タ で す が 、 
気付 いた 点 を いく つか 紹介 し ます . 


メモ リ 読 み 込み と バン ク 切 り 換 え 
О, $, M 等 の コマ ンド で , メモ リ を 読み 
込む と き に バン ク 切 り 換え を 行ない ます . 
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#9. 

PC-6001mkII の ユー ザー の 皆さん , この 
資料 を 大 い に 活 用 し て PC-6001mkII 専用 ソ 
フト を どん どん 作っ て くだ さい . (№) 


ШРОР CORN 


モニ タ ・ ス ター ト アド レス 
ERROR !? 表示 
READY 表 示 , コマ ンド 入力 
ジャ ンプ アド レス ・ テ ー プ ブル 
? コマ ンド 

S (セッ ト ・ メ モリ ) 

G (ゴー) 
(チェ ンジ ・ メ モリ ) 
(ダン プ ・ メ モリ ) 

コマ ンド 
(フィ ル ・ メ モリ ) 
(ムー プ ・ メ モリ ) 
(ライ ト ・ テ ー ブ ) 
(リー ド ・ テ ー ブ ) 
(パン チャ マゲ データ) 
(ロー ド ・ デ ー タ ) 
(エコ ー ス イッ チ ) 
(プリ ンタ ・ ス イッ チ ) 


ON TD NEE поо х 


FDOEH の デー タ の 6 ビッ ト が 1 なら, ポー 
ト FOH に DDH を 出力 し 裏 RAM が 選択 され 
£. 

ボー ト FOH に DDH を 出力 する バン ク 切 b 
換え は , モー ド 5 の PEEK 文 で も 同じ で す . 
まだ た だ, モー ド 5 の ROM へ の 切り 換え は , ж 
ー ト FOH に 11H を 出力 ます . 

POKE 文 な どの メモ リ へ の 書き 込み は , 
常に RAM 上 に な きる きれ ま す . 


G コ マン ド の 周辺 

G コ マン ド に は , バン ク 切 り 換 え が あ り 
ませ ん . 裏 RAM 上 の プロ グラ ム を 実行 する 
СВ, バン ク を 切り 換え る 必要 が あり ます . 
きも な いと ,ROM 上 の プロ グラ ム を 実行 し 
š+. 

G コ マン ド の プレ イク は , RST 38H を 使 
っ て ソフ ト 的 に 行なっ て いま す . し た が っ 
T, 裏 RAM 上 で は 使え ませ ん . 


自作 プロ グラ ム か ら モ ニタ へ の 復帰 に は , 
RST 38H を 利用 する と 便利 で す . 無事 に モ 
ニタ に 復帰 し , X コ マン ド て 実行 後 の レ ジ 
スタ 内 容 が チェ ッ ク で きま す . 


ちょ っ と 不満 な WwW コマ ンド 

W コ マン ド と P ロ コマ ンド は 同じ も の で す . 
FDOEH 番 地 の デ ー タ の 3 ビッ ト が 1 なら, 
W コ ユマ ンド を 実行 し 。 0 な ら P ピ コマ ンド を 
実行 し ます . 

この コマ ンド に も ,。 バン ク 切 り 換 え が あ 
り ま せん . 裏 RAM の ユー ザー エリ ア の デー 
жж ch ト テー クジ する こと も 、 >” 
・ デ ー タ する こと も で きま せん . 裏 RAM の 
画面 デ ゲー タ は , フロ ッ ピ ー デ ィ ス ク で 記録 
せよ と の こと で し ょ うか . これ は 不満 の 残 
る コマ ンド で す . 


バグ 気味 の R コ マン ド 

R コ マン ド も や は り し コマ ンド と 同じ も 
DT. FDOEH の デー タ ・ モ ッ ト 以 外 は , 
同じ アゲ アロ グラ ム ・ エ リア で 処理 され ます . 

R コ ユマ ンド は 裏 RAM 上 に も リー ド で きま 
+. 問題 は オフ モッ ト の 処理 に あり ます . 
つま り , オフ セット 値 を 加算 し た 結果 , 
УРОН. 5 
ПОВ А X Әт 
ドレ ス に は ロー ド で きま せん . これ は バグ 
に 近い も の で は な いで し ょ うか ? 


ж 


BASIC に よる モニ タ ・ コ マン ド の 実行 
モニ タ の 各 コ マン ド は G コ マン ド を の ぞ 
OT, みな RET 命 令 で 処理 を 終え て いま す . 
これ を 利用 する と , BASIC の EXEC で 実行 
で きる よう に 改良 で どき ます. 
例 
1.EXEC て 実行 する R コ マン ド ・ プ ログ ラム 
LD A, 49H 
LD (OFDOEH), А 
LD НІ, ХХХХН 
PUSH НІ, 
JP ТАҒӘН 
.EXEC で 実行 する M コ マン ド ・ プ ログ ラム 
LD A, 41H 
LD (OFDOEH), A 
LD HL, 0B000H 
LD ВС, 0BFFFH 
LD DE, 6000H 
JP 78FFH 


オフ ャ ッ ト 値 


* こ れ は B000H 一 
BFFFH の 内 容 を 
6000H 番 地 へ 移す 
プロ ョ グラ ム で キキ 


Ріо 


マニ ュ ア ル に な い コ マン ド 
マニ ュ テ ル に 挙げ で ない コマ ンド に 。 7 
コマ ンド と EQ コ マン ド が あり ます . 

? コマ ンド を 実行 する と , エラ ー 表 示 に 
な り ま す . し か し 。 こ の コマ ンド を 実行 す 
る と ,FDOEH の デー タ の 6 ビッ ト の 値 が 反 
転 し ます . 

6 ビッ ト の 値 が 0 の と き は , メモ リ の 読 
み 取 り に は ROM が 選択 きれ ます . つま り , 
ROM と 裏 RAM の バン タク 切 
り 換 え の ス イッ チ の 役目 を し て いま す . 

Q コ マン ド は , 書式 び が D コ マン ド と 同じ 
で す . 指定 され た メモ リ の 内 容 を キャ ラク 
タ で 表示 し ます . た だ だ し 表示 され る キャ ラ 
クタ は 20H 一 9BH ま で で す . それ 以外 の コ 
| аат tt š ЖӨ 

特殊 キャ ラク タ は と も か く , 他 の すべ て 
の キャ ラク タ が 表示 で き な い だ た だめ, バグ あ 
が を し だ の で も よう か со 
の チェ ッ ク に は 使え ます . た と えば 。 а 
FB3D, FB8D[RETURN| を 実行 する と , フ ァ 
ンク ショ ン ・ キ ー の 内 容 が 表示 る れ ま す . 
Гак = mr ан сан банк = С н он = mr = GE ан а ан ear а r Ба О 
Tah ei 
کد ا‎ 

32K の ROM の 内 容 は , ポー ト FOH の デー 
2 а b £u Һа. ЕМ 4 es 
ッ ト と 下位 4 ビット の 組み 合わ せ に よっ て 。 
る ま ざ ま な 領域 の ROM が 8K ご と に 組み 合 
わる れ ま す . さらに ポー ト C2H, C3H の デ 
ー タ で , 漢字 ROM や 音声 ROM が 選択 され 
ESKI 

通常 。 ポート FOH (メモ リー コン 
ラ の レジ スタ に つなが っ て いる ) са, ж 
モー ド で 次 の よう な 値 が 入っ て いま す . 


? コマンド は , 


pi 


Ме ЗВАО атг" ТІН 
Neo - 拡 張 BASIC……… A1H 
Nio- BASIC... a. a... 11H 


た と えば これ を 利用 し て , Neo- 拡 張 BAS 
IC モ ー ド , OUT&HFO, &H11| RETURN | を 
実行 する と PEEK 文 で 32K ROM の 全 領 域 
を 読む こと が で きま す .。 まだ た モニ タ の サ デ 
ШЫ ЗЕТІН ЫС Е ЫС а чк ЫР 

ROM は 8K ご と に 設定 され ます が , RAM 
は 16K ご と に し か 設定 で きま せん .。 た と え 
Ж, Neo-BASIC モ ー ド で , OUT &HFO,&HD 
1 | RETURN | を 実行 する L, 4000H 一 7FFF 
H 番 地 が RAM と し て 使え ます . 

ŠT, ROM だ け 読 め ゆる PEEK 文 ВАМ 
だ び け 読め る PEEK 文 , この 2 種類 の PEEK 
文 の 問題 に 戻り まし ょ う . 210215, 2 種 
類 の PEEK 文 の 処理 アド レス が 異な る こと 
に 起因 し て いま す . Neo-BASIC モ ー ド は 0 
DF3H 番 地 , Neo。-BASIC モ ー ド は 6286H 番 


BE アセン プラ BASIC 


DISABSENBLER for М№ӧт-ВАЗІС 
ver1.@ by POP.CORN ”85.8.4 


CLEAR1000, &HAFFF 
POKE&HFAEB, Өз РОКЕ&НЕ AEC, &HBO 

FOR I=tHB@Q@ ТО &HBoo 昌 

READ АФіРОКЕ I, VAL ("&H"+A®) 1МЕХТ 1 
рата ср, 41,07,14,47, AF, C3, 16, 0D 
DIM М8(07),КБ%(9),Р%(5),С%(7) 

FOR 1=0 TO67:READ A%:N$(I)=A%:NEXTI 
FOR 1«д ТО 9:READ A$ıR$(1)=A$:NEXTI 


地 で す . それ ぞ れ の 初期 設定 で 、 異な っ た 
アド レス が 設定 きれ る の で す . 
試し に Neon-BASIC モー ド で , POKE & 
НҒВОЗ, &HF3 : POKE &HFBO4, & HOD 
[RETURN] | と アド レス を 書き 換え る と , РЕ 
EK 文 で ROM が 読む こと が て で きま す . 


a a mum MM Бан бах ан = EK сан сок ои anr = or = um | 


逆 ア セン ブラ の 
使用 法 


ССС ССС 95 959-859-045 3-С 9-9 

この 逆 ア モン プラ は , Neo。-BASIC の ROM 
を 読む た め に 即席 で 作っ た も の で す . 機能 , 
効率 と も に , まだ 改良 の 余地 が あり ます . 

表示 開始 の アド レス は 16 進 数 で 入力 し て 
くだ きい . 一 画面 分 を 表示 する と キー 入力 
待ち に な り ま す . キー の 入力 で 次 
の 画面 が 表示 され ます .[RETURN | キー の 入 
カカ で アド レス の 入力 に 戻り ます . 

アド レス 入力 の 際 に [RETURN | キー の み 
を 入力 する と , 最初 に 設定 し た アド レス か 


1 文字 表示 

1 文字 表示 

CR/LF 出 力 

文字 列 の 表示 

A レ ジス タ の 
内 容 を 表示 

HL レジ スタ の 
内 容 を 表示 


1ХтАт 


зау» . й 


ら 再 び 表 示 を 繰り 返し ます . 

今 の と ころ バグ は な いよ う で す が 。 完全 
な 保障 は で きま せん . 必要 な ら ば , 自分 に 
合っ た 使い や すい プロ グラ ム に 改良 し て く 
а, 


表 2 FCOEH の 内 容 


ЕЕ C コ マン ド で 切り 換え 
ON 0=CRT OFF 


RS-232C 送 信 
1 三 送 信 ON 


0 送信 OFF 


RSIS 
1 三 受信 | 0 受信 OFF 


カセ ッ ト , Вз: -232C 切り 換え 
1-Н5-232С 0 ニカ セッ ト ・ テ ー プ ブ 


エコ ー ス イッ チ . EE コマ ンド で 切り 換え 
1-ЕСНО ОМ 0=ЕСНО OFF 


056 раа C コ マン ド で 切り 換え 
т ON 0= PLOT OFF 


RAM 切 り 換 え ス イッ チ . 0 コマ ンド で 切り 換え 
1 三 切り 換え ON 三 切り 換え OFF 


C レ ジス タ に 文字 コー ド を 入れ て 使用 

この CALL 命 令 の 次 に 置か れ た 文字 コー ド を 表示 

CR/LF を 出力 し て 改行 を 行なう 

HL レジ スタ に 文字 列 の 先頭 アド レス を 入れ る と 0 が ある ま て 表示 
A レ ジス タ の バイ ナリ ・ コ ー ド を HEX コ ー ド に 変換 し て 表示 


HL レジ スタ の バイ ナリ ・ コ ー ド を HEX コ ー ド に 変換 し て 表示 


キー が 入力 され る と A レ ジス タ に 文字 コー ド が セッ ト さ れる 


ез 8 


HL, DE 
Тау? 


文字 コー ド ・ 
チ 


小 一 大 文字 変換 


ЗЕР ен. 


HL レジ スタ の 内 容 か ら DE レ ジス タ の 内 容 を 引く . フラ グ の み 変 化 
HL>DE な ら NC, HL ミ DE な ら C 

A レ ジス タ の 内 容 を チェ ッ ク し ます 

ェ ッ ク 00, 20, 2C な ら Z, その 他 は NZ 

0D な ら C, その 他 な ら NC 

A レ ジス タ の 文字 コー ド が 英 小娘 字 な ら 大 文字 に 変換 


裏 RAM バ ンク 
ROM バ ンク 

換え る 
メモ リ ・ リ ー ド 


ポー ト F0H に DDH を 出力 し , 0000Hー7FFFH 番 地 を RAM に 切り 換え る 
ポー ト F0H に FE64H の デー タ を 出力 し , 0000Hー7FFFH 番 地 を ROM に 切り 


HL レジ スタ で 示さ れる メモ リ の 内 容 を A レ ジス タ に 読み 込む 、FDOEH の 値 
に よっ て は バン ク 切 り 換え に よっ て , 裏 RAM の メモ リ を 読み 込む 


а) モニ タ て 使わ れ て いる 表示 関係 の サ プ ル ー チ ン は , FDOEH の 値 に よっ て 出力 テバ イス が 異な り ま す . 


表 4-1 逆 ア セン プラ ・ プ ログ ラム 行 番号 マッ プ 


初期 設定 
各種 サブ ルーチン 
表示 開始 アド レス 入力 
コー ド 解 析 ベ クト ル 
表示 制御 


CBH コ ー ド 処理 
EDH コ ー ド 処理 
00H 一 3FH コ ー ド 処理 
40Hー7FH コ ー ド 処理 
80HーBFH コ ー ド 処理 
COHーFFH コ ー ド 処理 


注 )1000Hー2000H 代 が メイ ン ・ ル ー プ に な る 。 


FOR I=@ ТО S:READ А%:Р% (1) «А9: МЕХТІ 
FOR I=@ ТО 7』READ A$ıC$ (1) =А%: МЕХТІ 
DATA ADD, ADC, SUB, SBC, AND, XOR, OR, СР 
рата RLC, RRC, RL, RR, SLA, SRA, ???7, SRL 
DATA LD, віт, РЕЗ, SET, INC, DEC, POP, PUSH 
DATA LDI,CPI,INI,OUTI,LDD, CPD, IND, OU 


DATA RLCA, RRCA, RLA, RRA, DAA, CPL, SCF, С 


DATA CALL, JP, JR, DINZ, ВЕТ, RST, EX, IM 
DATA NOP, ОТ, ЕТ, ЕХХ, HALT, NEG, RLD, RRD 
DATA RETN,RETI, OUT, IN 


表 4-2 アセ ンプ ラ ・ プ ログ ラム 変数 リス ト 


ニモ ニッ ク 

8 ビッ ト ・ レ ジス タ 
16 ビ ピット ・ レ ジス タ 
デシ ョ ンジ = フラグ 
コー ド 読 み 取り アド レス 


表示 アド レス 

ペラ ンド > データ 

すす ペコ ー ド データ 

オペ コー ド , 上 位 4 ビ ッ ト の 値 
オペ コー ド , 下位 4 ビッ ト の 値 
イン デック ス ・ フ ラッ グ 


ӘЛ... Td 


28% рата LDIR,CPIR, INIR, OTIR, LDDR, CPDR, I 
NDR, ОТОВ 

300 DATA B,C,D,E,H,L, (HL) ,A, (IX+, (IY+ 
519 DATA ВС, ОЕ, НЫ, SP, ІХ, ІҮ 

320 DATA М2,2,МС,С,РО,РЕ,Р,М 

490 CLSı CONSOLE 0,20,0,0 

420 PRINT"**** DISASSEM for N&0m-BASIC + 
+++" 

430 80Т01000 

500 D=USR (РС) ıPC=PC+11AS=RIGHTS ("O"+HEXS 
(D) ,2) 1CD$=CD$+" "+А%1: RETURN 

550 GOSUBSOO: L=D-INT (D/16) #161H=LrIF Н>7, 


165 


412, 


逆 ア セン プラ BASIC リス ト 


о GOSUB500:A$="th"+A%rRETURN 
GOSUBSÓG: B$=A$ 1 GOSUB6OO: AS=A$1 Lsi КЕТ 


AS=RIGHTS ("O00" +HEX® i) , 4) + RETURN 
N= RETURN 
ОРФәРӨ(ІМІ (р; 16) +C) 1 RETURN 
A=INI (b/d) 
OF$=h $ (АЖС): IF C=0 THEN RETURN 
6050В600:0Р9-0Р%%06%") "1 RETURN 
B$=INFEY$: IF B$="" THEN?50 
RETURN 
Aga" 
6050В950:ІҒ ВФ=СНКФ (13) THEN RETURN 
PRINT B$} : А%=А%+6%: 5010989 
1909 PRINT"Address="§ : 60518970: PRINT: IF 
A$="" THEN FC=W: 60101020 
1910 PC=VAL ("&H"+RIGHTS (“"O00"+A%, 4)) 
1020 W=PC 
1500 Ар=РС: Сёз ОР 
1510 GOSUBSSO 
1520 IF D=&HDD THEN C=2:GOTO1510 
1550 IF D=&HFD THEN С-2:60701519 
1540 IF D=&HCB THEN 605185900; 60702000 
1550 IF D=&HED THEN 6905484006: GUTU2G99 
1560 ON INT(D/64)+1 GOSUBSOOO, 6000, 7000, 
водо 
2000 A=AD:GOSUB70Q:PRINT АФ} СЮФ І ТАВ (17) у 
№ (N) 1 TAB (22) :0Р% 
2019 SL=SL+1:IF 51 <19 ТНЕМ! 500 
2050 81 «0:10050В950іРКІМТІІҒ B%=CHR%(13) 
THEN1 o00 
2040 GOTO1 500 
3000 IF C<20 THEN BUSUB6O の Ii OPS =A9 +") " 
5010 GOSUBSSO: IF D>&HSF ТНЕМЗ5100 
3020 N=INT (D/8) + 日 』 OF$=R$ (H+C) +DP$』RETURN 
5100 N=INT(D/64)+16rñ=INT(D/B) 
5110 А=А-8:1ІҒ А>7 ТНЕМ5110 
5120 OP$=RIGHT%(STR%(A),1)+","+R%(H+C)+O 
P%:RETURN 
4000 GOSUBSSO:IF D<&H40 ТНЕМ750 
4010 IF D<&H7C ТНЕМ4100 
4020 IF D>&H9F AND D<&HAC THEN N=&H18: GO 
T04050 
4030 IF D>&HAF AND D<&HBC THEN N=&H3C: GO 
T04050 
4040 GOTO75G 
4050 IF (25 THEN L=L-4rí IF L>7 ТНЕМ75@ 
4969 N=N+L 1 RETURN 
4100 H=D-&H40: IF L>7 THEN4120 
4110 ОМ L+1 GOTO 4200,4300,4400, 4500, 460 
4799,4 


"1Срва"" 


4129 ON L-7 GOTO 4200,4300, 4400, 4550, 750 
, 4750, 4800, 4950 

4200 N=&H3B:IF D=4H70 ТНЕМ750 

4219 OP$=R$ (INT(H/B) ) +", (С) "s RETURN 

4300 N=&H3A: IF D=&H71 ТНЕМ75Ф 

4510 ОРФ" (С), "+89 (INT (H/8) ) iRETURN 

4400 №5:1Ғ L=1@ THEN N=! 

4419 OP$="HL, "+P (INT (H/16) ) 1 RETURN 

4500 №=16:1Е D=&H6 さ THEN750 

4510 80508250: 0Рз" ("+Ag+") , "+P (INT (H/1 
6) ) RETURN 

4550 N=16:IF D=&H6B ТНЕМ750 

4560 GOSUB65@:OP%$=P%(INT(H/16))+", ("+A$+ 
") "s RETURN 

4600 IF D=&H44 THEN N=L&H35:RETURN 

4610 GOTO750 

4709 IF D=&H45 THEN N=&HSB』RETURN 

4712 GOTO75@ 

4750 IF D=&H4D THEN N=kH39:RETURN 

4760 GOTO75@ 

4890 N=&H2F 

4819 IF Ds&H46 THEN ОРФ="@"1 RETURN 

4820 IF D=&H56 THEN ОР®=" 1": RETURN 

4830 IF D=&HSE THEN ОР%="2"1 RETURN 

4840 BOTO75o 

4900 Ne16rIF De&H67 THEN N=&H37 1 RETURN 
4910 IF D=LH47 THEN OP$="1, А": RETURN 
4920 IF D=&HS7 THEN OP%="A,I"iRETURN 
4930 0010759 

4950 N=lórIF D=&H6F THEN N=&HS6iRETURN 
4960 IF D=&H4F THEN ОР®="В, А": RETURN 
4979 IF Ds&H5F THEN OP$="A, В": RETURN 
4980 G0T0750 

5000 ON H+1 GOTO 5100, 5200, 5300, 5400, 550 
©, 5400, 5700, 5800 

5100 IF Пед THEN N=&HSGIRETURN 

5110 IF D=8 THEN М=ЫН2Е: ОР%="АЕ, AF’ "1 RET 
URN 

5120 IF D=16 THEN N=kH2Bı GOTOS150 

5159 N=&H2Ai IF D=24 ТНЕМ5150 

5140 OP$=C$ (INT ( (D-32)/8))+"," 

5150 б06иВ500: IF D>&H7F THEN D=D-256 
5160 A=PC+D:GOSUB700: OP$20P$+"&h"+A$: ВЕТ 
URN 

5200 GOSUBBQQ:IF 1-9 THEN N=@:GOT0525@ 
5210 N=16:GOSUB650:0P$=0P%+","+A%:RETURN 
5250 OP$=P$ (2+C) +", "+OP%$: RETURN 

5300 N=16:X$="A"1 IF D<&H2G THEN GOSUBBOO 
180705250 

5310 IF D<&HSO THEN X$=P$(2+C) 

5529 60308650: OP$=A$ 

5350 IF L=2 THEN OP$="("+0P$+"),"+X$ıRET 
URN 


PC-6001mkII に は メモ リ ・ コ ント ロー ラ 
PCZ80-01 が 使わ れ て いま す . こ の メモ リ ・ 
コン トロ ー ラ は , 64K バ イト 以上 ある PC- 
6001mkII の メモ リ の どれ を 選択 し て リー ド 


する か また どれ を 選択 し て ライ ト す る か 
を 制御 し て いま す . 

PCZ80-01 は 1I/O 空 間 の FOH か ら F8H ま 
で に 配置 きれ て なり,、 それ ぞ れ の アド レス 
に 1 つ ず つの 制御 レジ スタ が 全部 で 9 個 あ 
b i+. これ ら の 制御 レジ スタ は その 配置 
る れ て いる アド レス に よっ て , RF0, ВЕ! 
と いう よう に 呼ば れ て いま す . 各 レ ジス タ 
と も , BASIC や マシ ン 語 の 入出 力 命令 で 直 
接 ア クセ モス する こと に より , 読み 書き が 可 
能 で す . 


メモ リ の 種類 


PC-6001mkII に は 次 の メモ リ が あり , А 
モリ ・ コ ント ロー ラ で 制御 され ます . 
BASIC イ ンタ プリ タ ROM グループ ( 図 1 ) 

Neo-BASIC の イン タプ リタ が 0000H- 3 
FFFH の 16K バ イト に , Neo- 抜 張 BASIC と 
Nsom- BASIC の 拡張 機能 部 分 が それ ぞ れ 40 
00H 一 5FFFH, 6000Н--ТЕҒЕНОВК>%4 


ト ず つ に 格納 され て いま す . 

音声 合成 ROM, 漢字 ROM グ ルー プ ( 図 2) 
音声 合成 ROM の 16K バ イト と 漢字 ROM 

32K バイ ト で 構成 され て いま す . 漢字 デー 

タ は 1 つの キャ ラク タ を 左右 2 つ に 分 け て , 

16K バ イト ずつ っ 計 32K バ イト 格納 され て い 


Neo- 拡 張 BASIC 


Neon-BASIC 


BASIC イ ンタ プリ タ ROM グ ルー 


図 2 音声 合成 ROM・ 


5540 OP%=X%+", ("+0Р9+") "iRETURKN 
5400 N=20: IF L=11 THEN N=21 
5410 GOTO 800 
5500 №20: 60Т0900 
5600 №21: 6070900 
5700 №1 6: 60508900: 60518600; ОРФ=0РФ+", "+ 
A$』RETURN 
56800 N=INT (D/8) +52: RETURN 
4000 IF Ds=&H76 THEN МеМН54: RETURN 
6010 №=16:0=0-64:1Е H<>é THEN BUSUB9o910 
P$=0P$+", "+R$ (Н) : RETURN 
6020 A=HıH=INT (D/8) : 560808910: OP$=R$ (Н) +" 
‚ "+0Р%: RETURN 
7000 _N=INT((D-&HBO ) /8) : A=Hı GOT0910 
Bo H=D-&HCO』 IF L>7 THENB020 
8010 Ом L+1 GOTO 8100,8200, 8500, 8409, 850 
©, B600, 8700, 8800 
9920 ON L-7 GOTO 8100,8250, 8300, 8450, 850 
0, 8650, 8700, 8800 i 
8100 _N=&H2C 
81109 ОР%=С% (ІМТ (H78) ) i RETURN 

N=&H16 

реН: GHSUBBG9』 IF OP$="SP" THEN ОР%=" 


RETURN 
ONINT (H/16) +1GOTO 8240,8270, 4280,82 


N=&H2C』RETURN 

N=&H さ さ 』 RETURN 

N=LH29:ÜP$=" ("+P $ (2+С) +") "1 RETURN 
N=&H1 0: ОР! SP, "+Р% (2+C) i RETURN 
N=&H29 

GOSUBB 1 10: ОР$=0Р$+"," 

В050В250: ОРФ=0Р%+А%: RETURN 

ON INT(H/16)+1 60Т08410, 8420, 6450,8 


N=&H29: 60708520 

N=LH3A: BUSUB6OO1 ロ P@= 人 も +" А" 1 RETURN 

N=&H2E』 OP $=" (SP), "+P$ (2+C) i RETURN 

N=&H さ 11RETURN 

ON INT(H/16) GOTO 8460,8470, 8480 

N=&H さ BI BUSUB6GO』 OP$="A, " +A®1 RETURN 

N=LH2E:OP0=" DE, HL” i RETURN 

N=&H さ 2』RETURN 

N=&H2B: 60108510 

N=&H17』BUTUB219 

N=&H2B』 60108529 

N= INT (H/ 日 ) : 60508600: 0P$=A%$: RETURN 

N=&H2D 』 OP$=RIGHT%("@"+HEX%(H-7),2)+ 
“H"a RETURN 


ます (53). 
拡張 ROM ボー ド グ ル ー プ ( 図 4) 
PC-6001/mkII の ROM/RAM カ ー ト リッ 
ジ 内 の 2 つの ROM で 構成 され て いま す . 
キャ ラク タ ・ ジ ェ ネ レー タ ROM グル ー プ ( 図 5 ) 
Neo モ ー ド 用 と Neom モ ー ド 用 の 2 つが あり . 
各 キ ャ ラク タ ・ ジ ェ ネ レー タ は モー ド の 切 
り 換 え に よ っ て 自動 的 に 選択 され ます . 
内 部 RAM グ ルー プ ( 図 6 ) 
PC-6001mkII の 外部 に RAM を 拡張 し た 
と き に この RAM グ ルー プ と みな きれ ます . 
拡張 ROM/RAM ボ ー ド 内 の RAM で は あり 
ませ ん . 
zi 


3 漢字 デー タ の 構成 


漢字 ROM グ ルー プ 
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2:0 


4 拡張 ROM ボ ー ト グルー プ 


カー トリ ッ ジ 内 の 
ROMI 


カー トリ ッ ジ 内 の 
ROM2 


ы 


で ー サ ーー $ て 


レジ スタ に よる _ 
. 制御 の 方 法 


mkII に は メモ リ の ライ ト 制 御用 ほ と リ ー ド 
制御 用 の 2 種類 の レジ スタ が あり ます . リ 
ー ド 時 の メモ リ の 選択 に は RF0,. RF1 を , £ 
だ ライト 時 の メモ リ 選 択 に は RF2 を , キャ 
ラク タ ・ ジ ェ ネ レー タ ROM の 選択 に は RF8 
を 使い ます . 

RF0, RF1 

図 7 の よう に RF0, RF1 を それ ぞ れ 上 位 
4 ビット, 下位 4 ビット に 分 け , 各々 4 ビ 
ッ ト の ブロ ッ ク で 16K バ イト を 一 度 に 指定 
ЕТТЕ? 

ито Дл ХАЖЫ 
Ез, どの よう な メモ リ が 選択 きれ る か 
を 表 1 に 示し ます . この 表 中 の 上 位 , 下位 
と いう の は 指定 する 16K バ イト の うち の 上 


位 8K バ イト 下位 8 K バ イト を 意味 し ます . 


以下 に 表 1 に お ける メモ リ の 種類 の 説明 
を ん ます 。 
ROM 1 

BASIC イ ンタ ブリ タ ROM を 指し ます . 
32K バ イト 以上 ある の で 16K バ イト ずつ 2 
分 割 さ れ ま す . 0000H 一 5FFFH, 8000H 一 
BFFFH の 領域 に ROM 1 を 配置 し た 場合 は 
自動 的 に ROM 1 1 が , 4000H—5FFFH, С 
000H-FFFFH の 領域 に 配置 し た 場合 は R- 
OM 1 』 が 選択 され ます ( 図 1, 図 8). し た 
が っ て た だ と えば ,8000H か ら Neo- 拡 張 BAS- 
IC の ROM を 配置 する こと が で き な い わけ で 
з У 
ROM 2 


音声 合成 ROM, # FROM (ZE), (Ж) を 


指し ます . 3 つの 16K バ イト の メモ リ が あ 
り ま す が 。 どれ を 選択 する か は , きら に C 


2H, C3H の 1/O ポ ー ト を 操作 する 必要 が あ 
り ま す (PC-6001mkII 取 扱 説明 書 資 料 -20 参 
Ha). 


7 RF0, RF1 の 内 容 


7654 3210 


RF0 [3 210 [3 210 | 初期 値 ин 


0000H-3FFFH の メモ リ の 指定 
4000H-7FFFH の № 


8000H-BFFFH の 
j C000HーFFFFH の 
не ERED ` 


7654 3210 


99 RF2 の 内 容 
76 54 3210 


RF2|10| то [то [10 初期 値 60H 


0000Hー3FFFH の RAM の 指定 
4000H-7FFFH "т 
—8000нН-ВЕЕЕН » 


C000HーFFFFH О” 


8 ROM1 の 構成 
0000H 
4000H 
8000H 
C000H 
FFFFH 
ROMI Dı, A 1 参照 


図 10 RF8 の 内 容 
76543210 


初期 値 C3H 
キャ ラク タ ・ ジ 
ェ ネ レー タ ROM 
が 置か れる アド TT] 
レス の 上 位 3 ビ 
ッ ト 

され た A13 一 A15 の うち š 
の 有効 な アド レス ПП ыж 
キャ ラク タ ・ ジ ェ ネ レー タ 0: 不可 
ROM 読 み 出 し が 可能 か 否 か 1: sJ 


表 1 メモ リ の リー ド 指 定 


選択 され る メモ リ 


ком! | ROM2 


ROM 3 


ROM 4 


下位 上位 | 下位 


ーRF0, RF 1 の 4bit プ ロッ ク 
0000 と 1111 は 何 も 選択 され ませ ん . 


表 2 ROM2 の 指定 
C3H に 0EH を 出力 し た 後 


C2H に 出力 する デー タ 
選択 する ROM I デー タ 


音声 合成 ROM | 00Hor10H 


漢字 ROM( 左 ) | он 
б (も) | ин 


まず , C3H に 0EH を 出力 し ます 次 に 。 
C2H に 青 2 の デー タ を 出力 し ます . これ で 
ROM2 の メモ リ 指 定 が 終了 し ます . 
ROM 3 , ROM 4 

ROM/RAM カ ー ト リッ ジ の 2 つの ROM 
を 指し ます ( 図 4). 
RAM 1 , RAM 2 
PC-6001mkII の 内 部 RAM, 拡張 RAM で 
す ( 図 6). 
RF2 

メモ リ の ライ ト 時 の 選択 を 制御 する この 
レジ スタ の 機能 を 図 9 に 示し ます . 
RF2 は RF0, RF1 と 違い . 2 ビッ ト で 16 


ЖЗ メモ リ の ライ ト 指 定 
選択 きれ な い 


K バ イト を 指定 し ます . 各 ブ ロッ ク に と の 
よう な デー タ を 出力 する と どう な る か は 表 
3 を 参照 し て くだ きい . 
RF8 

キャ ラク タ ・ ジ ェ ネ レー タ ROM の 読み 出 
し を する と き に 使い ます . まず ,1/O ポ ー ト 
の C2H の 第 2 ビット を 0 に し ます (PC-60 
01mkII 取 扱 説明 書 資料 -17 参 照 )、 次 に , В 
F8 に 図 10 で 示 る れる デー タ を 出力 し ます . 
キャ ラク タ ・ ジ ェ ネ レー タ ROM の 場合 は , 
16K バ イト 単位 で は な 《, 8K バ イト 単位 
で メモ リ 上 の 好き な 位置 に 置く こと が で き 
EF: 


س 
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Pio 


(aa aa a aaa an aaa aama aa n n an a aan a + 


具体 例 


トー トー イーー サ ーー サーーーー(ーーーー イ ーー イーー イ ーー サー サー ゴイ ーーー 


例 1 

割 と わか り に くい と 思わ れる RF8 の 使い 
方 の 例 を 示し ます . 普通 6000H か ら 配 置き 
れ て いる キャ ラク タ ・ ジ ェ ネ レー タ ROM を 
A000H か ' ら 配置 し ます (リス ト 1).RF8 に 


C5H の 代わ り に , CDH を 出力 する と , メモ 
リ の 8000H 以 降 す で て 8K バ イト ご と に キャ 
ラク タ ・ ジ ェ ネ レー タ ROM が 配置 され ます 
(0411). 
例 2 
Neo- BASIC を RAM 上 で 動作 させ る ( リ 
スト 2). Neom-BASIC の 場合 は 裏 RAM に 
画面 を 持っ て いる だ た め に 転送 し て 使う こと 


は で きま せん . 


AO 


9000H 
A, (92H) 
@FBH 
(92Н),А 
а,9с5н 
(@FBH) „A 


(@F2H) ‚А 
A,11H 

(OFOH) , A 
HL, 9999H 
DE, 0000H 
BC, 7FFFH 


2109000 
110000 
@1FF7F 
Ерво 
ЗЕрр 
р5ғо 
С? 


A, QDDH 
(OFOH) ‚А 


この 8 小節 だ け で 続く 感じ は な い が 。 締まり の ある 曲 だ と 思い 
2%; 


PLAY "У15Тт20е58м50ео" 
FOR I=1 TO 5 
PLAY "1 405ЕЕ! З05Е! 8050" 
PLAY "L4D5CCL305CLB05C" 
PLAY “L404AALBA. D4BL 160SCL805DC” 
PLAY "L40SEEER4" 
PLAY “LBOSFFL3OSFLBO0SAGF " 
PLAY "L40SEL8DSDGL405FE ”“ 
PLAY "L404BBLBD4B+BDSED“" 
100 PLAY “L105C" 
11Ө NEXT 1 


ユニ ー ク な 曲調 に な っ て いま す . 少し 長い 気 も し ます が . 
ポ を 速く する と そん な に 退屈 し な いと 思い ます . 


о PLAY "V15T1BoSBH5ooo" 
FOR 1-1 TO 5 
PLAY "L1605CCCCLBA . OSE" 
PLAY "L805DL1605D-CLB04BL8DSC" 
PLAY "L80SDL160SDDDLLB8A.D" 
PLAY "L405DR4" 
PLAY "L160SDDDDLBA. О5Е " 
PLAY "L80SEL16&605E-DLLB805CD" 
PLAY "LBOSEL 1505ЕЕЕ! ВА. OSE" 


PLAY “L405ER4" 

PLAY "L1605GGGGLEA. A" 
PLAY"LBOSGL 16056-FLL805EF " 
PLAY"LBO5AL і 605AAALEA. DSA“ 
PLAY"L40SALBO5CL 1 605SCD" 

PLAY "LBOSEL 1 505ЕЕ! ВОЅЕ! ВА. OSC" 
PLAY"LBDSDL 1605DDL805DLBA. В" 
PLAY “L205C" 

PLAY "L40SCR4" 

NEXT 1 


ある 曲 を アレ ンジ し た も の で す が . 
と な し め の 感 じ で す . 


19 PLAY "V15T1BoSBH5ooo" 

29 FOR 1-1 TD さ 

30 PLAY "L404GLB05CD4GDSCD4GO5CD4G" 

49 FLAY "LBD4BBAAL4FR4" 

50 PLAY "L404FLBD4BDFBFB" 

&@ PLAY "LBO4AAGGLLL4D4ER4" 

70 PLAY "LBO4GGLBDSCD4EGGBLBO5C" 

Ве PLAY “LBOSDDLEOSCCLIO4ALBOSC" 

90 PLAY "LSO4BBAGL4D4FL403B" 

160 PLAY"L404DL8D4CDL404CR4" 
r 119 NEXT 1 


ちょ っ と か わい らし びさ, 


(リス ト は FM-7 よ り ) 
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PC-B00 1 /mkIı 


Ns-BASIC/N。。。-BASIC モ ー ド 


モニ タ 


Editor & Monitor 
ЛЕ), 
ЧЕН г. サハ 機能 内 蔵 の 強力 モニ タ 


[И ЕЗ 


マシ ン 語 の 入力 を 非常 に 楽に する エディ 
タ お よび 縦横 チェ ッ ク ・ サ ム の 出力 が 可能 
な モニ タ を 開発 し た の で て 発表 し ます . 特に 
エディ タ は 。, 開発 目的 が リス ト 入 力 を 容易 
に する と いう と ころ か ら , と て も 強力 な も 
の に な っ て いま す . し か も MKII の Nom - 
BASIC モ ー ド で の 使用 が 可能 に な っ て い 
27. ぜひ 一 度 使っ て みて くだ さい . 


өссе si КЕЗЕ Лу ES 
・ エ ディ タ を 持つ . 
@PC-6001 で は た ぶん 初め て の 縦横 チェ ッ 
ク ・ サ ム の 出力 が 可能 . 
⑳ レ ジス タ の 参照 ・ 変 更 お よび ブレ ー ク ・ 
ポイ ント の 設定 が で きる . 
⑩I/O の 今 ま で の モニ タ と テー ブ 互 換 性 を 
保ち , さら に 6 廊 字 の ファ イル ・ ネ ー ム が 
つけ られ る . 
IPL 起動 時 に PC-6001 で ある か PC-6001 
mkII で ある か を 自動 的 に 判断 し . モニ タ 本 
体 の 一 部 を 書き 換え を る こと に より PC-6001, 
PC-6001mkII の Nso-BASIC モ ー ド お よび , 
PC-6001mkII の Nsom-BASIC モー ド て 使え 
4222 

プロ グラ ム は F000 一 F9FE に 存在 し ます . 
最近 は SCREEN3 以 上 を 使う ゲー ム が 多 
発表 きれ て いま す が , リス ト 入 力 時 ここ 
な ら そ の よう な ゲー ム と エリ ア が 重なる 心 
配 は な いし , まだ 16KRAM の 人 で も 使用 可 
能 な の で この 場所 に 設定 し まし た . どう し 
て も この エリ ア が 重なる 場合 で も 後 掲 の タ 


イニ ー モ ニタ な ど が 利用 で きる の で 大 素 夫 
だ ょ きた た Босх. 


まず リス ト 1 の IPL を 打ち 込ん で モー ж” 
し ます . 次 に リス ト 2 の メイ ン ・ プ ブロ グラ 
ム を セー ブ す る の で す が ,。 を その 方 法 に つい 
て 説明 し ます . メイ ン ・ プ ログ ラム の エリ 
ア と 重 な ら な い モ ニタ (I/O, 6 月 号 の N そ モニ 
タ ま だ た は リス ト 3 の タイ ニー モニ タ 等 ) で 
リス ト 2 を 間違い な 〈 く 入力 し ます . そし て 
セー プ < ニ マン ド で テー ジ 5711 #1. 


タイ ニー モニ タ の ユマ ンド は 以下 の 5 つっ ・e… エ ンド : 実行 を 終え ます . 
жү, タイ ニー モニ タ は 一 部 マシ ン 語 で す が ほ 
d… ダ ンプ : アデ ドレ ス を 入力 する と 次 々 と ん ど BASIC な の で , 不都合 が あれ ば [srTo 
と 表示 し ます . な に か キー を 押す と コマ ン 回 で ず で 止め て くだ きい 。 
ド 待 ち に 戻り ます . ГТ š J この 
・m… メ モリ ・ セ ッ ト : アド レス を 入れ る 
と 番地 と その 内 容 を 表示 し ます . この と き 
16 進 数 2 桁 を 入れ る と その 値 に モッ ト さ きれ 
スペ ー ス を 押す と その まま 1 番地 進み ,「pgL | 
を 押す と 1 番地 戻り | RETURN | で コマ ンド 
待ち に な り ま す . 
・s… セ ー プ : 先頭 お よび 終了 アド レス を 入 
б, ファ イル ・ ネ ー ム 2 廊 字 を つけ る と セ よび D コ マン ド で は [gmsc| と [stor | が 効き , 
ー ブ し 始め ます . まだ テー ジグ 関係 の コマ ンド (1, $5, ү) 
・1… ロ ー ド : 1/0 の モニ タ や S コ マン ド で で は [srop | が 効き ます . 
セー プ し だ も の を ロー ド し ます . 


РЕ" TPL を ロー ド し RUN し ょ す . “ок” 
が 出 た ら , EXEC &HF000 [RETURN T = 
タ が 起動 し . タイ トル が 表示 され ます . 

これ で 表 1 の コマ ンド が 使え ます . Аз 


ЖІ コマ ンド 一 覧 表 nunl,n2. は 16 進 数 . F$ は ファ ィ ル ・ ネ ー ム . ( ) 内 は 省略 可 。 


| コマ ンド 名 | 書 式 


Ascii dump | A(n1)(, n2) n1 か ら n 2 まで の メモ リ 内 容 を ASCII 形式 で 出力 し ます . 
AP(n1)(, n2) に P を 付け る と プリ ンタ に も 出力 し ます . 
ССИ СИИИ Сет: 


Dump D(n1)(,n2) ni か ら n2 まで の メモ リ 内 容 を 表示 し ます . この と き 縦 横 の チェ ッ ク ・ 
memory DP( n1) (, n2) 
— a n2) 


A の あと 


サム も 出力 し ます . D の あと に P を 付け る と プリ ンタ 出力 , S を 付け る 
と 縦 サ ム の 出る 1 プロ ッ ク ご と に 一 時 停止 し ます . 


n か ら メ モリ の スク リー ン ・ エ ディ ッ ト を 行ない ます (詳細 は 表 2 ) . 


nl から n2 ま で の メモ リ を 定数 n で 満た し ます . 


レジ スタ を X コ マン ド て 設定 し た 値 に セッ ト し て n 番 地 に 和 飛び ます . R 
ET 命令 が ある と PC 以外 の レジ スタ の その 時 の 状態 を 記録 し て 戻り ます . 
RST 38H( オ プ ジ ェ クト ・ コ ー ド 0FFH) が ある と そこ が プ ブレーク ・ ポ イ 
ント に な り 戻 り ま す . 詳し く は プレ ー ク ・ ボ ポイ ント の 項 を 見 て くだ さい . 


S コ マン ド や !I/O の 各 モ ニタ で セー プ し た も の を ロー ド し ます . ファ イル 
名 を つけ る と スキ ッ プ な ども し , また し の あと に 6 を 付け る と 600 ボ ー 
で セー プ ブ さ れ た も の が 読み 込め ます . 


n1 から n2 の メモ リ 内 容 を ファ イル ・ ネ ー ム F$ を 付け て セー プ ブ し ます . 
S の あと に 6 を つけ る と 600 ボ ー で セー プ ブ し ます . FS は 6 文 字 目 ま て 有 
効 で 7 文字 目 か ら は 無視 され ます 。 


n1 か ら n2 まで の メモ リ 内 容 を n か ら に 転送 し ます . 転送 前 と 転送 先 の 
アド レス が 重なっ て も 大 丈夫 で す . 


テー プ の 内 容 と メモ リ の 内 容 を 比較 し ます . 不一致 の 時 は その 番地 と テ 
ー プ の 内 容 を 表示 し て エラ ー に な り ま す -. 他 の 不都合 が 生じ た 時 は エラ 
ー の み に な り 区 別 で きま す . 使用 法 は し に 準じ ます . 


|, R 以 外 の 全 レ ジス タ の 内 容 を 表示 し , また 変更 し ます . 各 レ ジス タ 名 
の あと に 16 進 4 桁 を 入れ る と その 値 に セッ ト さ れ ま す . また [SPACE 
キー で 次 の レジ スタ , [pEL] で 前 の レジ スタ に 移り , ErOpl で 終了 し ま 
す . な お PC の 値 は 変更 で きま せん . 


ЖА, О, E に お いて , アド レス は 行 の 先頭 の 最 下位 桁 が 0 また は 8 に な る よう に 補正 し て か ら 表 示し ます . ま 
た アド レス を 略 し た と き は , 前 の 終了 アド レス か ら 表 示し 始め ます . 
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ITS 


pror Шок өле 


本 モニ の プレ ー ク ・ Же] 


ктей 
ト の 設定 は 。 
メモ リ の 任意 の 所 に OFFH (RST 38H) を 
書き 込む こと に より 行なう 簡易 型 た な っ て 


いま す . マシ ン 語 実行 中 これ に ぷ ぶつ か る と 


I, R 以 外 の 全 レ ジス タ を 表示 し て コマ ン 
a з У. 
区 に 立ち ます ・ 


エディ タ ・ モード に な る と 表 2 の よう 
な コマ ンド が 使え ます . [か な | キー に よる キ 
PEAKI ロッ ク 的 使用 で 図 1 の よう な テ 

・ キ ー 的 配列 が 使用 で びき ます. この 配列 
は 私 の タイ プ ・ ラ イタ ー の 経験 より 決定 し 


た 6 ので, 慣れ れ ば キー を 見 ず に 、 す 早く 打 
て る よう 工夫 し て いま す . LDL, ЖЕЛ 


ら な い 人 は 改造 法 の 項 を 見 て 変え て くだ き 
``. 
жз デー 


Address | 


みみ ュ エリ アマ ッ ジ 


レジ スタ 名 “AFBCDE IYSPPC" 


ーー 配列 用 変換 表 . 

DGD 最後 は 00H 
タイ トル ・ メ ッ セ ー ジ сіз £ ابت“‎ 
MONITOR…" 最後 の 1 文字 は 区 切り 
判断 の た め * に 80H を 加え て いる . 
プロ ンプ ト ・ マ ー ク “>” +80H 

コマ ンド 表 . コマ ンド 1 文字 と その 処 
理 先 2 バイ ト の 組 が 11 組 と , 拡張 用 00 
00 00 の 3 バイ ト お よび 区 切り の 00 1 
バイ ト 

チェ ッ ク ・ サ ム 用 メッ セー ジ “бот” 
+ 80H 

処理 終了 用 メッ セー ジ ОК" +80 
H 


2 バイ ト ず 


エディ タ 用 コマ ンド 表 . 3 バイ ト の 組 
18 組 と 区 切り の 00 

ロー ド 時 の エラ ー メ ッ セ ー ジ "ERR" 
+ 80H 


表 4 
Address 


ワー ク ・ エ リア マッ プ 


スタ ッ ク ・ ポ イン タ の 初期 値 保存 


各種 フラ ク 
A コ マン ド 用 アド レス 保存 


D コ マン ド 用 アド レス 保存 


DS 時 0FFH と な り 1 プ ブロッ ク ご と に 
停止 , それ 以外 で は 00H 

エディ タ 時 の ホー ム 位置 の アド レス 
エディ タ 時 の カー ソル 位置 の アド レス 
エディ タ 時 1 バイ ト の 前 4 ビット に カ 


ー ン ソル が ある と き F0OH と な り 判 別 お よ 
び マ スク の 役割 を 果たす 


チェ ッ ク ・ サ ム 出 力 時 ここ が 00 な ら ア 
F レス 加 不 算 FFH な ら ア ドレ ス 加 算 に 
な る 

エディ タ 時 00 で ASCII 出 力 停止 , 
FFH で ASCII 出 力 

00 で ロー ド AFH で ベリ ファ イ の 判 
断 用 


00 で CRT に 01 で プリ ンタ と CRT に 
文字 出力 の 判断 用 
レジ スタ の 状態 保存 用 エリ ア 


表 2 エディ タ て 使用 で きる コマ ンド 一 覧 


ESC | を 押す と カー ル 位 置 の 1 バイ ト に и" マー ク が 表示 さ 


れる の て 続い て 好き な キー を 押す と 、 その ASCII コ ー ド が 書き 
込ま れ ま す . た と えば A を 押す と その 1 バイ ト は 41 H に な り 
ます . “o” の 解除 は も う 一 度 [ESC | を 押し ます 


ー ソ ル 位 置 の 1 バイ ト を 前 の 1 バイ ト と 同じ 値 に し ます . 


カー ン ソル を ホー ム 位 置 に 移動 し ます . 


カー ソル を 行 の 先頭 に 移動 し ます 


エディ タ か ら 抜 け , モニ タ の コマ ンド 待ち に 戻り ます . 


画面 全体 を スク ロー ル ・ ア ッ プ し ます -. 


画面 全体 を スク ロー ル ・ ダ ウン し ます - 


カー ソル 位置 に 0 を 入れ , 画面 の 最後 まで 1 桁 ず つ 右 に 移動 し 
ます . 画面 か ら 出る 最後 の 1 桁 は 消 減 し ます . 


画面 最後 の 1 桁 に 0 を 入れ , カー ソル 位置 まで 1 桁 ず つ 左 に 移 
動 し ます . カー ルン ソル 位置 の 1 桁 は 消 減 し ます . 


Change 


メモ リ ・ ダ ンプ と 共に その ASCIl 出 力 を 表示 する か し な いか 
を 切り 換え ます . これ は 1 バイ ト の 区 切り の スペ ー ス 部 分 に 多 
を 変え て 表示 する と いう 画 期 的 な 方 法 を 用 いて いま す . し か し 
その た め 画 面 が 往 雑 に な る の で , これ を 実行 する た びに 表示 
未 表 示 を 交互 に 切り 換え る よう に し まし た . 


Fill Same 


カー ソル 位置 以後 , 画面 の 最後 まで カー ソル 位置 と 同じ 値 に し 
37. 


Next Page 


画面 を 次 の ペー ジ に 切り 換え ます . た と えば 今 A000 一 A07F ま 
で て 表示 し て いた と する と . 次 の D080--D0FF ま で の 表示 に 変わ 
り ま す . 


右端 の チェ ッ ク ・ サ ム を アド レス 加算 の も の と 不 加 算 の も の と 
交互 に 切り 変え ます . 加算 の と き は 区 切り を “" TRL, Ж 
加算 の と き は “:” で 示す の で すぐ わか り ま す . また , これ で 
最後 に 設定 し た 状態 は . モニ タ の D コ マン ド で も 保持 され ます 


CTRL 


+ Мо 


画面 を 上 の ベ ページ に 切り 換え ます . ちょ うど 
Тӯ. 


жс, ホット ・ ス ター ト は 003 番 地 て す 


[7] [в] |9) (0) 
[u] (11 (0) [P] 
н] [J] [к] (L GI о) [а] [5 


か な イン ジ ケ ー タ が 点灯 し た 状態 で 図 1 の Ten Key 的 配列 が 使 
えま す . な お この モー ド 中 [CTRL |+ | の コマ ンド は 使え な い 
DT, 使い た いと き は 一 度 か な | キー を 押し て この モー ド を 抜 
け て か ら 実 行 し ます . 


カー ソル を 好き な 位置 に 動か し ます . カー ソル が 画面 の 外 に 出 
る と , 自動 的 に 隣 の 頁 に 切り 換わり ます . 


・ キ ー 配 列 


A| [В] [<] [p 
[7| [8] 


ч 
“ 


ар 


左上 の キー が 右上 の よう な キー 配列 に な り ま す . 
よう に 各 指 に 押す キー を 割り 当て ます . そし て , キー を 押す た 
め に 動か し て いる 指 以 外 は 極力 〇 印 の つい た キー の 上 に 各 指 を 
置く よう に し ます -. 
ー デ ィ ー に 打ち 込む こと が で きま す 。 


[1] [2] 


ここ で を の 


こう する こと に よっ て 慣れ れ ば 非常 に スピ 


プリ ンタ は 4 文字 を 想定 し て 作っ て いま す . 
逆 ア モン ブル する 人 の た め に , デー ペタ 領域 
と ワー ク ・ エ リア を 表 3 と 表 4 に 示し て お き 
$$. また 。 本 モニ タ で は サ プ ・ ル ー チ ン 
を 前 の 方 に か だ た め て いる の で 参考 に し て く 
だ さい. 
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оо 


図 FT 2 +— F 


ここ か ら 先 が 1/O の モニ タ と 同じ な の て 互換 性 が ある 


| スタ ー ト | プロ グラ ム | ファ イル ネー ム | タイム 


| アド レス | の 長き | 1ー2 女 字 目 | ディ レ ィ | ° 


¥ — зы жы c ў 9CH в AFH 
大 き な 改 造 は 困難 だ と 思う の で 簡単 に で 
きそう な 点 を いく つか 述べ ます . 
まず テン ・ キ ー の 配置 で す が 。 これ は 
0A6 一 FOC6 に 変換 表 が ある の を いじ くり ま 
3. F0A6 よ り 順 に 押さ きれ る キー の ASCII 


27290 サム は プロ グラ ム 全 体 の 1 バイ ト ご と の 単純 加算 値 の 下位 1 Ы һ 


コー ド , 変換 する ASCII コー ド が 交互 行 番地 に 飛ん だ と き HL に 入力 文字 列 の コ まし た . 今 か ら 思 を ば 確か に だ いし だ こ 
に 16 組 (0-Е) 書か れ , 最後 に 区 切り の マン ド 位 置 ( た と えば PAOO, BOO [RETURN] の な い モ ニタ で し た か ら …. そし て 今年 , 
00H が 書い て あり ます . この 押さ れる キー と 入れ だ な ら バ ッ フ ァ 内 の P の 位置 ) が 入 4 月頃 より 構想 を 練り 5 月 頃 原型 の 2. 0 
の コー ド の 所 を 任意 の も の に 変え る こと で っ て いま す . この 時 RET 命 令 ど エラ ー 処 理 が で きま し た だ た. 中間 言語 に MON を 加え た り 
容易 に 変更 で きま す . に 飛ぶ の で , コマ ンド 待ち に 戻る 時 は F26 し て いま し た が 。 省 メ モリ と 1/O と の テー 
$, 1I/O に は あり ませ ん が だ た だま に チェ D (LF す る ) また は , F270 (LF し な い ) に プ 互 換 性 の た め 改 造 し 直し , 2.2 に 至り ま 
ッ ク ・ サ ム が 単なる 合計 で は な く 、, 合計 の 飛ば し て くだ きい . スタ ッ ク は 初期 化 き され し た . 約 4 箇月 の 製作 期間 の 半分 以上 は 無 
符号 を 反転 (マイ ナス に ) し た も の が あり る の で よほど の こと を し な い 限 りあ まり 気 駄 の 除去 と 動作 チェ ッ ク , そし て デバ ッ 


$3. こん な と き F5CC,F5CD 番 地 を 0 САБА 92 グ に 費やし まし た . バグ は た ぶん な いと 思 
EDH, 44H (МЕС) に する と 正しい サム が < ie с ETA いま す が , 気付 いた 点 が あり まし た だ たら PiO 
得 ら れ ま す . この 2 バイ ト は 初め か ら こ ん PiO に で も 書い て くだ され ば 幸い で す . 

な 意図 で 00H (NOP) に し て いる の で す . 避 参 考 文献 等 

また だ, F2B3 番 地 に 未定 義 の コマ ンド 1 ①" マ シン 語 エ ディ タ ", 1I/O,83 年 2 H = 

文字 を 入れ , 次 の 2 バイ ト に を その 実行 番地 Сее и", I/O,'82 年 2 月 号 
(上 位 ・ 下 位 の 入れ 換え を 忘れ ね よう ) を 入 気 に な る 人 が いる か も 知れ ませ ん . ③" PC-Techknow 6000”, アス キー 社 
れる と 。 コマ ンド を 1 一 拡張 で きま す . Ж 1.0 は 1 年 前 投稿 し 。 みごと ボツ に な り ОТО, 


нн リス ト 1 ヒモ ニタ ІРІ BASIC UZ F mms 


10 КЕМ ж ІРІ for MONITOR ж 

20 CLEAR 50,%НҒООО 

ЗО FOR І-“НҒСОО TO &HFC48 

40 READ A$:POKE I,VAL ("8&H" +A%) 
SO МЕХТ:ЕХЕС%НЕСОО 

60 ТЕ РЕЕК (0) =%НСЗ ОР PEEK(&HFE6 


ПАТА10,ЕВ,Ср,9А,25,11,АҒ,05 ||250 DATA&HF49B,&HFB。&HF49C。&H1D 
БАТАСО,4Е,25,21,СП,ҒЕ,06,06 ||240 DATA&HF59D , &HO2, &HFSAF ,%H10 
ПАТАСО,70,14,77,23,10,Ғ9,21 ||250 DATASHF72B 。&HE2 。&HF72C ,&H6 さ 
БАТА75,25,С0,85,25,24,СП,ҒЕ || 260 DATA&HF738,&H2F , &HF739 。&H64 
DATAED,SB,CF,FE,CD,9A,25,CD ||270 DATA&HF2 さ F , “НОО, &HF 240 , &H6B 
ПАТА70,14,77,82,47,25,1В,7А || 280 DATASHF921 。&H27 。&hf922 。&hO4 
Патав5,20,Ғ4,Ср,70,1Ү,ВВ8,Ср 

ПАТААА, 1А,С8,21,85,05,С5,СЕ, 


5) <>4 THEN ЕМО 
|70 RESTORE 200 

80 FOR Ізі TO 16 

90 READ А,В:РОКЕ А,В 

100 NEXT: END 

110 ПАТА06,04,21,5,ҒЕ,56,00,23 


КЕМ マー フ 2・ モ ー ト ~ 5 А/ A2307" -9 
рАТАҠНҒ2535,%Н10,%НҒ258,%Н14 
DATASHF 499 , «НОО , &HF 49A 。 “НСО 


TEES SER TEER JX pF 2 EE モニ タ ЕКИ БФ... гг 


ғооо F5』 1F бит: 57 2 Е8:7Е 2А 4D АҒ 4E 49 
ғоов Ғо:29 
Fo10 41:86 F100 0 CD: 7D 
F018 EE:AC F108 01:2Е 
Fo2o z Е1: АС F110 7 2 93 С9:50 200 45:0С 
F028 2А:Е2 F118 0 ç ОЕ: さら 6 қ 50 50 65: CF 
козо 00:10 F120 01:С2 о 5 ED:E9 
Розв 08:42 F128 OF О В 32: АЕ 5 21:02 
Fo4Q F9: АЕ F130 ° 69:26 0 0 52:47 
F048 11:3A F138 ЗЕ: АЗ ЕЕ: 18 
F050 ОС CD:6F F140 Й FO: 28 З 3 94:ЕА 
F148 C Е9:АС 0 59:24 
Е150 $ в9:79 FDiF6 
00:93 
3E:3F 


FOBO 48: DO 

ғовв 0 50:50 

Fo90 42 о Fo: CD 

F098 O3: 6B 

FOAO 23 50:88 00: ВЕ 

ЕОАВ 54:84 0 201 32 

FOBO 5 : 58:86 ос о C3 65: ВВ 

FOES 45:05 CD: 94 

ғосо CS: 28 29:01 

FOCS 12:А9 F D7:E8 

FoDo С 10:02 О В7:87 

ғорв 52:40 

ҒОЕО Q 07:86 

ҒОЕВ 0 РЕ: Bé 

FOFO Е оо є 21:ро 
5Е:98 
ОС:ЕЕ 20:25 
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ҒЕ: 69 
F2FO FB ЕВ 21 ОВ 00 ЗА FB FBi さ SF 
Ғ2ҒВ B7 20 01 29 19 EB ЗА 09:48 


F300 FC B7 28 05 DB СО E6 02:63 
F308 СВ ЗА FB FB B7 20 42 3E:4F 
F310 ҒО А5 6F CD 21 F1 CD 36:66 
F318 ҒЗ CD 59 F3 CD 45 Рі СО: ВА 
Е520 С4 Ғі 38 27 7С В5 28 25:90 
20: B3 
4С:Е1 
48: ВЯ 
С9:95 
60:75 
3A: 43 
43: OF 
28: 44 
26:50 
FC:B6 
10: DA 


Sum: ОВ BD 55 17 6С ЕЗ SE 27:08 


F380 Е! рі CD 08 F1 38 15 CDi609 
F388 43 Fi 18 CS 05 11 ОВ ОО:ҒҒ 
F390 ED 52 рі C3 36 ҒЗ 05 СЮ:СЕ 
FE FE FS 22 РЕ РЕ 18 АҒ 05:49 
ЕЗАО ES ЗЕ 10 90 47 ОЕ ОО С5:00 
FSAB 11 ОВ ОО B7 ED 52 10 FB:1A 
FSBO Сі CS ES 09 06 IF ЗЕ 20:04 
Езвв CD FS РО 10 FB CD 45 Рі: ВЕ 
FSCO CD 68 Рі 55 75 60 ВА D9:EE 
F さ CB Ср 4С Рі АҒ 86 19 10 ҒС:64 
F さ DO FS CD 29 F1 Fi Еі Сі 81:F0 
FZD8 4F 25 ЗЕ 07 AS 28 04 С5:4р 


F400 ВЕ Ғі СО 21 BS ОЕ 22 02:77 
F408 ҒА ЗЕ C9 52 93 ҒҒ Е! С5:69 
Ғ410 EA ОО CD ВА Ғі Е7 58 04:55 
Ғ418 Ер ВО 18 17 09 2B ЕВ 09:Ғ4 
F420 2В ЕВ ED ВВ 18 Ор CD 8A:37 
F428 F1 7A В7 СО 75 25 ОВ 78:ҒВ 
F430 Ві 20 F9 CD 68 Fi АҒ 4В:ВА 
F438 А1 C3 éD F2 ЗЕ АҒ 32 FB:DD 
F440 FB CD ВЕ F1 28 41 CD 96:45 
F448 Ғі СО ЗА FB ЕВ B7 28 SF:FF 
F450 22 6B Ғ4 51 ОА FC F1 С1:6А 
F458 Di El 09 ОВ Fi Сі рі E1sFZ 


Sum: 07 ОЕ ҒА Ғ2 60 3C 7В E8:DO 


F480 ES 05 C5 F5 C3 70 F2 ЗА:р5 
F488 FB FB В7 СО 2А 01 FC SE:D2 
F490 F8 А5 6F 22 01 FC 22 05:50 
F498 FC АҒ 52 07 ЕС CD АЕ Ғ5:ҒО 
Е4АО ЗЕ ОҒ 52 05 FC 21 01 Оё: АВ 
F4A8 CD éD 11 CD 91 ҒО Ср бо: нь 
Ғаво РІ 01 Fé F5 03 Вв F7 06:95 
F4B8 24 Fé ОВ 31 Fé 09 66 Е7: АР 
F4CO ОВ 02 Ғ5 ОС ED Е5 Ор 54:01 
F4C8 F7 ОЕ ОВ Fé 12 52 Fé 15:70 
F4DO FF FS 15 Ор Fé 1B 7р Ғ7:9В 
F4D8 1С 7$ Fé 10 C3 Fé 1E Ғ9:72 
FAEO F6 1F 98 Fé FE 27 F7 ОО: ВЕ 
Ғ4ЕВ СО E7 ҒО 38 SB CD 18 F1:0D 
F4FO F5 2А ОЗ FC 4E ЗА 05 FC:A7 
F4F8 FE РО 28 09 А1 АҒ Fi 07:07 


30: 2A 
ЗА: 9B 
АВ: C1 
C3: 6 さ 
Ғ4:12 


A8:E9 
2A:A7 
F5:13 
7A: OF 


AB: 07 


F598 FC B7 28 ОҒ ЗЕ ОЗ 32 93』FO 
FSAO FD 7E FE 20 38 05 CD Ғ5:98 
FSA8 FO 18 05 CD 4C F1 ЗЕ 01:54 
FSBO 52 95 FD 79 86 4F CD 28:05 
Е5ВВ Ғі 25 10 DA ЗА 06 FC B7:F1 
FSCO 28 04 ЗЕ 2F 18 02 ЗЕ 5А:2В 
F5CB CD F5 ҒО 79 00 00 CD 29:21 
FSDO Fi C9 CD 08 FS C3 АВ Е4:В6 
ҒЕрВ ЗА 05 FC Её F8 52 ОЗ FC:48 


F600 
F608 
F610 
F618 
F620 
F628 
F630 
F638 05 28 05 ED éF 2B 10 ҒЕ:С4 
F640 47 ЗА 05 FC FE ҒО 28 05:90 
F648 78 ED 6F 18 рі A6 Во 77:5А 
F650 18 СС CD АА F7 2А 05 FC:7E 
F658 ЗА 05 ЕС FE ОҒ 28 ОС Аё: 22 
F660 4E 77 79 E6 OF 25 05 28:83 
F66B BS 18 01 АҒ ED 67 25 10:04 
F670 FB 18 АВ ЗА 05 FC 2F 52:5А 
F678 05 FC FE ҒО 28 11 CD 3BiSO 


F6BO F1 ЗА А9 FD FE 1р 50 00:29 
F688 2А 05 FC 25 22 05 FC СО: ЗА 
F690 3B Е! C3 АВ F4 CD D8 Ғ5:28 
F698 11 ОВ ОО 2A ОЗ FC 19 22:70 
РАО ОЗ FC ЗА АВ FD FE 10 50:1С 


4 
FéDO FC 2B 22 ОЗ ЕС CD 3F Ғі:45 
ҒЫЮ8 ЗА А9 FD FE 05 28 06 CD:DE 
F6EO SF F1 C3 АВ F4 11 ОВ Оо: АВ 
F6EB 19 22 03 FC ЗЕ ҒО 52 05:9F 
F6FQ ЕС 2А АВ FD 26 1С CD 60:47 


F700 22 ОЗ ЕС ЗА АВ FD FE О1:ҒҒ 
F708 28 QB ЗЕ 1E CD 75 10 СЗ:А1 
F710 АВ F4 2А 01 FC 11 80 ҒҒ:56 
Е718 19 22 01 FC 2А АВ FD 2Е:55 
F720 10 CD 6р 11 C3 1E Fé 21:55 
F728 10 01 CD 60 12 ЗЕ 10 01:9F 
F730 ОВ ОО 18 ОВ 21 01 10 CD:2 

F738 А9 12 ЗЕ 01 01 FB FF ED:DF 
Е740 5B АВ FD 52 АВ FD 2А 05:04 
Е748 FC 09 22 ОЗ FC 2А 01 ҒС:40 
F750 09 22 01 FC FE 01 28 04:55 
F758 01 78 ОО 09 CD 7A FS ЕВ: А9 
F760 CD 6D 11 C3 АВ Ға 2А 05: ПА 
F768 ЕС 2B 7E 25 77 ЗА 05 ҒС:7А 


Е7АО АВ F4 2A 01 FC 11 8O 00:57 


リス ト 2 モニタ マシ ン 語 リス ト 


F7A8 19 C9 CD А2 F7 Ер SB 05:95 
Е7ВО FC АҒ ED 52 45 C9 CD 68:20 
F7B8 Е! ВС C3 70 F2 ЗЕ АҒ 52:С1 


Е7СО ОВ ҒС ЗЕ ҒҒ 52 9 
Е7СВ 25 Ғ9 09 D7 09 B7 28 05:ВЕ 
F7DO Ср 50 F9 B7 СО CD 61 1A:BS 
F7D8 06 05 CD 70 1А FE 9C 28:24 
F7EO 10 FE ЗА 20 ЕЗ CD 70 1А:ВЕ 
Е7ЕВ FE ЗА 20 EC 10 F7 21 D3:3F 
ЕО: SF 


F800 1А FE 9C 20 D3 10 F7 06:84 
F808 05 CD 70 1А FE АҒ 20 CBiF1 
F810 10 F7 06 02 CD 70 1А 20:86 
F818 BF 6F CD 70 1А 20 B? 67』C5 
ҒВ20 ES 10 F1 21 рі FE CD 70:15 
F828 1А 77 25 Ср 70 1А 77 2В:Ар 
FB3O CD 65 25 28 ОА 21 7р 25:4С 
F838 Ср 85 25 El El 18 96 21:06 
F840 76 25 CD 82 25 Сі Ei CD:7F 
F848 21 Ғі ЗЕ 7Е CD 75 10 Е5:05 
F850 09 2B CD 21 F1 Е! CD 45:04 
F858 Fi 09 CD 10 F? CD 9А 25:59 


Sum: 15 56 79 АЕ Bš АВ 77 28:60 


F880 F1 CD 4C Fi АҒ 3D 18 ОЕ: ОБ 
F888 F1 77 85 SF 25 ОВ 78 Bl:Al 
F890 20 D1 CD 70 1А ВВ CD АА: 7А 
F898 1А СА 55 F4 CD 68 F1 45:76 
FBAO 52.02 C? CD 25 F? 09 07:88 
ҒВАВ р9 Ср 50 Ғ9 D8 В7 СВ CD:F3 
ЕВВО 76 Е! СО Ер 55 рі FE Ер:25 
F8B8 45 05 FE 2А СВ FE 22 DS:FE 
FBCO FE ЕВ 09 CD B8 1А 06 06:60 
F8C8 ЗЕ ЗА CD CC 1А 10 FB 21:57 
FBDO CD FE 06 04 CD СВ 25 06:95 
F8D8 06 ЗЕ 9С CD CC 1А 10 FB:9E 

с 10: BE 
20:Е2 
9C: OE 
F9:ñ1 


01:70 


F900 09 1E ОО 7E 83 SF 7E 23:28 
F908 CD CC 1А 09 77 09 ОВ 78:5F 
F910 Ві 20 ҒО 7B CD СС 1А CD:BC 
F918 O6 1B C3 70 F2 2A BS ҒЮ:20 
F920: 01 1F 02 09 C? 21 CB FEsDE 
F928 06 ОС 56 00 23 10 ЕВ C9:3F 
Е950 06 ЗА 28 14 D6 FC 28 02:48 
F938 Е! С9 52 ІҒ ҒА 09 07 09:7Е 
F940 В7 57 СВ Dé ЗА 20 F1 36:15 
F940: 5р 52 ІҒ ҒА 09 11 СВ ЕЕ: ЗВ 
2950 06 06 25 7E 87. 28 11 ҒЕ:9ЭВ 
F958 2С 28 Ор 12 15 10 ҒЗ 23』AC 
F960 7E B7 28 04 FE 2C 20 F71A2 
F968 09 C9 09 D7 D9 B7 СО ср: ёғ 
F970 ДЕ ҒО 11 79 ҒО 21 ОА FEsEO 
F978 06 ов CD 6A ҒО D? 21 00:52 


F9C8 ОҒ 04 1B 18 28 2B D9 06:7Е 
F9DO ОВ CD ЗЕ Fi 10 FE 18 89:01 
F9DB 09 18 Ав ЗЕ 04 90 47 CD:7D 
F9EQ さ F F1 10 FB 06 04 CD 4С:5Е 
F9EB Е! 10 FB 06 04 CD 3F Ғі:05 
ҒӘҒО 10 FE 18 BD 06 04 CD SB:C2 
F9F8 Е! 10 FB 09 25 18 ВВ ОО: СЕ 


Де 


нн タイ ニー モニタ BASIC リ スト 


CLEAR 100, НЕФОО: GOSUB 800 
CLS:PRINT "ж TINY MONITOR ж 
PRINT ">";:6050В 500 

PRINT A$ 
IF А%="а" 
IF A$="m" 
IF A§="g" 
ТЕ АФ-"1" THEN 400 

IF АФ-"е" THEN END 

FRINT CHR%(7) $ "ERR": GOTO ЗӨ 
GOSUB 600 

IF INT(AD/256)=@ THEN X=USR( 


THEN 
THEN 
THEN 


199 
290 
зод 


909 
190 
110 
9) 
120 X=USR (AD) :РАТМТ " 
150 SM=GiFHR І=0 TO 7 
140 D=FEEK(AD+ 1 ) : 5М=5М+0: X=USR (D 
)gPRINT " "; 

150 МЕХТ:РКІМТ ":"; :X=USR (SM АМО 
255) 


160 ТЕ ІМКЕҮФ<>"" THEN GOTO ЗӨ 
179 AD=AD+8:GOTO 110 

200 GOSUB 699 

210 IF INT(AD/256) «д THEN X=USR( 
ө) 


229 X=USR (Ар) :РКІМТ " 
ЕЕК (АО) ) :РКІМТ "—"j 
250 GOSUB 500 

240 IF A$=CHR$ (8) THEN PRINT: Ара 
AD-1: GOTO 210 
259 IF A%=" " 
:00Т0 210 

260 IF A$=CHR$(13) THEN PRINT: GO 
то 30 


"š s X=USR (P 


THEN PRINT:iAD=AD+1 


279 GOSUB 700:IF А%="@" 
NT СНКФ (7)$"?":GOTO 210 
289 DH=D: GOSUB 500: GOSUB 700: IF 
A$="@" THEN PRINT CHR$(7);"?": GO 
ТО 210 

290 POKE Ар, рнж1 6+0: Ар=Ар+1: РКІМ 
T:GOTO 210 

500 GOSUB 699』 ST=AD: IF ST<@ THEN 
BT=ST+655 さ 6 

519 AD$="": INPUT "END ADDRESS="i 
AD$:IF (ЕМ (AD$) >4 THEN 510 

529 GOSUB é420:IF AD<O THEN AD=AD 
+65536 

550 Ар-АП-5Т%1:ІҒ AD<@ THEN 90 
540 РОКЕЗНҒЕСВ,5Т-ІМТ(6Т/256) #25 
6: FUKE&HFECC。 INT (57/256) 

550 POKE&HFECD, AD-INT (AD/ 256) #25 
6:РОКЕЗНҒЕСЕ, INT (AD/ 256) 

569 INFUT "FILE NAME=";F$:F$=F$+ 
ПЕС 

379 Е1=АБС О ЕҒТФ (РФ, 1) ) :Ғ2=А5С (М 
10%(Ғ%,2,1)) 

580 РОКЕЗНҒЕСҒ,Ғ1:РОКЕЗНҒЕрО,Ғ2 
5909 PRINT "Wrighting...":EXEC&HF 
COQ: БОТО 30 

400 РОК I=&HFED3 ТО &HFED6 

410 РОКЕ 1,0 

420 МЕХТ 

450 РКІМТ "Loading. ..":EXEC&HFC2 
A:GOTO 39 

509 ЕХЕСУН! 191 : А$=1МКЕ\У$ ; ЕХЕСУН1 
1В1:ІҒ А%-"" THEN 500 

519 RETURN 


ТНЕМ РКІ 


PC-8001 の DK 表示 の 変更 


あま り 意 味 の な い プ ログ ラム を 発表 し ま 
Т. な ん て 書く て だ れ も 読 ん で くれ な いか 
も し れ ま せん が , まあ , が まん し て 読ん で 
くだ さき さい. 

いっ た い 何 の ゲ プロ グラ ム で ある か と 申し 
ます と , PC-8001( 以 下 PC と 略す ) で 命令 
実行 後に 画面 に あら われ る OK” と いう 表 
示 を や め て 違っ た メッ モー ジ が 出る よう に 
L, つい で に 現在 あい て いる メモ リー の 量 
(フリ ー エ リア ) を 表示 する , と いう も の 
TF. プロ グラ ム は 短 か い の で 特に 説明 は 
し ませ ん が 。 行 番号 100 の M $ は , フ リー エ 
リア 表示 用 の メッ セー ジ で す が , 15 文 字 以 
上 に し な いで くだ さい 人 ( 行 番号 110 の M $ は 
か まい ませ ん ). 一 度 RUN き せ て し まえ ば 
“МЕМ” し て も 平気 で す が , リモ セッ ト す る 
と 表示 が ^OK” に な っ て し まい ます . この 
場合 は 、 モニ ター で F16E 番 地 の 内 容 を `C 
3" に すれ ば 回 復 し ます . 

最後 に 主 に 使用 し た ROM 内 ルー チン を 書 
いて お きま す (使い 方 は プログ ラム を 見 れ 
ば 分 か る と 思い ます ). 


PRINT CHRS(Acc) 

PRINT“ ” 

FAC=FRE( | ) 
FAC=CINT(1) 

PRINT HLreg 

PRINT M$. 

PRINT CHR$( 13) +CHR$( | O) 


609 AD%="";INPUT 
"$ AD$ 

610 IF LEN(AD$) >4 THEN 600 

620 AD=VAL ("&H"+AD$) 

430 RETURN 

799 A=ASC(A$):IF A>47 AND A<58 0 
R A>96 AND A<103 THEN 720 

719 A$="@": RETURN 

729 PRINT СНК%(А%(А>96) #52) 1 
730 D=VAL ("&H"+A$) : RETURN 

B99 FOR 1=&НЕСӨӨ TO &HFCB4 

819 READ А%:РОКЕ I,VAL ("&H"+A$) 
820 _ NEXTiPOKE&HFAEB 。 ҰН09:РОКЕЗНҒ 
AEC, НЕС: RETURN 

830 DATAcd, a8, 25, 06,05, Se,af,cd 
840 DATAbe,25,cd, 06, 1b,cd,a8,25 
850 DATAZa, сь, fe,ed,5b,cd,fe,7e 
860 ГАТАса,сс,1а,89,47,23,15,7а 
879 DATAb3,20,f4,78,cd,cc,la,c3 
880 рАТА06,1Һ,с(,%а,25,11,аҒ,05 
899 DATAcd, 4e, 25,21,cd, fe, 06,06 
900 ПАТАсЧ, 70, 1а, 77, 2$, 109,+9, 21 
910 ПАТА?76, 25, са, 85, 25, 2а,са,+е 
920 DATAed, 56, с+,+е,с4,9а, 25, са 
930 ПАТА7О, 1а, 77,80, 47,25, 16Ь,7а 
940 ПАТАБЗ, 20,+4,с4, 70, 1а,ЬВ, cd 
950 ПАТАаа,1а,с8,21,85,93,с35,с4 
960 ПАТАЗ0О,ссі,41,097,7а,57,с4,72 
979 ПАТАҒс,7Ь,4Ғ5,0Ғ,0Ғ,0ғ,ОҒ,са 
989 раАТА7Ь, #с, #1,её, 0+, Ғе, да, де 
999 рАТА69,27,с5,75,10 


"START ADDRESS= 


ФЕ 


190 М$=" 
DSUR өө 
110 
о 

129 
150 
140 
150 
1609 
170 
189 
199 
290 
210 
220 
250 


byte free 


QD=&HF 16E 
POKE AD, „HES 

FOKE AD+1,%HDƏ 
FOKE Ар+2,%НЕЕ 
FOR I=9 TO 66 

READ 
РОКЕ 
МЕХТ 
END 
рата 
рата 
DATA 


*HEFDƏ+I,D 


с?у47,у сп, са, 


За, 49, eb, B7, с, 
ЕЖ 


) "+СНКФ (©) s А=УНЕ 959: G 


M$=" Ready" +CHR$ (6) : A=%HF 940: GOSUE 30 


DD=VQL ("%H'"+D%$) 


Ziroc cd 


240 
250 
269 
270 
289 
299 
өө 
319 
520 
550 


540 


5+, 
со, 


әз, 


57, 92, ,cd,d4, 
45,ef,cd,51, 
2а,а8,49,11, 
52.са, 15,24,21, 
есі, 52.са, са, Sf, 
рата са, еа, 52, са, са, 
DATA 5с, ез, c? 

РОК Ізі ТО 1ЕМ(М%) 
D=ASC (МІр% (M$, 1,1) ) 
FOKE А-1+1,0 

МЕХТ 

RETURN 


рата 
рата 
рата 
рата 


90,67, ed 
хо, FO, cd 
21,40, fO 
Sf, 21,94 
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в — АЙП 


т 
FM- フ の ゲー ム 作り ノウ ハウ を 完全 公開 


これ か ら 数 回 に 渡り , FM-7 の サブ CPU 
を 1 人 で も 多く の 方 に 理解 し て いた だ き 高 
速 ゲ ー ム に 利用 され る こと を 目的 に , ゲー 
人 ム 『 空 中 戦 」 を 例題 に し て 他 の ゲー ム に も 
流用 で きる サ プ ブルー チン 等 を 紹介 し な が ら , 
プロ グラ ム を 最初 か ら 順 次 説明 し た いと 思 
いま す . 
BEE KE XE XIE IE KE XIE XIE XIE XIE XIE XIE XIE XIE XIE XIE XE 


サブ CPU の 乗っ 取り 
れれ れれ れれ れれ れれ れれ か れれ 2 

高速 アク ショ ン ゲ ー ム と し て の サブ CPU 
の 使い 方 は メン テ ナ ン ス ・ コ マン ド が 起用 
Sh, その 活用 法 は 大 別して 2 種類 あり ま 
す . 

を の 1 つ は コマ ンド 別に 細分 化 さ れ た 表 
示 プ ログ ラム 等 を サ プ CPU へ 送り 、 そ の コ 
マン ド を メイ ン CPU が 管理 し て 画面 の 表示 
場所 等 を メイ ン で 計算 し て , それ に 対応 す 
る コマ ンド を サブ へ 発行 し て 画面 表示 等 を 
する 場合 で す . これ は 2 CPU の 同時 稼動 が 
可能 で , 2 CPU の 理想 的 な 活用 方 法 の 1 つ 
で し ょ う .。 これ に つい て は , 機会 が あり ま 
し だ ら 詳 し 述べ だ た いと 思い ます . 

今 1 つの 方 法 は 例題 の ゲー ム が 使う 方 
法 で , 次 回 か ら 順 次 説明 し ます が 表示 デ 


表 1 SUB シ ステ ム の フリ ー エ リア 


0000 ЖФУ-РАМ 
3E7F 
SE80 384 バ イト ・ フ リー 
ЗЕЕЕ 
4000 赤 の V-RAM 
7E7F 
7E80 384 バ イト ・ フ リー 
7FFF 
8000 縁 の V-RAM 
BE7F 
BE80 4.368 バ イト ・ フ リー 
CF8F 
CF90 シス テム ・ ス タッ ク 
CFFF ゲー ム で の 最大 見 積もり 
D000 シス テム の DPR 
D00C 時 計 
роор 
00 0Е 1 秒 加算 
DOOF 20ms 加 算 
D05F 
D060 608 バ イト ・ フ リー 
D2BF 
D2C0 
D360 1 キー 入力 情報 
PF キー 入力 情報 
転送 終 予 後 は 
128 バ イト ・ フ リー 


注 : バイ ト 数 は 10 進 


表 2 ゲー ム で の メモ リ 仕 様 


3E80 予備 
3FFF 
7E80 | ワー ク ・ エ リア 
7EFF 128 バ イト 
7F00 DPR 

| 7FFF 表 3 を 参照 
BE80 プロ グラ ム ・ エ リア 
CF8F 
D060 グラ フィ ッ ク 
D2BF デー タ ・ エ リア 


ー タ を 含む ゲー ム ・ プ ログ ラム の すべ て を 
サブ CPU へ 送り , 直接 画面 制御 (V-RAM 


へ の 書き 込み , 読み 出し ) を する も の で す . 


この 方 法 で は 20ms 加 減算 , 時 計 エ リア , + 
ー デ ー タ 参照 お よび キャ ン セ モル 等 の エリ ア 
を 直接 制御 する こと が で きま す . 

ここ で 問題 し な る の は , ユー ザー 側 で 確 
保 び どき る プロ グラ ム 。 デー タ 。 ワー ク 等 の 
エリ ア が 制限 され る 点 で す . し か し 私 が 過 
去 に 発表 し た ゲー ム の 大 半 は , この 方 法 を 
採用 し て お り ,. し か も , ま だ 余裕 さえ を ありま 
T 

それ で は 一 体 ど れ く らい の ユー ザー エリ 
ア が 確保 で きる の か ? RIZZATI 
5, 合計 で 5,872(10 進 ) バイ ト 使 える こと 
が わか り ま す . 限ら れ だ た スペース を 有効 に 
利用 する ため,。 ゲー ム と し て の メモ リ ・ マ 
ッ プ を 表 2 に 示し ます . 


E XIE IE UE le ЕДЕ ZE XIE LIE XIE XE XE 
О 77 
れれ れれ れれ れれ れれ れれ れれ 23 
ゲー ム で 相手 ( 敵 ) 等 を 同一 画面 に 複数 
個 表 示す る 場合 、 それ ぞ れ の 現状 を 管理 す 
る 必要 が あり ます . 現 状 と は TV 画面 上 に 表 
示 中 か 否 か の フラ グ ま た 表示 中 の と き は , 
その 位置 を 示す 行列 それ に 爆発 処理 か どう 
ヵ か : の フラ グ で す . 処理 スイ ッ チ 等 で 最低 5 
バイ ト と する と , 表 2 の よう に 128 (10 進 ) 
バイ ト 確 保 ヒ て いる の で 25 個 分 は 表示 で き 
ます . この エリ ア に ワー ク ・ エ リア を 設定 
する と 画面 を クリ ア す る と 白紙 に な り , < 
れ だ け プ ログ ラム が 軽減 きれ る こと に も な 
り ま す . 
れれ れれ れれ れれ れれ れれ れれ 33 


ОРН (21525-7 
レジ スタ 
れれ れれ れれ れれ れれ れれ れれ が 23 
余談 に な り ま す が ,DPR と は CPU の 外部 
レジ スタ の こと で 256(10 進 ) バイ ト あ り ま 
+. これ は CPU 内 部 の レジ スタ と は 異な り , 
RAM の 1 部 を 割り 当て る に すぎ ませ ん . し 
か し 普通 の メモ リ (番地 ) を 読み 書き する 
より スピ ー ド が 速い (メモ リ の 上 位 バ イト 
を ハー ド で 管理 ) た め , 高速 ゲー ム で 多い 


E] SUB シ ステ ム の 2 種類 の 乗っ 取り 方 , 比較 図 


(① コ マン ド 別 に 細分 化 さ れ た 表示 プロ グラ ム 等 


② 旧 コマ ンド は 処理 し た қ 
メイ ン CPU 
③④ 新 コ マン ド を 発行 


以下 ② と ③⑬③ の 繰り 返し 


① ゲ ー ム ・ プ ログ ラム の すべ て を 転送 


нен サ プ CPU‏ و ر 


③ サ ウン ド 指 令 (FIRQ) 


SUB 独 自 で 実行 


以下 の ② ま た は ③ は 必要 に 応じ て 割り 込み 処理 を 実行 


注 : 両 方 と も ① は 初期 設定 と し て 1 回 の み , また は , 


必要 に 応じ て 行なう . 
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に 活用 し て くだ さい . 表 3 ゲー ム で の DP 仕様 が タイ マ で 規則 正しく ループ し て いる た め 
さて ,FM-7 の サ プ ・ シ ステ ム の DPR は, 000 REAK キ Қау 真 の 乱数 は 20ms の 加減 算 エ リア で は 得 ら れ 
$D000 か ら に 設定 され て いま す が , この エ 001 желе, 1 回 の ルー プ 処 理 で 余計 な 時 間 
リア を ユー ザー が 使っ て 、 メンテナ ンス ・ өзе だ け こ の エリ ア を 加算 し て , 乱数 を 発生 る 
コマ ンド を 無事 終了 きせ た と し て も , BA- 030 せ て いま す . 乱数 な けれ ば ゲー ム じ ゃ な い 
SIC が 正しく 運用 で きる と は 限り ませ ん . 0 3 2 … で すね . 
そこ で プロ グラ ム の 入り 5 口 で 表 2 の エリ ア 033 34—49 (10 進 ) は サブ プ か ら メ イン へ の 高 
ЖЕСІ て いま あす 。 1290, シス テム から 034 速 割り 込み (FIRQ) の バッ ファ に 割り 当て 
分 離し た DPR 上 で も 0 か ら 29 (10 進 ) は 使 Se て いま す . 50 (10 進 ) か ら は ゲー ム 全 体 と 
えま せん . 050 | と で の て ДЕН し て 使う ゲー ム ・ レ ベル , 得点 等 に 使い ま 
ДЕ 255 № ES +. 


ゲー ム みこ とし て の 注 : アド レス は 10 進 それ で は 次 回 か ら は , いよ いよ プロ グラ 
ОРА ム の 説明 に は いり ます . ソー ス ・ プ ブロ グラ 
BEE REE XE XIE XIE XIE XIE XIE XIE XIE XIE XIE XIE XIE XIE XIE XE プ ・ カ ウン タ が 2 一 3 個 、TV テ ドレ ス ・ レ ジ , ム ・ リ スト も 載せ る 予定 で すか ら 6809 の エ 


ゲー ム と し て の DPR の 使い 方 は 表 3 の よ デー ター・ ン レジ 等 が 必要 で , CPU 内 部 の レジ ディ タ , アセ ンプ ラ を 用 意 き れる と 良い で 
ЕЕ Ы ЛО スタ で は 不足 する た め フ リー カウ ンタ を を し ょ う . 持 っ て いな い 方 は I/O 別 冊 の FM 活 
タ と は BASIC で の FOR 一 NEXT 廊 の 変数 の 延長 と し て 使い 。 3 バイト 確保 すれ ば 大 用 研究 等 に 載っ て いま すか ら 入 力 し て お い 
と 類似 し て いま す . 決 回 以降 の グラ フィ ッ ク 抵 間に合い ます . а». 
処理 で も 説明 し ます が , ドッ ト の キャ ラク 乱数 も DPR 上 に 置き ゲー ム 中 スピ ー デ ィ 
タ ・ デ ー タ を 画面 上 で 組み 立て る に は ルー に 読み 出す こと に し ます . プロ グラ ム 全 体 


SIC プ ログ ラム を 読み 込み ます . こん な 大 き な キ ャ ラク タ だ けど と っ て も スピ ー デ ィ 
@ LOADM と し て マシ ン 語 プロ グラ ム を 
読み 込み ます . 
9 RUN で ゲー ム が スタ ー ト し ます . 
プロ グラ ム の 入力 遊び 方 
⑱ リ スト 1 の BASIC プ ログ ラム を 入力 し , テン ・ キ ー の [4] t [6] を 使っ て こち ら の 戦 
カセ ッ ト ・ テ ー プ に セー ブ し ます . 闘 機 を 操作 し て , 敵 の ミサ イル を 避け な が 
@ リ スト 2 の マシ ン 語 プロ グラ ム を 入力 し , 6, [SPACE] キー で ミサ イル を 発射 し て 敵 の 
BASIC プ ログ ラム の 後に モー グ し ます . НЕШЕ РТС š 2720 £ ( REELT I, 
実行 敵 の 戦闘 機 に は 3 種類 あり , 高 性 能 戦闘 機 
⑯ テ ー プ を 巻き 戻し , LOAD] た し て BA- ほど 得点 が 高く な っ て いま す . 


スト 1 空中 戦 BASIC リス ЬЕ АННАН 


19 DIMAZ(15) 


2,7: SOUND3, ó: SDUND4 19: SOUNDS ©: SOUND7 , & COLOR= (7, 1) 


20 Н18С«Ф H3B: SOUNDA, КНЕ : SOUND? , НЕ : SDUND 1 の 。 НЕ 849 FORJ=1T040: МЕХТЈ 

30 Ніе«0діН2«ді Н5еді Н4-д 479 FDRI=1TO19 85@ COLOR= (7,2) 

49 COLOR7, © 489 J=PEEK(&H6FF2) : IFJ< >ӘТНЕМ510 820 FORJ=1T049INEXTJ 

то WIDTH40, 20 490 МЕХТ 870 МЕХТІ 

60 FORI=OTO7 500 GOTO53@ 980 COLOR= (7,7) 

79 COLOR= (1,1) 519 POKE&HOFF 2, Өз SOUNDé, КН1Ға SOUND7, 7180 | |890 SYMBOL (270, 130), "HIT ANY KEY", 2,1,7 
8@ NEXT UNDE, kH1@: SOUND? , &H1 O: SOUND 1 û, &H1 бз SOUND 9 の 9 I$=INKEY$ 

90 ЗУМВОЕ (170,25), "GAME message",3,2,3 11,0: SOUND1 2, 10: SOUND13, © 910 I%=INFUT%(1) 

100 РОКЕМН5789, © 520 РОК1=110359©: МЕХТТ: РОКЕ&НОЕЕ1, © 920 BOTO49 

110 EXEC&H5GG ひ 559 1I=PEEK(&HoFFA) 』 IF 1< >0ТНЕМЗОЦМО6, 3:50 ||930 "----- HI-SCORE SUB ルー テ ソ ーーーーー 


129 SYMBOL (189,55), "POINT", 2,1,4 RST RUDR НО EI DERRIDA 940 81=PEEK(&H6FFF) 

1 9,0 4 
14e SYMBOL (180, 100), “ase. 2,1,7 Баз 607042 340 83-PEEK(&HeFFD) 
150 SYMBOL (180, 125) , "=100" 2 1,7 550 PL=PLー1 970 84=FEEK(&H6FFC) 
150 SYMBOL (350,55), "PLAY КЕҮ",2,1,4 о: 980 8С=81*10+52*150+85*1000+84*10000 
12% SE SOS ЕСТІ ай ЕЕК (AEF Sy SBS e E THEN1 020 
99 SYMBOL (550,95), "RIGH TE U 
190 SYMBOL (350,115) , "STOP---ANY", 2,1,7 || 588 SYMBOL (X, 150), "#",5,3,3 1010 H1=S1:H2=S2íH3=S3rH4=S4 
200 SYMBOL (350, 135) , "ATTACK--SP", 2,1,7 599 SYMBOL (X+9, 157), "*",5,1,6 1920 LINE (5912,80) - (552,87) „РЕТ, 4, BF 
210 SYMBOL (400,170), "HIT АМҮ КЕҮ",2,1,5 во SOUNDS, &H1 Or SHUND7 , 7: SOUND8, &H1 0: SOU 1030 SYMBOL (544,80), "0", 1,1,4 
220 I$=INKEY$:’----- KEY テーー ク キャンセ ルー ニーーーー ND9, &H1 O: SOUND1 0, Ні 9з SOUND1 1, O: SOUND1 2, 1940 SYMBOL (528, 89), 6ТК%(Н1),1,1,6 
259 I$=INPUT$(1) 701 SHUND 1 さ 。 © 1050 SYMBOL (520,80), STR$ (Н2),1,1,6 
240 FORI=(&H6FFO) TO (&H6FFF ) 819-НӨРдейтизФӨкҺЕКТІ 1060 SYMBOL (512,80) , STR$ (H3), 1,1,6 
250 РОКЕ1,0 620 FORI=1TO10 1070 SYMBOL (504,89) , STRS (Н4),1,1,6 
260 NEXT * 859 FORJ=0T07 ә 
279 COLOR= (0, 0) 1 COLOR™= (2, 6) 1 COLOR™ (3, 2) а ا ا‎ ны ны МР E 
COLOR= (4, 6) 』 CULDR= (5, 0) ы) 
280 COLOR7, 4 d 660 FORJ=1TO2@iNEXTJ 1119 ҒОКХ-512705728ТЕР250 
299 CLS 670 FORJmGTO7 1120 FORI=ƏTO15 
309 LINE (55, 19)- (454, 177) ,PSET, ©, BF ея и? пш жерк 
310 LINE (55, 19) - (456, 177),РЗЕТ, &,В 
529 505081990 ы 5 ыы 700 FORJ=1T02@:NEXTJ 1150 РЦТФ(Х%2,29)-(Х%17,55),А%,РЗЕТ,3 
330 ЗУМВОЕ (512,70), "HI-SCORE", 2, 1, 3 710 NEXTI 1160 PUT@(X+1, 20) -(Х+16, 35) ,АХ,РЗЕТ, 3 
549 60508940 720 СООК» (0, 0) 』 COLOR™= (2, 6) 1 COLOR™ (5,201 1179 РОТ@(Х,20)-(Х+15, 35), АХ,РЗЕТ, 7 
350 SYMBOL (512,109), "SCORE", 2,1,3 COLOR= (4, 9) 1 COLOR= (5, ©) 1 COLOR= (6, 6) r COLO | |1184 NEXTX 


Ке (7,7) 1 1=РЕЕК (&H6FFB) 1 COLOR™ (1,1) 
759 FORI=iTO3000 

740 МЕХТ 

759 IFPL=oTHENBG ひ 

789 (.1МЕ(55,19)-(456,177),РЗЕТ,9,ВҒ 
779 LINE (55,19) - (454, 177) ,PSET, 6, B 
780 РОКЕМН5789,2 Е 

799 GOTO410 

BOO SYMBOL (119,199), "GAME OVER", 4,2,7 
810 60589460 
FORI=1 T020 


1190 RETURN 

1200 DATA2S6, 256, -2, -5276%,-31614,1152,2 
180, 12540, -16384,0, 16376, 256, 256, 256, 256 
‚-2 

1210 рата256, 256,256, 32764, 16644, 16644, 1 
6644, 16644, 16644, 16644, 52764, 16644, 256,2 
56,254,256 

1220 БАТА-28128,-28129,-27612,52,-466,-2 
7664, -28128, -478, -28126, -28126, -492,4114 
,4194,-488,4195,4482 


360 SYMBOL (512,110 
579 SYMBOL (512,140), 
380 PL=3 

599 РОКЕ\Н5789, 1 


419 ЕХЕСҠНЗООО 

420 І«РЕЕК(%НЫҒҒО) 

439 IF1>(&H7F ) ТНЕМРОКЕҺНӘЕҒӘ, Өз GOTOSSO 
449 1=PEEK(&H6FFB) 』 COLORK= (1,1) 

450 1=РЕЕК (&H6FF 1 ) 』 IF 1= ら THEN さ の 

469 POUKE&H6FF 1 。 Ot SOUNDO, 6: SDUND 1 , Ör SOUND 


リス ト 2 ZPR vl WU Z и 


+0 +1 2 +3 +4 +6 +7 
ЗЕ ЕС ВЕ ОО Ер 84 2 
44 58 ЕЕ ВЕ 80 84 
09 OA 26 Ев 20 26 ЕС 
52 24 CB о5 52 25 
оз éC 8р 54 01:97 
F8 9Е 33 30 89 40 84 
DO E2 05 97 ЕС СЕ 
вв 50 1Е 26 16 FD 
зї 89 ОО 6F 6F 01 
ав 50 1Е 26 16 Ер 
15 96 вв 01 
44 44 


5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 Ü с 00 оо 
5540 5 27 EF 84 
5550 о оо BA 


20 01 
1F 26 
28 39 
FF FF 
ОЕ FO 
оо оз со оз 
FF O3 ) OF FO 
ОР FO F8 3с 
E ЗЕ FC FE FF 
S2FO 32 0 15 оо 0 20 Ò 5 SAFO OF E EE 77 78 ФЕ 


43 24 55 ОЕ А7 


+3 +4 +6 +7 

ЕЕ ЕЕ оз ЗЕ 

07 ЕО CO 01 

2 ОҒ РО ЕО 07 

ЕВ 1F 28 1С ОВ 

00 ОҒ оо FO 00 оо 07 

ЗР ҒС ОҒ 00 3F ЕЕ ОҒ 
FO ОЕ оо 3С ОЗ 
ЕО ОЗ РО ОО ҒО 
оо о оо 
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パソ コン を 自分 で いじ る よう に な れ ぱ ば , 
1 つの 壁 を 乗り 越え た よう な も の で す が , Ш 
時 に 次 の 璧 に すぐ ぶち 当たっ て し まい ます . 
それ は , 自分 で や っ て いく よう に な る と , 
マニ ュ ア ル の 内 容 よ り 高 次 元 な こと が ら が 
出 て き て , それ ら が 頭 を 悩ま せる の で す . 

仲間 が いれ ば 尋ね る こと が で きま す が , 
一 匹 狼 の 人 な ど は その 苦労 が よけい に 大 き 
で なり まま と が か じじ と ここ で くけ は で は い 
け な い . 現在 |/O 誌 上 て 活躍 し て いる アマ チ 
ュ ア ・ プ ログ ラマ ー た ちち も 同じ 苦し み を 味 
わっ て , あそこ まで 育っ て きた の で すか ら . 

それ で は , マイ コン 人 生 の 相談 室 に 入る 
ЕЕ ЕО. 


これ は バグ で は あり ませ ん . $3, マニ 
ュ ア ル の デイ スプ レイ ・ ュ コー ド 表 と ASCII 
ュー ド 表 を 見 比べ て みて くだ さい. ディ ス 
プレ イ ・ コ ユー ド 表 に あっ て ASCI コ ー ド 表 
に な い キ ャ ラク タダ が あっ た だ で し ょ う 。 

BASIC で の PRINT 文 の "の 中 の キャ 
FAATAA CASCI コー ド 上 し で て メモリ 
に 格納 され ます . 20729, ASCILI コ ー ド 
表 に 載っ て いな い キ ャ ラク タ は 無茶 苦 茶 な 
コー ド に 変換 きれ て し まう の で す . 

MZ-1200, 80K/C は 最近 の マシ ン と 違っ 
て それ ぞ れ が 違う 順番 の コー ド 表 に な っ て 
いま す . ディ スプ レイ ・ ユ コー ド は V-RAM 
に 格納 され る と き の キ ャ ラク タ ・ コ ユ コード, 
ASCII コ ー ド は メイ ン RAM( テ キス ト 用 の 
ВАМ) に 格納 され る と き の キ ャ ラク タ ・ コ 
ー ド で す . 

だ た と えば , СВТ (ディ スプ レイ 画面 ) 上 
に 『1」 を 表示 する と し ます .『1』」 の ディ 
スプ レイ ・ コ ー ド は 33(10 進 ), ASCII コ ー 
ド は 49(10 進 ) で すね . わか りや すい よう に 
わざ と CHR 関 数 を 使い ます . 表示 する 位置 
は 画面 の 左上 (HOME 位 置 ) に し まし ょ う . 
通常 で は 

CURSOR 0, 0: РІЛМТ“1” 

で すね . 次 の よう に し て も 同じ 結果 に な り 
424, 

@CURSOR 0, 0: PRINT CHRS(49) 
ӨРОКЕ 53248, 33 


き 込 む 命 令 と 解釈 で きま すね (わか ら な い 
人 は マニ ュ ア ル を 熟読 し また しょう. ツン 読 
は いけ ませ ん ). ⑧@ は POKE を 使っ て 直接 V- 
RAM に 書き 込む 命令 で す . 53248 は V-RAM 
の 先頭 アド レス (CURSOR 0, 0 の 位置 ) を 10 
進数 に し た も の で す . 

も し , ASCI コ ー ド に な い キ ャ ラク タ を 
表示 させ だ た けれ ば , な … の 方 法 を 使え ば よい 
の で す . 質問 に あっ た 「 園 」 を 表示 きせ だ た 
けれ ば 
-POKE 53248+ x+ y ж 40, 255 
と や れ ば CRT 画 面 の x, y で 指定 し た と ころ 
に ディ スプレイ ・ コ ー ド 255 の 「『 園 」 を 表 
示す る こ と が で き : ま す . 

Жо му ПУ, ディ スプ レイ ・ コ ヨー 
ド ょ と ASCII コ ユー ド が 同じ 順番 に な っ て いる 
か ら 便利 で すね . で も , ディ スプ レイ ・ コ 
ー ド と ASCII コ ー ド が 別々 に な っ て いる と , 
キャ ラク タ を 多く 使う こと が で きる の で すす 
MSCE С, プラ スジ ウジ イッ ュ コ ミー 
ド は 画面 に 出す た め の も の で , А5СПа — 
F ド は 0 一 31(10 進 ) ま で は コン トロ ー ル 用 ( カ 
ー ソ ル の 移動 , 画面 クリ ア , ベル の 音 出し 
ес.) と し て 使わ れる か ら で す . つま り , 32 
個 分 余計 な キャ ラク タ が 使え る の で す . 

マイ コン 相談 室 は , 皆様 が 日 頃 疑 問 に 思 
っ だ ご こも AY ЭМИ 
どの ユニ ー ク な 質問 を 募集 し て お り ま す . 
それ で は 次 回 まで , Adios / 


今回 も 1/0 プ ラ ザ あ て に 寄せ られ だ た いくつ 
か の 質問 に お 答え し て いき ます .。 まず は , 
『 新 谷 か お る と 高橋 留美 子 の まん が が 好き 


⑱ は ASCII コ ー ド の 49 を HOME 位 置 に 書 
| 7777 7 62 7л. 0) д h HJ UU U —— h 


PAGE 001 (821201,002825) MUSIC EDITER SUB - ア セン ジル ・ ソ ジー ズ 


な R.N」 く ん か ら の 質問 . ノーー エ ディタ の 行 番 号 ҚАРАҚ ous 
に Ж ooooo プ ジ ェ クト ・ デ ー タ TTL MUSIC EDITER SUB 3 
ы < (¿SV 3 2BE 2 年 弱 の 男 で す . と こ 00001 アド レス (モニ タ か ら は この 部 分 ОРТ ОВЈ, МОБЕМ 
ыс, アセ ンプ ブル ・ リ スト の 中 の 「『0001』 00002 р を 打ち 込む ) * 
z $ 00003 5000 ORG $5000 
な ど は どう すれ ば よい の で し ょ うか ? 00004 5000 20 05 5005 BRA WRPSG 
00005 5002 0001 REGNO BSZ $1 Register NO. 


あな だ の 言っ て いる 『0001」 と いう の は , 


к 00006 5005 0002 SDATA BSZ $2 Sound Data 
リス ト 中 の 一 番 左側 の 数 字 を 示し て いる の о0007 * aa 
Е š 3 оооов * WRI 
сео. SAUCE, 6 の 数 字 を 下 の 方 へ 00009 * 
əр + ғ р 00010 5005 54 0 WRPSG PSHS A,B 
た どっ て いっ て みて くだ さい .。 10 進 数 で し 00011 5007 Ab ВС F8 LDA <REGNO,PCR 
だ か? それ と も 16 進 数 ? 00012 500A 44 LSRA 
ы Ё 26 " 00015 5008 25 02 5ooF BCS x+4 
10 進 数 の 場合 , これ は エディ タ (アセ ン 00014 5000 Ab E4 LDA 。S 
ブリ 言語 で プロ グラ ム る と き に 使う ツ 00015 5ooF Eó ВС F2 LDB く SDATA+ 1 、PCR 
言語 КА を 作 е 使う 00014 501280 08 SOIC BSR PSG1 
ー ル の 1 つ ) の 行 番号 で びす. エディ タ ・ ア セ 00017 5014 4С INCA 
ЕЛЕНЕ а шл, ЖЕ үс ТЕТЕ 00018 5015 ЕБ ВС ЕВ LDB <SDATA, PCR 
ンプ ラ を 持っ て いれ ば 数 字 ど お り の 行 に ア 00019 5018 вр 02 5016 BSR || PSB1 
セン プリ 言語 を エディ タ で 打ち 込ん で くだ 00020 5014 55 86 PULS А,В,РС 
00021 * 
зе. 00022 501C 34 02 PSB1 PSHS А 
р Ж ЕЕ 00025 501Е В7 ЕГОЕ STA $FDOE 
16 進 数 の 場合 は ,、 マシ ン 語 を 格納 する ア 00024 5021 Bé 05 LDA #$05 
FLATT. エディ イタ ・ ア セン プラ を 持っ 00025 5025 B7 FDOD STA $FDOD 
š Ы Б А 00026 5026 7F Ғор CLR *FDOD 
て いな い 人 は , この アド レス か ら オ フジ ェ 00027 5029 F7  FDOE STB $FDOE 
シン 語 ダ ンプ "・) al に 00028 5о2с 84 02 LDA #$02 
2%%, マシ ン 瑞 ダン プ ・ リ スト と 同じ 要 00029 502E B7  FDOD STA $FDOD 
領 で 入れ て いけ ば いい の で す . 00050 5051 7F ЕрОр CLR «ғрор 
А а 00051 5054 55 82 PULS А, РС 
続い て 『 ミ ン キ ー モ モ が 好き な 佐藤 俊也 』 00052 * 4 
È 00033 * 
くん か ら の 質問 . 00054 5000 END $5000 


45М2-1200, 80K/C の SP-5030 で PLINT 
ФЕ Г. > ГМ, BEDE 5 
クタ が 入る の で し ょ うか ? 

以前 に 入れ て みた の で す が , 表示 させ て 
みる と 「『「 罰 」 は 『 一 」 に な っ て し まう の 
CS あの БЕ. МЕСТ, ге, 
を 入れ て みる と , 今度 は ちゃ ん と 出る の で 
す . これ は 私 の SP-5030 に バグ が ある の で 
Эм. 275, バグ で な けれ ば どう し て 
この よう な こと が 起こ る の で し ょ うか ? 


Ф 


TOTAL ERRORS 00000--00000 
TOTAL WARNINGS 00000--00000 


PROGRAM BEGIN ADDR=5000 
PROGRAM END ADDR=5035 
FROGRAM ENTRY ADDR=5000 
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pi 〇 O パ ザー ル 


Ф 1/O 誌 "81.4 月 号 一 12 月 号 (6 月 号 無 ) 
を \2Kー\3K で . 秋 葉 ま で 来 て くれ る 
方 . 
% 136 江東 区 大 島 4-5-11-204 

小宮 Ж 


ФЕР-1100 また は FM-7.8 用 の プリ ンタ 

STAR DP -510 を 本 体 の み \48K で ゆず 

227%. キャ ラク ター 致 で ハー ドコ ピ 

ー も 可能 . エタ イプ で 2.3K の バッ フ 

ァ 付 き . 値引き 可 . まず は W〒 で . 

© 191 東京 都 日 野市 西平 山 2-8-53 
石原 克己 


ФЕР-1100+7) —-7==7+ж+ах 

\35K で (送料 そちら も ち で ). 

$ 292 千葉 県 木更津 市 騙 園 2-26-2 
11675101 ® (0438) 98-2768 


ФРС-1500+ CE-150 + CE-156 + CE-1 
59+ ソフ トウ エア ・ ラ イプ ラリ 1 集 , 2 
集 + ポ ケ コ ンプ ログ ラミ ング 入門 + ポケ 
コン 活用 術 +PC -1500 機 械 語 の 手引 + 
自作 ソフ ト を \8K で . 箱 説明 書 つ き で . 
まず は , М)» TELT. 
т 664 兵庫 県 伊丹 市 尼 陽 字 佐 藤前 22-1 
FIB a2 — # B -707 

今 中 英樹 70 (0727) 83-0946 


ФМ2-721+ 付属 品 一 式 + 関連 図書 ジョ 
イス ティ ッ ク ナ + ソフ ト (2 本 ) . 無 キ ズ 
完 動 品 \40K —35К で, W〒 を 待ち ます . 


$ 061-01 札幌 市 豊平 区 月 寒 東 4 条 17 
丁目 5-10 AFIR 
菅原 W 


ФРС-6001--РС-6006-2>-<4>6Ұ 

40K 前 後 で 売り ます . 希望 額 を 書き 下記 

へ W〒 で 連絡 し て くだ さい . 

© 657 兵庫 県 神戸 市 灘 区 灘 北 通 2 丁目 4 
工藤 正太 郎 


%М7-2000+ G-RAM1, 2, 3 +10 
01 キ ソフ ト 約 30 種 "83 年 4 HIRA, Ж 
・ バ パッキン な ど 付 属 品 す べ て あり , Ж, 
無 キ ズ を \110K 送料 で . 詳し く は 〒 
か TEL(PM8 : 00—10: 00). よろ し く 
お 願い し ます . 

® 560 大 阪 府 豊中 市 夕日 丘 2-13-17 

桐 畑 秀一 15(06)854-0572 


ФРС-6001тк П +6052 +6082, 新品 同 

様 付 属 品 一 式 を 65K て で. 

FT 660 兵庫 県 尼崎 市 元 浜町 2-35 
沢田 高志 


ФРС-6001ткП. 1 箇月 程 前 に 買っ た 
ば か り 新 品 同様 を \60K で . 

© 546 大 阪 市 東住吉 区 照 ヶ 丘 矢 田 3-9- 
21 鈴木 正人 


和 あ パソ コン テレ ビ X 1 (C+D) 新 同 + 付 
属 品 + キソ フト + 関連 図書 を \150K ぐら 
OT, 応談 で 値引き 可能 W〒 か TEL (Р 
М7 : 00 一 11 : 00) <. 
Ф 251 神奈 川 県 藤沢 市 本 町 3-14-9 

新 戸 章 裕 7Т2(0466)26-4750 


%РС-8801+РС-6082 (デー タレ コー ダ ) 
を 格安 で 譲り ます . ソフ ト の お まけ つき . 
まず は TEL で (PM8 : 00—10 : 00). 
@ 161 東京 都 新宿 区 上 落合 2-27-4 
ТЕРЕЗЕ 6 号 

石原 正大 1$(03)364-6119 


ФРС-6001 + РС-6006-- PC-6082 + РС 

-6042 (カラ ー モ ニタ )+G P-80P + у 

フト 多数 を \100K で . PC-8801 を \100 

KT. МТО. 

© 783-01 高知 県 高知 市 介 良 乙 2771-6 
ж м 
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利 日 立 グ リー ン ・ モ ニタ K12-2055G を \ 

10K で (ケー ブル 付 )、 また SFC 製 TV ア 

タダ タプ タ (BC-891) を \ 6 K で 譲り ます . 

W〒 で 連絡 を . 

$ 660 兵庫 県 尼崎 市 東 媒 波 町 1-1-5-404 
岡崎 博光 


ああ ベー シッ クマ スタ ーJr+ カ ラー モニ タ 
(С 14-1180) +7 Я7Я (МР1710) è, 

Ұ100 K (多少 値 引き し ます ) ぐら いで. 

〒 に TEL 番 号 書い て 送っ て くだ さい . 

@ 330 境 玉 県 大 宮 市 土手 町 1-298 
佐藤 真理 


ФУІС-1001+С2 N + 付属 品 を \20K で . _ 


手渡 し 希望. 
© 754 山口 県 吉敷 郡 小郡 町 下郷 100-453 
金 堀 

大 本 俊彦 


%РС-8001шКкП + PC-6082 + PC-8044 
+ キ ソフ ト を \110K で . 
© 673-05 兵庫 県 三木 市 緑が丘 町 東 3- 
7-11 

草 別 久 志 


ФРС-8001 + PC-8044£ ҰбОК, また P 

CG-8100+ サ ポー ト ROM を Y\25K で . そ 

れ ぞ れ 付 属 品 , ソフ ト 付 き で 売る . 送料 

そちら も ち 。 W〒 待 つ . 

$ 103 東京 都 中 央 区 日 本 橋 箱崎 町 31-6 
AH # 


ФУІС-1001 + У1С-1530+ 7 — A КОМ 4 

種 \ を 23K で . 

© 980 宮城 県 仙台 市 柏木 2-3-34 
WAF 


%М7-721(®#% Z, ЖЕ, УМЫ) + 
付属 品 を \45K で . W〒 に て . 
$ 300-23 茨城 県 筑波 郡 伊奈 村谷 井田 
1138-6 

FF M 


びゅ ぁ う 太 を \10K 以 上 で . カー トリ ッ 

ヂ 1 本 を つけ て 売り ます . 

Ф 985 宮城 県 多賀 城市 高橋 1-5-25 
菊田 Жж 


ФРС -6001 +6006 + 6052 (30%) + ソフ 
F 多数 関連 図書 を \20K 以 上 で . また 
タン ディ の プロ ッ タ ・ プ リン タ 二 PC 用 ケ 

ー プ ブル を \15K で . 6001 の 方 は 希望 価格 

を 書い て 〒 で . 

$ 350-02 埼玉 県 坂戸 市 千代 田 1-13-3 
石坂 浩一 


車 PC-6001mkTI 二 付属 品 十 取 説 . 1 箇月 

使用 \68K で . 東北 地方 の 方 手渡 し 可 

ВЕ. 

т 031 青森 県 八戸 市 城下 4-13-8 
西谷 信人 


利 MZ-731 一 式 キ ゲー ム ソ フ ト を \60K 
<. で きれ ば 手渡 し で . まず は W〒 を . 


© 563 大 阪 府 池田 市 満寿 美 町 6-8 自 菊 蘭 
24 号 
岡本 茂 幸 


ФЕСО-8200 (PC-8001 用 ) を \16K で . 


ДУХЕ: ケー ズ 付 。 
® 520 大 津 市 竜 が 丘 5-10 
ж № 


%2 + PB-100+ ¿ç 2 y DiE ( 83 
6 月 15 日 購入 ) + 説明 書 を \5K で . Ж 
料 こ ちら 持ち . W〒 で お 願い し ます . ま 
7, カシ オ 家 庭 用 TV アダ プ タ FP-1036R 
F+ 説 明 書 を \4K で ("83 年 7 月 5 日 購 
A). 

© 360 埼玉 県 熊谷 市 上 之 1820-1 

清水 т 


PC-8001mkII ( 新 同 ) + КОМ + ff 
属 品 キ オ ソ フト 多数 を \100K で . 〒 と TEL 
Ао) АТС. 
% 781-02 高知 県 高知 市 横浜 846 

竹内 昭 洋 


%М7-2000-- G -RAM1,2,3+ JOY-2000 

+ ソ フト 10 種 十 関連 書 3 FF + PC-1251 

を \130K ぐら いで (MZ-2000 は "82.11 購 

А. Э). 

т 985 宮城 県 塩釜 市 笠 神 字 天 満 崎 5-48 
渡辺 改 


%ФРС-6001+РС-6006 # %40К. また は 
РС-6001+РС-6006 + СР-80Р £ Ұ65К 
ー\70K で . 
© 156 世田谷 区 赤堤 2-12-5 ハ イッ 赤堤 
303 号 

% в 


ФМЕС PC-6042 (12 型 ディ スプ レイ ) を 
\19.8K. 精舎 GP-80P(PC-6001 用 グ 
ラフ ィ ッ ク ・ プ リン タ ) を \29.8K. МЕС 
PC-6001 用 カー トリ ッ ジ ROM&RAM, $ 
張 ベ ペー ジッ ク ,、 ミ ュー ジッ クエ ディ タ 、 
グラ フジ ェ ネ レー タ を 10K. いずれ も 使 
用 1.4 年 末 満 項目. 価格 … そ の 他 相 談 に 
応じ ます. 

$ 717-04 岡山 県 真庭 郡 湯原 町 湯本 

橋本 健太 郎 


ФРА-7010 ( 新 同 )+ 箱 + 保証 書 + マ ニュ 

アル +TV ア タダ プ タ ナ ソフト 8 本 を \48K 

で : 

$ 070 北海 道 旭 川 市 神楽 7 条 8 丁 目 
吉田 克 成 ® (0166) 62-5970 


Ф T/O 誌 "83 年 1 月 号 一 9 月 号 1 冊 \0.5 
K で 売り ます . 送料 は , そちら で お 願い し 
ます 。〒 で 連絡 し て くだ さい 。 なお. T 
に は TEL を 忘れ ず に . 
@ 121 東京 都 足立 区 中 央 本 町 3-12-1-7 
09 

清水 A 


ФРС-8001 (32K) キ マニ ュ ア ル \60K 前 
後 で 買っ て くだ さい . 

© 274 千葉 県 船橋 市 飯山 満 町 2-736 
近藤 Жж 


キキ MB6885+ カ ラー アダ プ タ + ナ RF コン ババ 
ー タ + ナ + ソ フト 他 を \42K で . 送料 こち ら 
持ち . W〒 を くだ さい . 
© 949-86 新潟 県 十日町 市 大 字 下 組 154 
番地 

佐藤 久夫 


$MZ-1200+ マ ニュ アル +SP-5030+ ソ 
フト を \ ぞ 50K で . 〒 を まっ て ます . 
© 486 愛知 県 春日 井 市 西高 山 町 字 与 人 山 
3-15 

円 山 通夫 


%М7-2000 (С-КАМ1,2,3 ff) +У7 
ト + 関 連 図書 を \100K ぐ らい で (近郊 の 
方 な ら お 届け し ます ). 
© 577 東大 阪 市 高井 田 1328 

岸本 利彦 A (06)787-1666 


ФМ2-721# Ұ45КС, 手渡 し で きる 人 は 

安く し ます 。 マ ニュ アル が 少し よごれ て 

いま す . TEL (PM8 : 00 一 9 : 00) 待っ 

TAT 

$ 228 神奈 川 県 相模 原市 上 鶴間 2-8-20 
# 勝利 ТЕ(0427)43-4638 


ああ VIC-1001+ ス ー パ ー エ キズ パン ダー 
(VIC-1211M)+ マ ニュ アル 一 式 キ + ソフ ト 
テー プ キ + 関係 書 を \28K で. 近県 な ら 手 
渡し し ます . THO. 
© 502 岐阜 市 長良 福光 2520-33 スエ ヒ 
ロビ ル 3F 

тше 


ФМ2-вок 2 E (48K)+ マ ニュ アル +SP 
-5030+ ア プリ ケー ショ ン キ + 説明 書 キ + その 
他 を \40K で 売り た し . WFT”. 
© 930 富山 市 清水 町 9-4-1 

鈴木 由 剛 


エプソン MP-80I を \40K で . マニ ュ 
アル 無 で も 可 。 た だ し 、 完 動 の こと . で 
きれ ば 手渡 希望. 
© 814 福岡 市 西区 下山 門 1443-16 

田中 № 15(092)891-7331 


る アド コム 製 PC サ ウン ド ユ ニッ ト 3 戸 基 

本 セッ ト +6 声 拡張 モッ ト を \6K 以 ドド 

で 。 マ ニュ アル も 必ず つけ て くだ さき さい. 

〒 か TE 上 で . 

Ф 344 埼玉 県 春日 部 市 道 口 里田 196-17 
木村 真 康 T (0487) 54-7343 


キャ ノン NP-8 サ ービス マニ ュ ア ル . F 
M-8 用 カラ ー バ パレ ッ ト ポ ー ド (カー ド ) . 

L-8A バス 情報 . PSG カ ー ド 用 サウ ンド 
エディ タ . 気長 に 待ち ます . 

© 604 京都 市 中 京 区 高倉 六角 ドル 和久 
屋 町 342 岩田 方 

見 市 吉彦 


VIC-1001 本 体 の み . キズ 物 大 歓迎 . 
¥10K ~ Y 15K. 
$ 214 川崎 市 多摩 区 下 布田 1487 
雄山 荘 101 

ВОРЖЕЛ 20044) 944-3479 


を PC-1500 専 用 の メモ リモ ジュ ー ル (8K 

バイ ト RAM) CE-155 か CE-159 を \15K 

で (も ちろ ん 完 動 品 ) . 

т 132 東京 都 江戸 川 区 松島 2-2-7 
坂本 法 久 


も NECPC-2001 二 付属 品 を \15K 以 下 で . 

お まけ (LSI ゲ ー ム ete.) biklo, 希望 

価格 を 書い て 〒 て で. 

$ 490-02 愛知 県 一 宮 市 身 町 字 県 郭 3-1 
野田 浩司 


を Roland DG(AMDEK) 2 СМО -800+ С 
M-MZB を \30K С. CMU-800 の みな ら 
\25K く らい で 買い ます . 完 動 な ら キ ズ 
ШИ", 手渡 し 希望 . TEL ま た は 〒 で 
お ね が いし ます . (РМ7 : 00 一 ) 
% 636-01 奈良 県 生駒 郡 斑鳩 町 竜田 4- 
1- 9 
北口 健 17%(07457)5-2030 
$FM-7 で 使え る ジョ イス ティ ッ ク を \4. 
5K ぐ らい で 売っ て くだ さい 。 まず は W〒 
с. HA, TEL, 希望 価格 , 発売 元 な ど 
を 書い て . 
$ 260 千葉 市 みつ わ 台 1-5-11 
жа Яя 


る 工学 社 出 版 の "FM 7/8 活 用 研究 」 を 売っ 


っ て くだ さい 。 希望 価格 を 書い て 〒 く だ 
さい . 
47989-61 宮城 県 古川 市 北 稲葉 1-4-1 


岡部 真理 


piOBAZZAR 


を FM-7 用 の プリ ンタ , デー タレ コー 

Я. ӘЖ? 17, ТЕТЯ 

な ど を 人 格安 で 求む . TEL か W〒 で . 

$572 大 阪 府 寝屋川 市 香里 西 之 町 9-5 
ЕЖ 9. 容 (0720)33-7451 


FM-8 用 の カラ ー パ レッ ト ポ ー ド (基板 

の み 、 ま た は 完成 品 ) を 適 価 で . ТСЖ 

絡 く だ さい . 

3563 大 阪 府 池田 市 井口 堂 1-6-13 
川津 隆之 


ФРС-80127*РС-8013 (1/0 ユニ ッ ト ) 

を \30K で . 送料 別 、 ま ず は W〒 で . 

$ 813 福岡 県 福岡 市 東 区 松崎 838-5 
秋山 壮 夫 17%(092)661-6447 


パソ コン や ボケ コン の 説明 書 求 む ど ん 

な 機種 で も 可 . 安価 に て . 最低 で も 送料 

8, こちら が 負担 する ( 完 本 に 限る . 少 々 

の よごれ は よい が 切り 抜き 不可 ).\ は 相 

ж, まず は W〒 で . 

945-11 新潟 県 柏崎 市 大 字 新 道 1643 
栗林 雅治 


る 1/0 誌 で PC-8001 の 記事 (広告 を 含む ) 
が 初め て 載っ た 号 か ら '82 年 10 月 号 ま で 
を 1 冊 0.4K で 売っ て くだ さい . また , 

すべ て 売っ て くれ る 人 は , 10.6 KT 
買い ます (シー ル 以 外 は 切り ぬき 不可 で 。 
書き 込み キズ, よごれ は 読め れ ば 可 で 
す . それ か ら 送 料 は そちら 持ち で お 願い 
Cat). Г ией 

"210 神奈 川 県 川崎 市 川崎 区 日 進 町 19 
-2 PAKI 


ФЕМ-8, 7 5 — £ = Ӯ MB-27301 £ #70 
ー80K で お 願い 致し ます . утс. 
45959-13 新潟 県 加茂 市 穀 町 8-6 

高橋 功 


ФРС-8801 付属 品 ( 完 動 品 な ら ば 多少 
の ヨプ ゴ プレ 可 ) を \100K で . まず は W〒 を 
待つ . 
W999-71 
97 
榎本 茂 喜 


山形 県 西田 川 郡 温海 町 小岩 川 


を FM-7 用 周辺 機器 \20K まで の 範囲 で 
売っ て くれ る な ら な ん で も . で きれ ば 近 
県 の 方 . と に か く 〒 で . 
$ 937 富山 県 魚津 市 双葉 町 1-26 

吉 森 旧 


ФРС-6001 5 РС-6006 k РС-6082% #40 
K ぐ らい て . 
© 215 茨城 県 新治 郡 千 代田 村 下 稲吉 38 
91-7 

大 島 正 和 


ФРС-8801 ( 完 動 )+PC-6082 ( 同 ) を \ 
125K НИС. 十 漢 字 ROM は \135K 前 
後 で . зрохх, шим. 送料 こち ら 
持ち . TEL 記 入 の うそ W〒 で お 願い し 
ます . 


т 380 長野 県 長野 市 大 字 風 間 572-2 
山下 秀樹 


*@ H Yr. L 3 周辺 機器 MP3550, MP3540 

いずれ か の フロ ッ ピ ー デ ィ ス ク 二 ディ ス 

ク カ ー ド + シス テム ディ スケ ッ ト 。 プリ 

ンタ MP1041 か MP-80, L 3 用 値段 は W 

〒 で . 近く の 方 . 

т 494 愛知 県 尾西 市 開明 南井 保 里 10-2 
Нн 


ФРС-6001 НЕХА$ BASIC コ ン パ イラ 
¥ 5 K、 SEAM-60¥ 7 K. PAPA МО 
NITOR \ 2 K 共 に マニ ュ ア ル 完 付 で あ 
DENE, T 
$ 437-11 静岡 県 磐田 郡 浅 羽 町 長 溝 
1649-1 

市 川 好 広 


FM-7 用 の フロ ッ ピ ー デ ィ ス ク を で き 

る だ け 安 く . まず は TEL か W〒 で . 

ар 665 兵庫 県 宝塚 市 花屋 敷 荘 園 3-6-1 
仲野 雄三 容 (0727)57-7152 


を MZ-80B 用 の 周辺 機器 , GRAM1,2, 

etc を 適 価 に て . 

Ф 352 新座 市 栗原 5-8-11 富士 荘 101 
川口 哲夫 (0424) 24-2409 


形 当 方 …JR-200 十 付属 品 キ オマ ニュ アル 

3 冊 オ ソフ ト (新品 同様 ). 

貴方 … 精 上 舎 製 プリ ンタ GP-80P、 エ プ 

ソン 製 プ リン タ RP- 80, または ВР- 80 

F / エ その 他 PC-6001mkII 用 プリ ンタ . 

RP-80 の と き に は 十 \ 7 K, ЕР-80Е/Т 

の と き は +\12K ま た は RQ-8300. そ の 

他 の と き は 考え る . 〒〒 待 っ て ます . 

$ 674 兵庫 県 明石 市 大 久保 町 八木 634-10 
清水 教 寿 


@°` №.---М2-1200 (48 КЖ) + Y 7 F 
+ 関連 図書 . 
貴方 …HC-20( マ イク ロカ セッ ト 付 ) か P 
С-8201, PC-1500+CE150 か PC-1251 + 
CE-125, ビ デオ . そ の うち いずれ か と 交 
換 し た し . W〒 待 つ . 
© 017 秋田 県 大 館 市 中 神明 町 9-7 

Ê Ш 容 (0186)42-4495 


W 当 方 …JR-100+RF コ ン バ ー タ (キズ あ 
9). 

貴方 …TK-85 も し く ぐ は わか りや すい 説明 

書 が つい て いて Z80, Z80A が CPU で あ 

る も の . 説明 書 は 初心 者 が Z80 を つか い 

こなせ る よう に な れる も の . 

$ 116 東京 都 荒川 区 西尾 久 1-21-6 
FRE 


Y: H- MZ-80B を MZ-2000 に する た め 
の セキ グチ コン パチ ボー ド ( マ ニュ アル 
付き ). 
貴方 …MZ-80B の G-RAM2 ある い は ラ 
イト ペン ペン コン トロ ー ル ソフ ト ( デ 
ジッ ク 製 )、W〒 ま つ . 
45 989-16 宮城 県 柴田 郡 楽 田町 船岡 東 
2-8=3 

庄司 賢 -- 


%:1/--М27-2000-- G-RAM1,2,3 + 
フト , その 他 . Ж, マニ ュ ア ル な ど . 
貴方 …①PC-8801+e ②FM-7 二 高 解 像 
度 カ ラー モニ タナ + デー タレ コー ダナ + 付属 
品 + ソ フト . ⑨PC-8001+ 専 用 カラ ー モ 
ニタ + ナ + デ ー タ レコ ー ダ +a また は \150K 
K で 売る . 
© 958 新潟 県 岩船 郡 朝 日 村 大 字 椿 原 944 
横井 浩明 


QH- PB-100 + 付属 品 一 式 +OR- ユ + 
本 (パソ コン お も し ろ ゲ ー ム 1.2 )。 
貴方 …PC-1250+ 付属 品 一 式 . ま た は PC 


-1245( 完 動 。 多少 の キズ 可 ).〒 に て 連絡 . 
手 わ た し 希望 .〒 の 場合 送料 は 、 お た が い 
に 持ち まし ょ う . 
т 273 千葉 県 船 
釘宮 和 -: 


ШЕ J f? 1-20-23-101 


Фи J MZ-80K 2 モ + マ ニュ アル 付属 
上 品 キ + カタ カナ キャ ラク タ ジ ェ ネ レ ー タ ナ + 
тЫ 
貴方 … ご ボケ コン か 、 ハ ンド ヘル ドコ ン ピ 
ュー タ 
$ 274 千葉 県 船橋 市 習志野 1-3-9 

松丸 宏行 


YW 当方 …MZ-731+ キ ロー タス ゲー ム ボ ポー 
ド +JOY+ ソ フト (SP-5030、 ゲ ー ム etc) 
+ НВ + ER +a + カラ ーCRT( 希 望 
な ら ). 

貴方 …MZ-80B (2000) +G-RAM1,M 
Z-2200+MZ-1T0 2 + カラ ー( グ リー ン ) 
CRT.W〒 ず っ と 待つ . 

$ 590-01 大 阪 府 堺 市 宮山 台 2-1-5-407 

河合 明夫 


%:/:--М27-2000-- С-КАМ1,2, 3 +В 
連 図書 ( 5 №) オ ソ フト + オ ゲー ム 電 卓二 
а (15K 程 度 の も の )、. 

貴方 …①FM- 7 + モニ タ (で きれ ば カラ 
ー 高 解 像 )+ キ ソン フト + デー タレ コー ダナ + 
付属 品 .②PC-8801+ カ ラー モニ タ ( グ リ 
ー ン 可 )+ 付属 品 . 詳 細 を 記入 し て W〒 で . 
Ф 511-03 三重 県 員弁 郡上 員弁 町 東 一 色 

寺本 靖彦 


当方 FM-7 寺 RGB カ ラー ディ スプ レ 


イキ ラジ カセ + ソ フト オ + 付 属 品 十 保 証書 . 
%:2/--С2-800С + C Z -800D + C28GB. 


多少 の キズ 可能 , 送料 当方 負担 いた しま 

k 

電 389-07 РИ FHN DMCORBJ E F448 
大 橋 健 -- 


@° J; :MZ-1200 (48K)+FORM+S 
Р-2001 (シャ ー プ ・ マ シン ラン ゲー ジ ) 
+ ゲ デー ム ソ フ ト オ e (全部 で \185.8K) 
貴方 …DM 5 ジョ イ バ パッ ド 二 BASIC 
-G キ デー タレ コー ダ + カ ラーTV( 映 り 
の 良い 物 )+ 拡 張 RAM( な く て も 可 ) 十 
ゲーム カート リッ ジ . 
②RX-78 十 BS-BASIC+ ジ ョ イス ティ 
ッ ク + カ ラーTV+ デ ー タ レコ ー ダ . £ 
の 他 の パソ コン で も 考え ます . WT < 
だ さい . 
© 317 茨城 県 日 立 市 滑川 本 町 4-23-18 
前 田 利彦 


Ww 当方 …PC-6001+ PC-6091 + 関連 書 

+ 7 E. 

貴方 …①FM-7- 8 @FP-1100 @MZ@ 

パソ ビア ⑤ そ の 他 ⑥ ま た は 半 45K で 売 

る . 

243-02 神奈 川 県 厚 本 市 館山 2985 
小林 孝幸 


@ J: :FM-7+14M-131C (ディ スプ 

L4)+ 7k. 

и ---ФМ27-2200+ 71 XT LA +> 

ー タ レコ ュー ダ か MZ-2000+ G-RAM 1 

+a (な ん で も いい ) も し く は X1. ОР 

C-8801 キ ディ スプ レイ ③130K 以 上 で 売 

る . と に か くそ ちら の 条件 を 書い て 〒 

くだ さい . 

$ 426 静岡 県 藤枝 市 瀬戸 新屋 335-11 
菊池 № 


QH MZ-721 + 付属 品 +\30K. 新 

м], キズ な し . 

貴方 …MZ-2000 か MZ-80B. W〒 で 気長 

に まっ て ます . 

® 925-06 石川 県 羽 呼 市 字 土 野 町 
宮本 和彦 


珍 当 方 FM-7 十 640X200 高 解 像 12 イ ン 
チ モ ニ タ (カラ ー) キジ デー タレ コー ダ + 
付属 品 ( マ ニュ アル .NEWVIP. 7-7 
ル な ど ) キ ソフ ト ( ゲ ー ム 23 本 、 ユ ー テ ィ 
リティ 数 本 …K コ ン パ イラ な ど ). 
貴方 … パ ソコ ン テ レ ビ X 1 (CZ-800C + 
CZ-800D)+ グラフィック RAM+ 付属 
品 ( マ ニュ アル 、BASIC、 ケ ー ブ ル な ど ). 


で きれ ば 近県 の 方 . まず は 〒 を . 
$ 901-04 沖縄 県 東風 平 町 字 友 寄 903 
-31 

田 場 清 


@ Jj Ию K+ ffl ñh + 22 — F 1) у 

ジ 1 本 . 

貴方 ご バン ダイ アル カ デ ィ ア ( 他 の メー 

カー の ビデ オデ ゲー ム も 可 ). + ソフ トカ 

ー ト リッ ジ ( 何 本 で も よい ).〒 を お 待ち 

し で Ms ます 。 

т 974 福島 県 いわ き 市 錦町 下り 立 33 
助川 和幸 


%:77--М7-1200 (48 K) + PCG +PCG 
ソフ ト + ゲ ー ム の 本 3 f. 

貴方 …PC-6001(mkT で も どちら で も よ 
い ) 二 カラ ー モ ニタ (大 き さ は 不問 ) キ ソ 
フト + (で きれ ば )RAM-ROM カ ー ト リッ 
ジ 至 急 W〒 を . 

$ 157 東京 都 世田谷 区 上 祖師 谷 2-38-28 

濱口 日 出生 Т%(03)300-3269 


%:4/;--РС-6001-- РС-6006 + ゲー ム 

ソフ ト 多 数 キ + みん な で 使 お う BASIC な 

どの 本 多数 . 

貴方 …M5 十 BASIC-G+ 人 付属 品 ま た は 

MZ-1200 な ど ほ か の パソ コン で も OK. ま 

ず は W〒 て . 

т 197 東京 都 福生 市 福生 2416-9 
FRR. 


ш—+ж 
1) 金 品 の 送付 時 に は 必ず 書留 に し て , 
証拠 が 残る よう に し て くだ さい . 

2) メ ー カ ー 製 ソフ ト ・ テ ー プ を コピ 
ー し て 売買 する こと は 絶対 お 止め く 
だ さき さい. PiO バザー ル 欄 に 投稿 する 
場合 は 必ず 「 自 作 』」 ま た は 「 オ リ ジ ナ 
ル 」 と 明記 し て くだ さい . な お , 自作 
で ある こと が 確認 で き な い も の に つ 
いて は 掲載 を お 断わり いた し ます . 
(編集 部 ) 


z, 


` Ф г, 
名 を キリ と 
8 ト の 売 


マシ ン 語 入力 に つい て 


チェ ッ ク ・ サ ム ・ ブ プロ グラ ム 
Sun 


マイ コン を 使い 始め て し ば らく 〈 く すると, 
BASIC の 鈍 さ が 気 に な り マ シン 語 の プロ グ 
ラム を 作っ て みた く な り ま す が , 初心 者 に 
と っ て は , あの マシ ン 語 の ダン プ ・ リ スト 
ж, た だ の 数 字 と アル ファ ベッ ト の 羅列 に 
し か 見 えな いも の で す . 

そこ で , 今回 は あの ダン プ ・ リ スト に つ 
いて 説明 し て みた いと 思い ます が , その ま 
え に 3 つ ほ ど 覚 えて も ら う こと が あり ます . 


-ұ У 
А 3 つの こと が ら 


1 つ は マシ ン 語 に つい て で す 。 マシ ン 語 
Ц, 数 字 と た アル ファ ベッ ト の AF まで の 
2 廊 字 の 組み 合わ せ で 構成 され て お り (た 
と えば , 1Е, CD の ょ うに ), こ れ を 1 バ ベ 
イト と 呼び ます 。 そし て , 実際 に マシ ン 語 
を 入力 する と き に は , この 1 バイト 単位 で 
入力 する こと に な り ま す . 

жа, メモ リ に つい て で す . マシ ン 語 
入力 する と いう こと は , 当然 入力 され る 場 
所 が ある と いう こと で , その 入力 され る 場 
所 を メモ リヒ と 呼び ます . 

最後 は アド レス に つい て で す . マシ ン 語 
を メモ リ へ 入力 する と き に , メモ リ の どこ 
へ 入力 する の か を 指示 する 必要 が あり ます . 
そこ で , 数 字 と アル ファ ベッ ト の A 一 F ま 
で の 4 文字 の 組み 合わ せ で (た と えば ,2F8 
А, FABA の よう に ), その 位置 を 指示 し ま 
3. そし て , これ を アド レス と 呼び ます . 


ダン プ ・ リ スト V 
А の 見 方 


る て , 以上 3 つの こと を 頭 に 置い て , Ж 
際 の ダン プ '"・ リ スト (リス ト 1 ) ZAT? 
だ る さい. 

まず 左上 に “Add? と あり ます が , これ は ア 
FLADT. そし て , その 右側 に 十 0, 
圭 … 二 王 と いう 廊 字 が 並ん どい ます が 。 こ 
れ は テ ド レス の 下 1 桁 目 を 示し て いま す . 
る ら に 右 に は “Sum" と あり ます が ,。 これ は 
チェ ッ ク ・ サ ム の 略 で , その 説明 は 後 で し 
ます . 

で は , 実際 に アド レス の 205A 番 地 の 内 容 
Dî, な ん で ある か を 調べ で て み ま す . 

まず ,“Add" の 下 を 見 て , 2050 と な っ て い 


る 所 を 捜し ます . この 横 の 列 が アド レス の 
2050 番 地 か ら の デー タ で , 205A 番地 は , こ 
の 列 と “ 二 A" の 縦 の 列 が 交わ る 所 に な り , 
00 と いう 2 文字 が アド レス の 205A 番 地 の 
ЯНВ. この よう に し 
て ダン プ '・ リ スト か ら , 任意 の アド レス の 
内 容 を 調べ る こと が で きま す . 


ん 入力 する 場合 Y 


る て, 今度 は この ダン プ ・ リ スト の デー 
RE, メモ リ に 入力 する と きのこ と に つい 
て 説明 し ます 。 こ の デ ロ グ ラム は 。 アド シン 
ス の 2000 番 地 か ら 始 まっ て いま すか ら , マ 
シン に 入力 する と き は , その マシ ン の マシ 
ン 語 入力 用 ゲロ グラ ム や , モニ タ (た いて 
い の マ イコ ン に は BASIC の お まけ で 付い て 
いる ) の コマ ンド を 使っ て , 入力 開始 アド 
レス を 2000 番 地 に 指定 し . ダン プ ・ リ スト 
の “2000" の 右側 の “12" か ら 順 に 1 バイ ト ず 
DADL TSIT. そう し で コウジ (7) 


の まえ ぇ ま て 入力 し た ら , 次 は 下 の 段 に 移り , 


“2010" の 右 ど な りか ら 同 じ よ うに 入力 し て 
ECE 2605 


ТІ УЖЕ ү 
ROST 


で は 次 に , 先ほど の チェ ッ ク ・ サ ム に つ 
いて 説明 し ます . ダン プ ・ リ スト の "Sum" 
の 下 を みる と , マシ ン 語 と 同じ よう な 2 廊 
字 の デー タ が あり ます が 。 これ は マシ ン 語 
で は あり ませ ん . 初心 者 に は 混乱 し が ちな 
も の で す . Са, な ぜ こ ん な 混乱 を 招く よ 
うな も の が ある の で し ょ う . 実は , これ は 
マシ ン 語 の 入力 ミス を 見 つけ だ す だ た め の も 
の な の で す . 

マシ ン 語 を 入力 する 作業 は , 非常 に 単純 
な 作業 の 繰り 返し で す が , 意外 に 入力 ミス 
が 多い も の で す . お まけ に BASIC と 違っ て 
AJ S Z23162 t 3⁄6 LU СІ іс, 最悪 の 
場合 (実は , この 場合 の 方 が 多い ) сц, 
リセ モ セット し な けれ ば な ら な いと いう こと に 
な り ま す . 

Са, どの よう に し て ミス を 見 つけ る の 
で し ょ うか 。 そもそも , “サム” と いう 言葉 
の 意味 は 総和 で あり , チェ ッ ク ・ サ ム の 2 


文字 は , マシ ン 語 デー タ を 足し 合わ せ だ も 
の な の で す . 

この リス ト で , 2000 一 200F 番 地 ま で の マ 
シン 語 を 16 進 で 足し 算 す る と , その 結果 は 
16 進 で 726 に な り ま す . そし て , チェ ッ ク ・ 
サム は この 結果 の 下 2 桁 を リス ト 上 に 表示 
し て ある の で す . 

$ L, あな た が この リス ト を 自分 の マシ 
ン に 入力 し た と き に , 間違え て 2005 番 地 の 
内 容 を 98 と 入力 し て し まう と , この 列 の 総 
和 が 723 と た なり, チェ ッ ク ・ サ ム の 値 が 23 と 
表示 きれ , この 列 の どこ か に 入力 ミス が あ 
る JE うい だ も が が ぐに お が かり FR, 

同様 に , 縦 の 列 の チェ ッ ク ・ サ ム は , + 
0 一 +F の 一 番 下 に あり , 右 下 の も の は , 
Sum の 値 の チェ ッ ク ・ サ ム で す . 

し か し , 実際 に は チェ ッ ク ・ サ ム の 結 
が 正しい か ら と いっ て も 100 ミ スカ が な い 
と は いえ ませ ん . で も 90 ぐ らい は 正しい 
と 考え られ ます АЛ 
Яғ, отот С Еж АНЕ, 
ゲッ と し ます か ら , 普通 は チェ ッ ク ・ サ ム 
し か 見 な に と い うこ と に な り ま す . 

と ころ で , この チェ ッ ク ・ サ ム の 作業 は 
簡単 な 足し 算 で ある と いう こと は , すでに 
お わか り で し ょ う が 。 も し 。 この 作業 を 人 
間 が 手 作 業 で 行なっ た ら , マシ ン 語 の 入力 
ЕНЕ, РСС 
МУЖА. そこ で , この 作業 を マイ コン に 
や ら せ よ うと いう わけ で す が , その だ た だめ の 
プロ グラ ム を チェ ッ ク サ ム ・ ブ ログ ラム と 
呼び ます . 


А 最後 に 『 


今回 の 付録 と し て , 各 機 種 用 の チェ ッ ク 
サム ・ プ ログ ラム の リス ト を 載せ て お きま 
3 (一 部 の ソン コン で は そ モニタ 機能 が な い 
も の が あり ます が 。 これ に つい て は チェ ッ 
ク ・ サ ムッ ム 機 能 を 持っ た モニタ ・ プ ログ ラム 
を 載せ まし た ). 


М2-ВОВ & MZ-2000 用 
マシ ン 語 プ ブログ ラム 2 本 で す が 。 ど ちら も 
同じ プログ ラム な の で 入力 する プロ グラ ム 
と メモ リ ・ エ リア が 重 な ら な いよ うに 使い 
わけ て くだ さい . 実行 きせ る と START と 
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END ア ドレ ス を 聞い て くる の で , カン マ 
を セパ レー タ と し じ て (た と えば START が 
1000 で END が 1FFF の と き は 1000, 1ЕЕЕ 
の よ うに ) 入力 し て くだ さい .256 バ イト 出 
力 す る と 止ま り ま すか ら 決 に 行く と き は 何 
か の キー を 押し て くだ さい . 


K/ ビ 用 


1200 か ら の も の と CO000 の も の が あり ます . 


スタ ー ト ・ ア ドレ ス は 1200 (C000) СТ. 
走ら せる と “COMMAND ? ” と 聞い て くる 
の で 128 バ イト ご と の チェ ッ ク ・ サ ム な ら [|C 
8 バイ ト ご と の チェ ッ ク ・ サ ム な ら [ の キ 
ー を 押し て くだ きい . 

201% “5ТАТАОБЕ55” と 表示 され た 
後に チェ ッ ク ・ サ ム を 調べ たい アド レス の 
初め を , “END ADRESS’ と 表示 され た 
後に は チェ ッ ク ・ サ ム を 調べ で た い ア ドレ ス の 


終わ り を 16 進 4 桁 ($ は 不用 ) で 入れ て くだ さい. 


その 後 [BREAKI キ ー を 押し て いる 間 , F 
ェ エッ ク ・ サ ム を 画面 に 表示 し 続け ます . 
BREAK| キ ー を 離す と 表示 は 止ま り ま す . 


K/ 選 用 マシ ン 語 チェ ッ ク ・ サ ム ・ プ 


ログ ラム の 700 用 へ の 変更 点 


131Е (C11F) か ら 7 バイト を CD, 1B, 00, 


СА, ГЕГІЗ, CIELE УЗ uv; 


K/ 用 WICS・ 日 用 WICS 


RUN さ せる と スタ ー ト ・ ア ドレ ス , エン 
ド ・ ア ドレ ス を 聞い て くる の で チェ ッ ク ・ 
サム を 調べ たい ア ドレ ス を 16 進 4 桁 で 入力 
L š +. その 後 , “PRINTER ОК? (Y/N)” 
と 聞い て くる の で , プ ブリ ンタ を 使う な ら 6[Y 
の キー を 使わ な いな ら [NI の キー を 押し て < 
だ る さい. 

な お K/C 用 は 128 バイ ト 分 を 表示 する と 
止ま る の で 続け る と き に は 何 か 適当 な キー 
を 押し て くだ さい . 

РС-8001, РС-8001тІКП(М“Е- 
К), PC-8801(N モ ー ド ) 用 
|  。 1) > F 1 


2000 の 内 容 


Sum: 3F 


リス ト 2 MZ-80B & MZ-2000 用 チェ 


+0 
1500 CD 2 
1510 2Е 
1520 04 
1320 52 
1540 СЕ 
1550 ВЕ 2 
1560 ОВ 
1570 59 20 ОВ ЗЕ 01 52 ВА 15 CD 15 
1280 15 
1590 47 
15А0 11 


ド 


ЖҒіу2%А. Ул КЕРНЕ 


この ワク の 中 が マシ ン 語 デー タ 205A の 内 容 


ッ ク ・ サ ム プロ グラ ム 


マシ ン 語 プログラム 2 本 で す カ が , どちら 
も 同じ プロ グラ ム で すか ら メ モリ ・ エ リア 
が 重 な ら な いよ うに 使い わけ て くだ さい . 
実行 きせ る と アド レス を 聞い て くる の で 入 


力 し て くだ きい . 次 の 画面 に 進む と き は , 
STOPI キ ー を 押し て くだ さる い . 
РС-8801, 


PC-8001mkI 
LEVEL3, FM8/7, Kí 用 
BASIC プ ログ ラム で す . それ ぞ れ の 機種 


で 変更 点 を 直し て 走ら せ て くだ さい . 実行 
する と 先頭 アド レス と 最終 アド レス を 聞い 
E БОСАУЫ, 


PASOPIA, PASOPIA-7 用 


マシ ン 語 を 実際 に 入力 する に は モニ タ と 
いう も の を 使い ます が , PASOPIA, PASO 
PIA5 に は これ が あり ませ ん . ここ に BASIC 
に よる 簡単 な た モ ニタ ・ プ ログ ラム を 載せ て 
お きま す の で これ を 使っ て くだ さい (リス 
ト 8). 

使い 方 で す が プ ログ ラム を RUN さ せる と , 


“WRITE MODE" に する か “DUMP MODE” 
Се 
+ t WRITE МОРЕ, [2 キー を 押す L DUMP 


に する か を 聞い て きま す . 


MODE に な り ま す . 
W RITE MODELS ролл) 

最初 に デー タ 入 力 の 先頭 アド レス を 聞い 
て きま す “E000" の よう に 4 桁 の 16 進 数 で 答 
えて くだ さき さい. する と アド レス が 表示 きれ 
入力 可能 な 状態 に な り ま す . どん どん 打ち 
込ん で いけ ば いい の で す . 

この と き フ ル ・ キ ー ボ ー ド で 打ち 込ん で 
も ら っ て も いい の で す が , この ブログ ラム 
で は 片手 で 打ち 込め る よう に テン ・ キ ー を 
図 1 の よう に 設定 し て いま す . これ を 使っ 
て 入力 すれ ば か な り 早 く 入 力 す る こと が で 
E ча ВА 

入力 を 誤っ た と き は IpgLl キ ー で 1 つ 前 に 戻 
る こと が で きま す . また [SPACE キ ー て で は 前 


1А DC 1A C3 00 
1Е C3 00 03 DD 
00 05 DD 24 BD 
4F 40 50 49 4C 
31 2Е 50 00 BD 
33 20 43 АҒ 4р |: 
45 4F Ар 50 49 


リス ト 1 


08 CD 2E ОА Ср :84 
11 93 10 CD A4 : 
ЕЗ 22 Be 15 7С : 
DZ CD 14 06 28 
C3 CD Ав 14 20 
11 95 15 CD 89: 
CD A4 06 18 FE 
CD 7С 0С 21 А5 
15 CD ВА 14 11 :С5 


の デー タ の まま で アド レス を 1 つ 先 に 進ま 
せる こと が で きま す . この モー ド か ら 抜 け 
る に は 恨 ETURNI キ ー を 押し ます . 
DUMP MODE( ダ ンプ ・ リ スト 出力 ) 

まず フリ ンタ の 有無 を 聞い て くる の て, 
プリ ンタ が あれ ば [YI の キー を , な けれ ば そ 
の 他 の キー を 押し て くだ さい . 次 に リス ト 
出力 する 開始 アド レス と 終了 アド レス を 聞 
いて くる の で , それ ぞ れ 16 進 4 桁 で 入力 し 
Со Apearse >a YD 
スト が 表示 る され ます . この ダン プ ・ リ スト 
に は チェ ッ ク ・ サ ム が 付い て いる の で 。 `= 
れ と 本 紙 の チェ ッ ク ・ サ ム と を 比較 すれ ば 
火力 ミス を 素早 見 つい る に が で あさ y. 

リス ト を 途中 で 止め だ い 場 合 は 性 SC| — 
また は [CTRL| 十 [5] キー を 押し て 〈 だ さい . リ 
スト の 表示 を 終え を る と キー 入力 待ち に な る 
DT, 限 ETURNI キ ー を 押し て 元 の モー ド に 戻 
ета. 
PASOPIA7 の 場合 

PASOPIA7 の 場合 は モニ タ を 持っ て いる の 
で マシ ン 語 入力 は これ を 使い は す が 。 チェ 


ッ ク ・ サ ム は 表示 で き な い の で リス ト の ダダ 
ンプ ' の 部 分 を 使い ます . 

リス ト の 1000 行 か ら 打 ち 込 ん で , 1005 行 
に は CLEAR,&HA7EE を 入れ て 使っ て くだ 
зе. 


а 1 


PC-6001mkI 


P.169 の E モ ニタ を 使っ て くだ きい ,. 
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リス ト 3 


208 11 
1210 CD 
1218 99 
1229 95 
1228 A3 
1239 44 
1233 00 
1249 15 
1248 D1 
1250 CD 
1253 CD 
1260 CD 
1263 CD 
1278 ES 


ОЧЕН. 
585058058596 


29 に 


100 РКМООЕ 0: 0$0М=$10Ғ0:РКІНТ &6, "DUMP & CHECKSUN" ノ 
110 PRINT "START ADDRESS. . $": GOSUE 500: SH=HL 


120 PRINT /"END 


ADDRESS. . $": GOSUB 58@:ЕЯ=НЕ 


150 PRINT /"РК1НТЕК OK ?(Y/N)":A=GET:IF A="Y" THEN РКМООЕ 2 

140 PRINT ///" ADD +0 +1 +2 +3 +4 +5 +6 +? SUM" 

150 FOR 1-0 TO 7:USUM[IJ=0:HEXT:RSUM=@:FOR 1-0 TO 15:РКІНТ /,#4 SR," " 
160 НЗИМ=В:РОК 7-0 ТО ?:R=PEEK(SR):PRIHT #2 R," ":5$Я=$7+1:НЗИМ=НЗИМ+Я 


178 VSUNC J J=USUMC J J+A: NEXT 
175 PRINT “:",%2 HSUM: ASUM=ASUM+HSUM 


180 IF ЭВНСЗЯ>*$6НСЕЯ>>0 THEN IF SH>EH GOTO 208 
185 IF SGHCSH)*SGHCEH〉 く ロ THEN IF SA<Ö GOTO 220 


198 НЕХТ: GOSUB SO: GOTO 140 
= GOSUB ЗВ@:РЕТНТ /:ЕНО 
Ө! 


510 РКІНТ /"SUM ": РОК 1=@ ТО 7:РЕ1НТ " ",#2 USUMCIJ:NEXT:PRINT " :",#2 RSUM,Z 


311 H=IHKEViIF А=0 GOTO 311 
515 КЕТПЕН 

S00 Н -0: 60508 510 

518 GOSUE 520 


520 A=GET:IF て ("9">H)+("9" く HO う *C("H"2H)+("F" く H)) GOTO 528 
550 FRINT &R:R=R-439-7+*(R>57):HL=HL*16+R: RETURN 


И АА аана 


Dump & У-Н Сһаск Бит 
(WRK Area $1300~%130F) 
20” 
100 FRMODE O!VSUN=W13OOIFRINT ké," Dum 
Р % Chack Sum"/ 
110 РКІМТ /"Start Address..$":GOSUB 50 
0: SA=HL 
120 PRINT /"End 
Or EA=HL 
150 FRINT /"Printer DK?(Y/N) "iA=GET! 1F 
(A="Y")J+(A="o") PRMODE 2 
140 FRINT //" Add +O +1 +2 +3 +4 +5 +6 


Address..$": GOSUB 50 
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+7 +8 +9 +A +В +C +D +E +F Sum" 

150 FOR 1=0 ТО 15』VSUM[ 1】〕=OINEXT: ASUM= 
ОТРОК I=0 ТО 1ТІРБІМТ /,й4 SA," " 

160 HSUM=O:FOR J=O ТО 15: АзРЕЕК (БА) IFR 
INT #2 А," "ISAmSA+11HSUM=HSUM+AI VSUMC 21 
=VSUMC J] +A: МЕХТ 

170 FRINT "1", #2 HSUM:ASUM=ASUM+HSUM: I 
F SGN(SA) *SGN(EA)>O IF SA>EA GOTO 200 


> 269 IF 50М(5А) %55М(ЕА)<0 IF SA<O GOTO 


{зо NEXT e BOB 290:6070 140 


М2-80В & MZ-2000 用 チェ ッ ク ・ サ ム プロ グラ ム ух ҺЕ 


12ҒӘ 
12F8 
1586 
1509 
1519 
1318 СІ 
1520 4 
1528 
1330 
1338 
1340 
1348 
1350 
1558 55 


$722 


3511258834223 


RAL ARZE 
08505884 


まま 8 あさ SSSSSS 
7 インド マー メメ | 


ЗОО FRINT /』FOR 2-0 TO 5ЗІРБІМТ "-"іМЕ 
xT 

$10 FRINT /"Sum ":ҒОК 1=0 TO 15:PRINT 
" "#2 VSUMCIJINEXTIFRINT " t",#2 ASUM, / 
%КЕТИКМ 

500 Н_=0:6050В8 510 


510 GOSUB 520 

520 AmBETIIF (("O">A)+("F"<A)) +( (A> "9" 
JS (А<"А") GOTO 520 

530 PRINT kA:rA=A-4B8-74(A>57):HL=HL316+ 
A: RETURN 
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Бенин!) スト 5-1 PC-8001,PC-8001mkII(N モ ー ド ),PC-8801(N モ ー ド ) 用 チェ ッ ク ・ サ ム プロ グラ ム ух ҺЕ 


90 Ві ЕЙ B7 89 111 


+B 
ФЕ 
so 


ж 
54 


Вит 
122 
123 
тАё 
:Е5 
:3Р 
178 


60 47 107 


50 өз cs 


45 Ғ5 37 


еә EQ 38 зе 


АВ @@ 1B DA 


зө 2C 52 50 2С Dé 


9@ Ві EA 33 ЕВ 143 


+E Вит 
41 1A2 
123 
1A6 
1Е5 
ЗЕ 
178 


ж3 


06 60 47 107 


Ш!)АРК6 PC-8001mkII & PC-8801 用 チェ ッ ク ・ サ ム プロ グラ ム ух H ЕШ) Хх [7-1 PC-8001mkII & РС-88018 £ L3 TE 5 t а Ж жа 


100 КЕМ #### РС-В001 mk2 & PC-B801 СНЕ 

Ск SUM #### 

110 CLEAR 300,&HBFFF:DIM SUM(15) 

129 DEF FNCH$(E,P)=RIGHT%(STRING%(E,"@") 

+HEX%(P),E) 

159 INPUT "Top address"jS$:S=VAL ("&H"+LE 

FT%(S$,LEN(S%)-1)+"@") 

140 INPUT "Епа address" E%:E=VAL ("&H"+E$ 
› р - - РС- FM で の 24 
Е Rê mau XZ 7-2 PC-8001mkII & PC-8801 用 を 使う と き の 変 更 点 
(HEX$(A),2)=RIGHT% (HEX$ (5) +"0",2) OR А=8 CHECK 
THEN GOSUB 190 

160 P$=FNCH$(4,A)+" " 

170 FOR I=@ ТО 15:D=FEEK(I+A):P%=P%+FNCH 

%(2,D)+" "1 SUM=SUM+D: SUM (1) = SUM (I) +D: МЕХ 
т 

180 P$=P$+": "+ЕМСН® (2, SUM) 』 GOSUB 250:МЕХ 
Ti GOSUB 210:ЕМО 

190 IF A=S THEN 200 ELSE GOSUB 210 

200 PWmCHR き (13)+"Add “іҒОН 1-0 TD 15:P%$ 
=P9+"+"+HEX0(I)+" “іМЕКТІРФеРФ»"Вит"і ВОТ 
0 259 

210 P$=STRING$ (57, "-") 1 GOSUB 250 

220 P$="Sum:"iSUM=Q@:FOR 1=0 ТО 15:P$=P$+ 
" "+FNCH%(2,SUM(1))iSUM=SUM(I)+SUM:SUM(I 
)=Q@:NEXTiP$=P%+" 1 "+FNCH$ (2, SUM) +CHRS (10 
) +CHR$ (19) 1 SUM=O: GOTO 250 

250 PRINT Р%:КЕТОКМ 


109 КЕМ #### BASIC MASTER L2 & L3 & L3mk 
5 CHECK SUM パソ コウ リス メト HHHH 
110 CLEAR 300,&H4FFF:DIM SUM(15) 


100 КЕМ #### FM-7 & FM-8 & ЕМ-11 
SUM パン コウ リ メ ト HHHH 
119 CLEAR 300, KHIFFF:DIM SUM(15) 


шух F7-3 PC-8001mkII &PC-8801 用 を X1 で 使う と き の 変 更 点 ша 


100 КЕМ #### Хі CHECK SUM ヘン コウ リ メ ト HHHH 
119 CLEAR &HA9FF:sDINM SUM(15) 


スト 8 PASOPIA 用 チェ ッ ク ・ サ ム プロ グラ ム リス h 


270 "DATA CHANGE Ы: 

280 IF A$="0" THEN Вже: RETURN 1070 FOR А=8 ТО Е ВТЕР 16180МедіІҒ RIGHT 
290 C1=INSTR(1,"123456789",A%)iIF %(НЕХФ(А),2)-"0Ә" OR А«8 THEN GOSUB 1119 
THEN Bs=C1iRETURN 1080 P$=FNCH$(4,A)+" " 

280 IF A$=CHRS (18) 1090 FOR I=@ ТО 15: р=РЕЕК (I+A):P$=P$+FNC 
ETURN HS (2,D) +" "s SUM=SUM+D: SUM (1) =SUM (1) +0: NE 
599 IF XT I 

ETURN 1100 P%=P%+":"+FNCH%(2,SUM) t GOSUB 1150:М 
400 IF EXT:GOSUB 113@:A%=INPUT%(1):RETURN 

ETURN 1119 IF А=8 THEN 1120 ELSE GOSUB 1150 
419 IF 1120 P%=CHR%(13)+"Add “(FOR 1-0 TO 15:P 
ETURN $=P%+"+"+HEX%(I)+" "1NEXT:P$=P$+" Sum" 160 
420 IF TO 1150 

ETURN 1130 P%=STRING%(57,"-"):GOSUB 1150 

430 IF 1140 P$="Sum "1BUN=OiFUR I=0 ТО 15:P$=P$ 
ETURN +" "+FNCH% (2, SUM (1) ) i SUM=SUM+SUM ( I) s SUM ( 
449 IF I)=@:NEXT 11Р%=Р%+" 1"+ЕМСН®(2,8ШМ) +CHR$ 
459 IF (10)+CHR9%(1@):SUM=@:GOTO 1159 

469 IF 115@ IF LP=1 THEN LPRINT P$ 


10 REM жжжзж РАВОРТА MONITOR жж» 

15 CLEAR ,&HA7FFIWIDTH さ 6』CLBITE=OIKEY О 
FFiLDCATE @,@: РКІМТ"РАЅОРІА MONITOR " 

40 PRINT:PRINT"1 ...... WRITE"IPRINT"2 。 
DUMP"』PRINT" さ ...... END" 

2": А$=1МРИТ 


C1 く > の 


ОК A%="A" THEN B=10ıR 


50 PRINT"MORK NUMBER (1,2,5) 
%(1):A=VAL (A$) 
90 IF А25 THEN GOTO 40 ELSE ОМ А GOSUB 1 
20,1990,119 
WIDTH 56:60Т0 40 
CLS:END 
КЕМ жжжжж MONITOR жеж 
WIDTH 36:CLS:LOCATE 0,0:іРКІМТ"жжж WR 
MODE жеж" 
РКІМТ"КЕАрҮ":РКІМТ: INPUT "START ADRES 
S"$ S$: A=VAL ("&h"+LEFTS (5$,4)) 
179 РКІМТ:РКІМТ НЕХФ (А) у" "J 
180 АФ=ІМКЕҮФ: IF А%< >" "ТНЕМ SOUND 80,5: 
GOSUB 280 ELSE 180 


As=CHRS (29) ОК A$="B" THEN B=11:R 


As=CHRS (28) OR Ава"С" THEN B=12:R 


А%=СНВ% (11) OR A$="D" THEN B=1 さ 』R 


As=CHRS (50) OR A$="E" THEN B=14iR 


A$=CHR$ (51) OR A$="F" THEN В=і5:8 


A$=CHR$ (8) THEN Q=-1:RETURN 
A$=" " THEN О=1: RETURN 
А%=СНК® (15) THEN 7-11С1.8: RETURN 


190 ТЕ 0=@ THEN 200 ELSE А=А+0:0=0: PRINT 
1РКІМТ НЕХФ (А) з" 1 "3RIGHTS ("©"+НЕХ$ (PEEK 
(A)) 2) 3 "—"3:GOTO 180 

200 IF Z=1 THEN 2-0:КЕТИЯМ 

210 C=B*16:PRINT HEX$(B)i 

220 Аз=1МКЕҮФ:ІҒ A$<>"" THEN SOUND B0, 51 
GOSUB 280 ELSE 220 

250 IF П-Ө THEN 240 ELSE A=A+Q:Q=@0: PRINT 
1PRINT HEX$(A);" :"jRIGHT%("@"+HEX$ (PEEK 
(A)), 20$ "="; : GOTO 180 

240 IF 1-1 THEN Z=@:RETURN 

250 D=BıF=C+DıPOKE A,F:A=A+1:PRINT НЕХ® ‹ 
Ёз ну 

260 V$=RIGHT$(HEX$(A),1):IF V$="8" ОВ V$ 
="Ө" THEN 170 ELSE 180 


470 RETURN 

1000 КЕМ ##### DUMP МОРЕ ##### 

1010 IF TE=@ THEN DEF FNCH$ (E, P) =RIGHTS ( 
STRING%(E,"@")+HEX%(P),E):DIM SUM(15) TE 
-1 

1029 ОМ ERROR GOTO 117ө 

1030 WIDTH ВФіРБІМТ"І% there printer ? ( 
YIN) "1A$=INPUT$(1) IF АФа"Ү" OR А%="у" Т 
НЕМ LP=1 ELSE LP=Q 

10409 CLS:PRINT “DUMP MODE 
s PRINT 

1050 INPUT"START ADRESS"; S$: S=VAL (“&h "+L 
ЕРТ® (S$, ЕМ (5%) -1)+"0") 

1060 INPUT"E М D ADRESS"/E%@%:E=VAL ("&h"+E 


"gPRINT"READY" 


1160 
1170 
1180 
TION 
1190 


PRINT Р%: КЕТОКМ 

IF ЕКК< >28 THEN ЕМО 

SOUND 60, іё: РКІМТ"РКІМТЕК МОТ СОМЕС 
!"ІРКІМТ "ОК IS "RETURN’ KEY" 
А%=1МРИТ% (1) : RESUME 


画 今 回 の PiO は いか が で し だ た だか. 前 回 の PiO が 追加 注文 が 殺 倒す 
る ほど 好調 な 売れ 行き だ っ た の で , 今回 は 大 幅 値下げ を 敢行 し ま 
し た . これ が で きた だ たのも 皆さん が PiO を 応援 し て くれ だ た お か げ で 
| 3. 皆さん , 本 当 に あり が と う ソ 
| = と ころ で 『PiO』 の 名 前 の 由来 で す が , これ は Z80CPU の 周辺 
| チッ プ の 名 前 の Parallel Input/Output Interface Controller の 略称 
| な の で す . 


Imput/Output は 「『I/O』 と 同じ で , 『 こ の 本 が パソ コン を 愛す る 


A 読者 の 間 を 取り 持つ 役割 を 果たし た い 』 と いう 意味 が ある の で す . 


きら に PP は, 本 来 は Parallel で 並列 の 意味 で す が , PiO の 場合 は フ 
ラン ス 語 の Petit『 小 る さ な 」 や, Play の 『 遊 び 』 と いう 意味 に で も 
と っ て くだ きい. 

À PiO な の で す . 
これ か ら も , で きる だ け 多 く の 読 者 の 原稿 を で きる だ け 多 く 
の パソ コン ・ フ ァ ン みん な に 読ん で も ら う よう 頑張 り た いと 思い 


ます . ヨロ シク ノ (A) 
| 画 今 回 の PiO 全開 加速 号 は 、 特 集 に し て 冬休み に 家族 みん な で 楽 
N 暖か な 室内 
T, お 正月 の な おもち で も 食べ な が ら 遊 ん で くだ さい . で も 。 い くら 
寒い 冬休み 中 で も , 天気 の よい 日 に は 外 へ 出 な いと 体 に カビ が 生 


し め る よう に ,。 スポ ー ツ ・ ゲ ー ム を 集め て み ま し た . 


プ ブログ ラム 難易 度 表示 


АМЕР АЕ いう マー ク が 付い て いま す . これ 
は プロ グラ ム の 難易 度 を 示す 目安 で BASIC だ け で 作ら れ て いる 
も の は 主 に つ , オー ル ・ マシ ン 語 で は ("の マー ク が 付い て いま す . 
〈 〇 マー ク の も の は BASIC だ け の 割合 簡単 な ゲロ グラ ム で すか 
5, 初心 者 の 方 で も 容易 に デ ロ グ ラム を 理解 し , 変更 する こと が 
で きる と 思い ます . ブログ ラム を 勉強 する 意味 で も 自分 な り の 改 
造 を し て 楽し む の も いい と 思い ます . 
$$ ¬ [3 に な る に つれ , プロ グラ ム は 高度 に な っ て いま す . 実力 
ом. 人 の テク 
ニッ ク を 盗ん で くだ さき るい. 他人 の プロ グラ ム を 見 て いる と , 思い 
も か け な い よう な テク ニッ ク を 発見 する こと が よく ある も の で す . 


о & ДА 


BASIC だ け で で きた コン パイ ラ で で きた マシ ン 語 が 大 部 分 の 
簡単 な プロ グラ ム . プロ グラ ム や BASIC プロ グラ ム . 

に 少し マシ ン 語 が 加 

わっ た プロ グラ ム , 

また BASIC だ け の 複 


雑 な プロ グラ ム に も 
付け て あり ます . 


ТОН ӨО хо. 


昭和 58 年 12 月 20 日 発行 


える か も ? 
と ころ で , いま 毎日 送ら れ て くる 前 号 の アン ケー ト は が き を 見 
る の が 楽し み に な っ て いま す . 特に ご 意見 欄 に は 編集 部 へ の 激励 。 
質問 , お 怒り の 言葉 な ど が あり , つい 仕事 も せ ず に 夢中 に な っ て 
で まい きず 
激励 を くだ き 
5, МИССИС, 8550 
いた だ だき ます. そし て 。 お 怒り の 言葉 を いた だ だき 


Зая; АЛҚА に あび が とう つがい ます しま 
返事 を 送ら きせ て 
t LI HAIR, 


この 場 を 借り て お わび 申し 上 げ ま す . 指摘 いた だ いた 点 を 反省 し , N 


今後 の 誌面 に 生か し て いき だ いと 思い ます . (O) 
画 お 待ち どう さま , PiO〔2] 号 を お 届け し ます . まだ 生ま れ だ た ば か 


IO を より 遊び に 徹し た か わい い 雑 誌 ., そ れ が 


り の 雑誌 な の て 。 いろ いろ と 試行 錯誤 の 繰り 返し が あり ます が 
目 に 見 えて 成長 し て いく よう に し だ た いと 思い ます . 読者 の 皆さん 
も 、PiO の 成長 ぶり を 見 守っ て いて 《 く ださい. 


お 願い し ます . 
(Y2) 


一 早い も の で ?83 年 6 も いよ いよ 残す と ころ あと 数 日 と せま り ま し た 
* 皆 様 い か が お 過ごし で し ょ うか が か? こたつ に スト ー ブ が ん が ん か 
Әл, 部 屋 の 中 に と じ こ も っ て パソ ンコ ン ・ ゲ ー ム ば か りや っ て ち 
ゃ だ めで す よ .。 た ま に は 外 で 思い っ きり パソコ ユン ・ ゲ ー ム し まし 
ж? 


о 0 [1 

コン パイ ラ に つい て 

PiO で は コン パイ ラ で 作ら れ た プロ グラ ム は ソー ス ・ リ スト で 
載せ て あり ます . この プロ グラ ム は この まま で は 動き ませ ん (BJ 
ぃ いて も スピ ー ド が 遅い ) 。 コンパイラ と いう ソフ ト を 使っ て コン 
パイ ル し な けれ ば な り ま せん . 

ШЕ, PiO で 扱っ て いる コン パイ ラ の 参考 女 献 , 発売 元 を 載せ 
て お きま す . 
EXAS BASIC コン パイ ラ PC-6001 
I/O, 782411 
I/O, "83 年 2 月 号 
発売 元 ЖАУ? 
® (03) 375-3401 
価格 Ұ9,800 
K コ ン バ イ ラ FM-7/8 
FM7/8 活用 研究 工学 社 
FM8 活用 研究 . 工学 社 
発売 元 Жад; у 2 
Тї (03) 375-3401 
価格 04,500 (ЕК а, 94 >) 
WICS (整数 型 の BASIC 風 イン タプ リタ & コ ン バ イ ラ ) 
発売 元 博 キ ャ リー ラボ 
® (0963) 63-0211 
価格 Ұ10,000 (М2.-80В, MZ-1200, М7-700), 

Ұ 12,000 (М2.-2000) 


жд 1 月 20 日 発売 予定 で す . 


©1983 編著 者 PiO 編 集 部 
発行 人 Æ 正明 
発行 社 株 式 会 社 工学 社 
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